可以执行的代码
Private Sub MSHFlexGrid1_DblClick()
ipath = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, 8)
Set swApp = CreateObject("SldWorks.Application")
Set swModelDoc = swApp.ActiveDoc
Set Part = swApp.OpenDoc6("C:\Users\Administrator\Desktop\DB123.001 圆盘111.SLDPRT", 1, 0, "", longstatus, longwarnings)
End Sub


不执行的代码，用msgbox 显示 ipath=C:\Users\Administrator\Desktop\DB123.001 圆盘111.SLDPRT
Private Sub MSHFlexGrid1_DblClick()
ipath = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, 8)
Set swApp = CreateObject("SldWorks.Application")
Set swModelDoc = swApp.ActiveDoc
Set Part = swApp.OpenDoc6(ipath, 1, 0, "", longstatus, longwarnings)
End Sub

程序代码都没有问题,文件名中间的空格会有影响吗?
加一句:swApp.Visible=True

[此贴子已经被作者于2017-11-30 19:54编辑过]

这个情况比较特别。有可能是solidworks兼容性问题。
现在前后加中断，看看ipath是否正确，还有Part返回值是否正常。还可以试试第二段代码ipath不从msflexgrid提取数据，而是直接赋值是不是正常。
还不行的话，这段代码在SW的VBA中试试