Macro error

I have created the below macro for exporting CATIA V5 2D drawing (dimensions, welding positions) to excel but I got the below error.

Macros:
#[CODE]
Sub CATMain()

Dim oDwgDoc1 As DrawingDocument

On Error Resume Next Set oDwgDoc1 = CATIA.ActiveDocument If Err.Number <> 0 Then MsgBox ("The active document must be a drawing."), vbExclamation End End If On Error GoTo 0

Dim oSel As Selection Set oSel = oDwgDoc1.Selection

If oSel.Count < 1 Then MsgBox ("No dimensions selected."), vbExclamation End End If

Dim oDwgDim As DrawingDimension Dim oInt As Integer Dim dblDims()

Dim oTolType As Long Dim oTolName As String Dim oUpTol As String Dim oLowTol As String Dim odUpTol As Double Dim odLowTol As Double Dim oDisplayMode As Long

For ctr = 1 To oSel.Count

On Error Resume Next
Set oDwgDim = oSel.Item(ctr).Value
If Err.Number <> 0 Then MsgBox ("One of the selected elements is not a drawing dimension."), vbExclamation End End If On Error GoTo 0

ReDim Preserve dblDims(3, ctr - 1)
If oDwgDim.DimType = catDimAngle Or oDwgDim.DimType = catDimChamfer Then
dblDims(0, ctr - 1) = oDwgDim.GetValue.Value * 57.2957795
Else
dblDims(0, ctr - 1) = oDwgDim.GetValue.Value
End If
oDwgDim.GetTolerances oTolType, oTolName, oUpTol, oLowTol, odUpTol, odLowTol, oDisplayMode
dblDims(1, ctr - 1) = odUpTol
dblDims(2, ctr - 1) = odLowTol
dblDims(3, ctr - 1) = oDwgDim.Parent.Parent.Name
odUpTol = 0
odLowTol = 0
Next

Dim strFilePath As String Dim objFSO As Object Dim objStream As Object

strFilePath = "C:\Users\Drew\Desktop\dimensions.csv" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objStream = objFSO.OpenTextFile(strFilePath, 8, True, 0)

For i = 1 To oSel.Count objStream.WriteLine (dblDims(0, i - 1) & "," & dblDims(1, i - 1) & "," & dblDims(2, i - 1) & "," & dblDims(3, i - 1)) Next

objStream.Close

End Sub

[CODE]

Error:

Source: Microsoft VB Script compilation error Description: Expected 'If' Statement: End Line: 9 Column: 15

Can anyone help me out please

@ Shunmuga

Welcome to the Forum, unfortunately your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Please amend your first post to receive any further help

This way it looks better but I can't tell if it works or not.

Please Login or Register  to view this content.