Open SolidWorks Part file by Macro

Program

*This Macro (API) is used for open any file from a specific Location and name




Sub main()

Dim swApp As Object
Set swApp = Application.SldWorks

Dim longstatus As Long, longwarnings As Long
Dim part As Object

Set part = swApp.OpenDoc6("F:\DESIGN LIBRARY\Part8.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Part8", False, longstatus

End Sub