宏打开零件不能显示出来

api163

'当同名工程图处于打开状态时宏打开零件但不能显示出来
'大家看一下下面代码，当同名工程图没有打开时，是可以打开零件并显示出来。
'但当同名的工程图已打开时，就怎么也打不开，这里面是不是还有什么代码要添加的？
Option Explicit
Sub main()

    Dim swApp   As SldWorks.SldWorks
    Dim fileerror   As Long
    Dim filewarning As Long

    Dim Part  As SldWorks.ModelDoc2
    Set swApp = Application.SldWorks

    Set Part = swApp.OpenDoc6("E:\ChenPing\shang3\PRT20150119-02.SLDPRT", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning)

End Sub

api163