Private Sub Command1_Click()
Dim part As Object
Dim strfilename As String
Dim longstatus As Long
Dim d1 As Integer
Dim d2 As Integer
Dim h As Single
If Dir(strfilename) = "" Then
   MsgBox ("文件不存在，请检查路径:" & vbCrLf & strfilename)
   Exit Sub
   End If
strfilename = App.Path + "\" + "垫圈.sldprt"
Set swApp = CreateObject("sldworks.application")
swApp.Visible = True
Set part = swApp.opendoc4(strfilename, 1, 0, "", longstatus)
Set part = swApp.ActivateDoc("垫圈")
ProgressBar1.Value = 4
d1 = Text1.Text
d2 = Text2.Text
h = Text3.Text
Debug.Print d1, d2, h
strfilename = "@垫圈.sldprt"
    part.Parameter("d1 @ 草图2 " & strfilename).SystemValue = d1 / 1000
    part.Parameter("d2 @ 草图2 " & strfilename).SystemValue = d2 / 1000
    part.Parameter("h  @ 拉伸1 " & strfilename).SystemValue = h / 1000
    part.EditRebulid
ProgressBar1.Value = 9
Set part = Nothing
Set swApp = Nothing
ProgressBar1.Value = 100
StatusBar1.Panels(1).Text = "更新结束"
End Sub


在最后  part.Parameter("d1 @ 草图2 " & strfilename).SystemValue = d1 / 1000~~~调试时就会出现实时错误91，对象变量或with块变量未设置，有大神告诉怎么解决吗？

很感谢你的帮助。在我那样修改后，可以寻找到文件了，但是还是会出现那样的错误。修改后的代码如下：
Private Sub Command1_Click()
Dim part As Object
Dim strfilename As String
Dim longstatus As Long
Dim d1 As Integer
Dim d2 As Integer
Dim h As Single
strfilename = App.Path + "\" + "垫圈.sldprt"
If Dir(strfilename) = "" Then
   MsgBox ("文件不存在，请检查路径:" & vbCrLf & strfilename)
   Exit Sub
   End If
Dim swApp As Object
Set swApp = CreateObject("sldworks.application")
swApp.Visible = True
Set part = swApp.opendoc4(strfilename, 1, 0, "", longstatus)
Set part = swApp.ActivateDoc("垫圈")
ProgressBar1.Value = 4
d1 = Text1.Text
d2 = Text2.Text
h = Text3.Text
Debug.Print d1, d2, h
strfilename = "@垫圈.sldprt"
    part.Parameter("d1 @ 草图2 " & strfilename).SystemValue = d1 / 1000
    part.Parameter("d2 @ 草图2 " & strfilename).SystemValue = d2 / 1000
    part.Parameter("h  @ 拉伸1 " & strfilename).SystemValue = h / 1000
    part.EditRebulid
ProgressBar1.Value = 9
Set part = Nothing
Set swApp = Nothing
ProgressBar1.Value = 100
StatusBar1.Panels(1).Text = "更新结束"
End Sub

调试时还是提示对象变量或with块变量未设置，可以能再帮我找下问题吗？万分感谢

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.PartDoc
~~修改成这个会显示用户定义类型未定义。
关于之前那个调试问题出在
 Part.Parameter("d1 @ 草图1 " & strfilename).SystemValue = d1 / 1000
~~是不是这里的问题呢？

我这是用VB对solidworks的二次开发~~在引用那里把关于solidworks的都勾上了，还是不行。本人新手，希望能教下

出错语句一直都是
 part.Parameter("d1 @ 草图1 " & strfilename).SystemValue = d1 / 1000
这句~~
调试的错误就是实时错误91，对象变量或with变量未设置。

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

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

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

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