excel vba 添加cad 引用

du945862399

在excel中使用vba写代码，可以使用“工具” ---> "引用" 的方式添加引用“AutoCad 2014 Type Library”，但是如果发给其他人，其他人安装的版本不一样，请教怎么能通过代码自动引用？

hhhlike

是对象的后期绑定吗？
Set objAcad = CreateObject("autocad.application")

kmliro_2017

谢谢分享！！！！！

du945862399

嗯嗯，已经解决了，可以用后期绑定，也可以用代码进行引用
https://www.cnblogs.com/NanShengBlogs/p/13606109.html

du945862399

du945862399 发表于 2020-9-3 12:29
嗯嗯，已经解决了，可以用后期绑定，也可以用代码进行引用
https://www.cnblogs.com/NanShengBlogs/p/1360 ...

2. Sub AutoADDAutoCADTypeLib()
   
3.     Dim Ref As Variant
   
4.     Dim hasAutoTypeLib As Boolean, hasAXDBLib As Boolean, acadName As String
   
5.     hasAutoTypeLib = False: hasAXDBLib = False
   
6.     For Each Ref In ThisWorkbook.VBProject.References
   
7.         If Ref.Name = "AutoCAD" Then hasAutoTypeLib = True
   
8.         If Ref.Name = "AXDBLib" Then hasAXDBLib = True
   
9.     Next Ref
   
10.     Dim wshell As Object
    
11.     Set wshell = CreateObject("WScript.Shell")
    
12.     Dim strAcadShardFd As String, acadCurVer1 As String, acadCurVer2 As String, acadLanguage As String
    
13.     '读取cad的版本
    
14.     acadCurVer1 = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\CurVer")
    
15.     '读取cad的语言版本
    
16.     acadCurVer2 = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "\CurVer")
    
17.     '读取cad的最后一次启动的语言版本
    
18.     acadLanguage = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "" & acadCurVer2 & "\AllUsersFolder")
    
19.     Dim LanguagePath As Variant, acadVer As String
    
20.     LanguagePath = VBA.Split(acadLanguage, "")
    
21.     acadVer = VBA.Mid(acadCurVer1, 2, 2) & LanguagePath(UBound(LanguagePath) - 1)
    
22.     acadName = LanguagePath(UBound(LanguagePath) - 3)
    
23.     '读取cad的64位类型库的路径
    
24.     strAcadShardFd = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "" & acadCurVer2 & "\AutodeskSharedFolder")
    
25.      
    
26.     '读取cad的32位类型库的路径
    
27.     'strAcad32ShardFd = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "" & acadCurVer2 & "\AutodeskShared32Folder")
    
28.      
    
29.     Set wshell = Nothing
    
30.      
    
31.     If hasAutoTypeLib = False Then
    
32.         ThisWorkbook.VBProject.References.AddFromFile (strAcadShardFd & "acax" & acadVer & ".tlb")
    
33.         MsgBox acadName & " AutoCAD Type Lib Already add to referecne scucces"
    
34.     Else
    
35.         MsgBox "AutoCAD Type Lib Already add to referecne, no need add aagin"
    
36.     End If
    
37.     If hasAXDBLib = False Then
    
38.         ThisWorkbook.VBProject.References.AddFromFile (strAcadShardFd & "axdb" & acadVer & ".tlb")
    
39.         MsgBox acadName & " AXDBLib Already add to referecne scucces"
    
40.     Else
    
41.         MsgBox "AXDBLib Already add to referecne, no need add aagin"
    
42.     End If
    
43. End Sub

Sub AutoADDAutoCADTypeLib()<br />     Dim Ref As Variant<br />     Dim hasAutoTypeLib As Boolean, hasAXDBLib As Boolean, acadName As String<br />     hasAutoTypeLib = False: hasAXDBLib = False<br />     For Each Ref In ThisWorkbook.VBProject.References<br />         If Ref.Name = "AutoCAD" Then hasAutoTypeLib = True<br />         If Ref.Name = "AXDBLib" Then hasAXDBLib = True<br />     Next Ref<br />     Dim wshell As Object<br />     Set wshell = CreateObject("WScript.Shell")<br />     Dim strAcadShardFd As String, acadCurVer1 As String, acadCurVer2 As String, acadLanguage As String<br />     '读取cad的版本<br />     acadCurVer1 = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\CurVer")<br />     '读取cad的语言版本<br />     acadCurVer2 = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "\CurVer")<br />     '读取cad的最后一次启动的语言版本<br />     acadLanguage = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "" & acadCurVer2 & "\AllUsersFolder")<br />     Dim LanguagePath As Variant, acadVer As String<br />     LanguagePath = VBA.Split(acadLanguage, "")<br />     acadVer = VBA.Mid(acadCurVer1, 2, 2) & LanguagePath(UBound(LanguagePath) - 1)<br />     acadName = LanguagePath(UBound(LanguagePath) - 3)<br />     '读取cad的64位类型库的路径<br />     strAcadShardFd = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "" & acadCurVer2 & "\AutodeskSharedFolder")<br />      <br />     '读取cad的32位类型库的路径<br />     'strAcad32ShardFd = wshell.regread("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD" & acadCurVer1 & "" & acadCurVer2 & "\AutodeskShared32Folder")<br />      <br />     Set wshell = Nothing<br />      <br />     If hasAutoTypeLib = False Then<br />         ThisWorkbook.VBProject.References.AddFromFile (strAcadShardFd & "acax" & acadVer & ".tlb")<br />         MsgBox acadName & " AutoCAD Type Lib Already add to referecne scucces"<br />     Else<br />         MsgBox "AutoCAD Type Lib Already add to referecne, no need add aagin"<br />     End If<br />     If hasAXDBLib = False Then<br />         ThisWorkbook.VBProject.References.AddFromFile (strAcadShardFd & "axdb" & acadVer & ".tlb")<br />         MsgBox acadName & " AXDBLib Already add to referecne scucces"<br />     Else<br />         MsgBox "AXDBLib Already add to referecne, no need add aagin"<br />     End If<br /> End Sub