如何解决调试不适用于库引用-Errormsg“此时无法进入中断模式”
我在Excel VBA中编写了一个宏,以使用户通过电子邮件自动将其Excel文件发送回给我。 若要使用此宏,每个用户必须安装Outlook库。为此,我创建了函数add_outlook。 如果我尝试运行该功能,就会起作用。 发生的唯一问题是VBA不允许我调试。 单步执行代码时,我收到Errormsg“此时无法进入中断模式”
是否有解决方法或解决方法?
非常感谢!
Option Explicit
Public Function add_outlook()
'DEBUGGING DOESNT WORK
'late binding
Dim vbProj As Object
Set vbProj = ThisWorkbook.VBProject
Dim vbRefs As Object
Set vbRefs = vbProj.References
Dim vbRef As Object
'Libary GUID and Data
Dim libname As String
libname = "Outlook"
Dim guid As String
Dim major As Long
Dim minor As Long
Dim exists As Boolean
guid = "{00062FFF-0000-0000-C000-000000000046}"
major = 9
minor = 6
'Reference cleanup function
For Each vbRef In vbRefs
If vbRef.Name = libname Then
'problem occurs here
vbRefs.Remove Reference:=vbRef
End If
Next
'add Ref
vbRefs.AddFromGuid guid:=guid,major:=major,minor:=minor
End Function
解决方法
解决方案:
Sub Workbook_Open()
Call add_outlook
End Sub
- 不能单步执行代码
- 触发Workbook_open事件时获取参考
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。