用VBA做SolidWorks的二次开发时遇到问题：运行时错误：“91”，对象变量或WITH块变量未设置

当选择进行调试时就会出现如下情况：补一张图片

代码如下：
Const filedir As String = "C:\SolidWorks 2007 Training Files\API Fundamentals\API Training Templates\"
Dim swApp As SldWorks.SldWorksDim swModel As SldWorks.ModelDoc2
Private Sub cmdBuild_Click() Set swApp = Application.SldWorks Set swModel = swApp.NewDocument(filedir + _ "APIPart.prtdot", 0, 0#, 0#)
swModel.SetAddToDB True swModel.SetUserPreferenceIntegerValue swUnitsLinear, swMM swModel = swModel.Count 'MATERIAL If optAl.Value = True Then swModel.SetUserPreferenceDoubleValue _ SwConst.swMaterialPropertyDensity, 2700 swModel.SetUserPreferenceStringValue _ SwConst.swMaterialPropertyCrosshatchPattern, _ "ISO (Aluminum)" Else swModel.SetUserPreferenceDoubleValue _ SwConst.swMaterialPropertyDensity, 8600 swModel.SetUserPreferenceStringValue _ SwConst.swMaterialPropertyCrosshatchPattern, _ "ISO (Bronze Brass)" End If

这个错误信息是说swModel没有对象，即说明swApp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)这句话没有返回任何东西给swModel。
看一下filedir路径下是否已经创建了那个模型文件，如果没有，说明NewDocument这句话本身错了。SolidWorks可以录制代码的，录制一下新建文件的整个过程，看新建文档的代码是否有问题。

打开excel表，会出现"运行时错误91’，未设置对象变量或with block变量”的解决方法是： 1. 打开注册表编辑器。（开始->运行->regedit）。 2. 找到[hkey_current_usersoftwaremicrosoftofficeexceladdins] 删除全部子项。 3. 再打开excel文档，没有那出现错误了 。