怎样用vba打开solidworks装配体，打开零件没问题，就是打不开装配图 有谁能给一个完整打开装配体的例子

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
Dim swApp As SldWorks.SldWorks
Dim mode As SldWorks.ModelDoc2
swApp = CreateObject("SldWorks.Application")
mode = swApp.OpenDoc6("C:\新建文件夹\装配体1.SLDASM", 2, 0, "", 0, 0)
End Sub
我试了，肯定没问题的，只要有这个文件