strfilename = App.Path + "\" + "垫圈.sldprt"
strfilename = "@垫圈.sldprt"
两次赋值，是不是因为第二次没有了路径就出错了？

把那句出现后还是出现同样的错误，还是
 part.Parameter("d1 @ 草图1 " & strfilename).SystemValue = d1 / 1000
这里有问题

但是调试时程序是可以打开solidworks的指定文件，也就是“垫圈”这一文件的，感觉是修改参数这一步有问题

Set part = swApp.ActivateDoc("垫圈")
改成 Set part = swApp.ActivateDoc("垫圈.Sldprt") 试试

还是不行。我觉得是solidworks的文件垫圈的参数D1，D2没和程序关联起来~

Set part = swApp.opendoc4(strfilename, 1, 0, "", longstatus)

longstatus 值是？

这里是打开solidwork文件，没问题的

看帖是学习，回帖是礼貌。。。

我用vb编个小软件也偶尔会出现这个错误提示，软件一直运行正常，偶尔隔个十天半个月或一个月的出现这个错误提示，看来不是编程的问题，也不知道是什么原因。
也可能是vb的bug，在XP偶尔会出现，换成Win7不出现了。