复制代码进VBA编程软件居然运行不了，什么原因，一枚刚出道的new bird

Question

程序执行不了，一枚刚出道的new bird学习中，如何运行起来呢

Const TRAININGDIR As String = _
    "C:\SolidWorks Training Files\API Fundamentals\"
Const TEMPLATEDIR As String = _
    "C:\SolidWorks Training Files\Training Templates\"
Const FILEDIR As String = _
    TRAININGDIR & "Lesson02 - Object Model Basics\Case Study\"

Private Sub cmdNewModel_Click()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    
    ' Find the selected option and connect to the ModelDoc2 object
    If optPart.Value = True Then
        Set swModel = swApp.NewDocument(TEMPLATEDIR + _
                        "Part_MM.prtdot", 0, 0#, 0#)
    End If
    
    If optAssy.Value = True Then
        Set swModel = swApp.NewDocument(TEMPLATEDIR + _
                        "Assembly_MM.asmdot", 0, 0#, 0#)
    End If
    
    If optDraw.Value = True Then
        Set swModel = swApp.NewDocument(TEMPLATEDIR + _
                        "B_Size_ANSI_MM.drwdot", 0, 0#, 0#)
    End If
End Sub

Answer 1

前期弄了很久，后面自己重新录制一个新建零件的宏时候发现问题了，原来是模板路径没有对应上，需要根据自己的文件夹路径去设置。 我也不想像提问的代码一样先定义一个变量表示路径，没必要，还不好让人理解。
运行代码如下：

Private Sub cmdNewModel_Click()
  Dim swApp As SldWorks.SldWorks
  Set swApp = Application.SldWorks
  Dim swModel As SldWorks.ModelDoc
  'Find the selected option and connect to theModelDoc2 object
   If optPart.Value = True Then
  Set swModel = swApp.NewDocument("D:\UT规范\UT模板\模板\UT模型模板\零件.prtdot", 0, 0#, 0#) '新建零件
End If
If optAssy.Value = True Then
  Set swModel = swApp.NewDocument("D:\UT规范\UT模板\模板\UT模型模板\装配体.asmdot", 0, 0#, 0#)  '新建装配体
End If
If optDraw.Value = True Then
   Set swModel = swApp.NewDocument("D:\UT规范\UT模板\模板\工程图模板\零件工程图A3.drwdot", 0, 0#, 0#)  '新建工程图
End If
End Sub

不知道文件模板路径的可以到设置-默认模板去复制路径

运行效果