确定文件路径或GUI

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

有人知道如何通过编程为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中使用相同的方法，只需添加我在下面评论的参考
并在运行之前保存它们

copy


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库并将其与例程一起加载，效果非常好！！
这就是它的样子

copy

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

发表回复

精选推荐