Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swDoc As ModelDoc2
Dim fileerror As Long
Dim filewarning As Long
Const folder As String = "D:\test\" '指定目录
Dim files As Variant
Sub main()
Set swApp = Application.SldWorks
files = Dir(folder & "*.sldprt", vbNormal) '获取指定目录下的第一个 *.sldprt 文件
Do While files <> ""
swApp.OpenDoc6 folder & files, swDocPART, 0, "", fileerror, filewarning '打开 *.sldprt 文件
files = Dir '获取指定目录下的下一个 *.sldprt 文件
Loop
End Sub