一. 连接到现有文档

Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Boolean

Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc

二. 以模板形式打开文档

Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Boolean

Set swApp = Application.SldWorks
Set part = swApp.NewDocument(模板名, 大小, 宽-doouble, 高-double)

打开零件文档可以 将模板名写成路径，大小宽高为0

三. 打开文档

Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Boolean

Set swApp = Application.SldWorks
Set part = swApp.OpenDoc6(FileName, Type, Options, Configuration, Errors, Warnings)