这段代码，为什么在第一次加载的时候会出错？

wjfling

这段代码，为什么在第一次运行VBA的时候会出错(类型不匹配)，以会就没这种情况了。

wjfling

topirol

没有注册cad目录下的vl.tlb吧,用下面函数注册看看

来源：  明经通道 　作(译)者：  郑立楷 　
上传者：  mccad 　上传时间：2003-5-3  
Function AutoRegFile(FileName As String)
Dim reged As Boolean
Dim RegFile1 As String
Dim RegFile2 As String
Dim BeReg As String
Dim RetVal
BeReg=Dir(FileName)
If BeReg<>"" then
  RegFile1 = Environ("windir") & "\system\regsvr32.exe "
  RegFile2 = Environ("windir") & "\system32\regsvr32.exe "
  If Dir(RegFile1) <> "" Or Dir(RegFile2) <> "" Then
       If Dir(RegFile1) <> "" Then
            RegFile1 = RegFile1 & "/s" & " " & BeReg
            RetVal = Shell(RegFile1, 1)
        Else
            RegFile2 = RegFile2 & "/s" & " " & BeReg
            RetVal = Shell(RegFile2, 1)
        End If
  Else
        MsgBox "找不到regsvr32.exe文件，你可能无法使用本软件！", vbCritical, "无法自动注册控件"
  End If
Else
  MsgBox "找不到控件文件！", vbCritical, "无法自动注册控件"
End If
End Function  
功能  
自动注册控件  
语法  
(AutoRegFile FileName)  
参数  
FileName:文件名，必须包含路径

gyl

vl.tlb需要手工注册吗？

efan2000

如果有安装过VL，并且VL的编辑环境可以正常打开的话，那么应该已经注册。