AnsweredAssumed Answered

Next without For macro problem

Question asked by Sean Leahy on Feb 28, 2019
Latest reply on Feb 28, 2019 by Christian Chu

i am trying to get this code to work and can't figure out why i get the error Next without For. any help would be helpful.




Dim swApp As SldWorks.SldWorks


Dim Part As ModelDoc2

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim colDrawing As Collection

Dim EXL As Excel.Application

Dim drawExlSheet As Excel.Worksheet

Dim tempWbook As Workbook


Sub main()


Set colDrawing = New Collection

Set EXL = GetObject(, "Excel.Application")

Set tempWbook = EXL.ActiveWorkbook

'MsgBox tempWbook.Name


Set drawExlSheet = tempWbook.ActiveSheet

Set swApp = Application.SldWorks

Dim fileLocation As String

Dim fileName As String

Dim fileType As String

Dim fileConfig As String

Dim savePath As String

'savePath = "U:\Desktop\test folder for macros"


Dim i As Integer


'rows 2 to 100

For i = 2 To 5

    fileLocation = drawExlSheet.Range("B" & i).Value

    fileName = drawExlSheet.Range("C" & i).Value

    fileConfig = drawExlSheet.Range("D" & i).Value

    fileType = drawExlSheet.Range("E" & i).Value


    If fileType = "" Then

        Next i

    End If


    If fileName <> "" Then


        Set Part = swApp.NewDocument("Q:\Product Development\Common Parts\SOLIDWORKS TEMPLATES\Drawing.slddrt", 10, 0.594, 0.841)

        'swApp.ActivateDoc2 "Draw1 - Sheet2", False, longstatus

        Set Part = swApp.ActiveDoc

        longstatus = Part.SaveAs(fileLocation & fileName & ".SLDDRW")

        colDrawing.Add Part, fileName & ".SLDDRW" '???

'        MsgBox fileName & ".SLDDRW"

    End If  


Next i


'activate the required drawing file and add code to update the drawing file

Dim tempModelDoc As ModelDoc2

Set tempModelDoc = colDrawing("ABC-26.SLDDRW")

swApp.ActivateDoc tempModelDoc.GetTitle()


swApp.CloseDoc tempModelDoc.GetTitle()


End Sub