我們將程式修正如下:
其中紅色文字表新宣告與迴圈內容。
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
'Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathName As String '路徑變數
Dim PathName1 As String '路徑變數
Dim i As Integer
'Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
'Set SelMgr = Part.SelectionManager
PathName = "C:\Demo"
For i = 1 To 30
PathName1 = PathName & i & ".SLDPRT"
longstatus = Part.SaveAs2(PathName1, 0, False, False)
Next