社区 › Auto Lisp › 确定文件路径或GUI

Andresig 发表于 2022-7-6 11:52:45

确定文件路径或GUI

有人知道如何通过编程为VBA参考库设置正确的Guid吗？我在不同的计算机上运行宏时遇到了问题，因为它们有不同版本的Excel（2003和2007）。
我在excel中读取了一些设置guid的内容
http://www.vbaexpress.com/kb/getarticle.php?kb_id=267
，但我不知道如何在Autocad中设置它。
 
如果有人能帮助我，请提前感谢。

fixo 发表于 2022-7-6 12:29:29

在AutoCAD中使用相同的方法，只需添加我在下面评论的参考
并在运行之前保存它们

Option Explicit
' requre reference to:
' Microsoft Visual Basic For Applications Extensibility 5.3

Sub LoadRef()

   Dim refs As References
   Set refs = ThisDrawing.Application.VBE.activeVBProject.References
   Dim guid As String
   guid = "{00020905-0000-0000-C000-000000000046}"
   refs.AddFromGuid guid, 1, 0
   Dim ref As Reference
   'debug only:
   For Each ref In refs
   MsgBox ref.FullPath
   Next
   
End Sub
 
~'J'~

Andresig 发表于 2022-7-6 13:08:53

谢谢菲索！
我禁用了Excel库并将其与例程一起加载，效果非常好！！
这就是它的样子
 
 
Private Sub LoadRef()
   Dim refs
   Dim ref

   Set refs = ThisDrawing.Application.VBE.activevbproject.references
   Dim guid As String
   guid = "{00020813-0000-0000-C000-000000000046}" 'GUID for Excel
   
   On Error Resume Next
   refs.AddFromGuid guid, 1, 0
   If Err.Number <> 0 Then
       On Error GoTo 0
   End If



End Sub

 
唯一的问题是我不知道为什么不识别引用变量（Dim refs作为引用），其他一切都很好。
 

查看完整版本: 确定文件路径或GUI