vba - 对象 'VBE' 的方法 '_Application' 失败

Question

我的一个客户在运行下面的 Excel VBA 代码时遇到问题。他收到以下错误对象“_Application”的方法“VBE”失败，但只有一次，在他打开 VBE 后，它开始工作。而且，直到昨天为止，它还对他有效。

他正在使用 Excel 2010。

这是引发错误的代码。

For Each f In Application.VBE.ActiveVBProject.VBComponents
    If InStr(1, f.Name, "UserForm") = 1 Then
        Application.VBE.ActiveVBProject.VBComponents.Remove (f)
    End If
Next f

Answer 1

您需要通过导航到 Excel 选项中的信任中心来确保对 VBE 的访问是可信的。

对 VBComponent 的某些操作要求 VBE 至少打开一次，或者至少 VBA 在尝试枚举 vbComponent 之前引用了 VBE。

您的客户端代码可能正在 auto_open 过程或 Workbook_Open 事件中运行。如果您在枚举 vbComponents 之前显式添加一行引用 VBE，您可能会发现代码再次开始工作。

Debug.Assert Application.VBE.ActiveVBProject.Name <> vbNullString

For Each f In Application.VBE.ActiveVBProject.VBComponents
    If InStr(1, f.Name, "UserForm") = 1 Then
        Application.VBE.ActiveVBProject.VBComponents.Remove (f)
    End If
Next f

请参阅此问题的答案中的详细信息: VBA changing sheet codename Run-Time Error 9: Subscript out of range