vba - 有关调试特定于机器的 Excel VBA 问题的建议

Question

我有一个 Excel 工作簿，它依赖于其他 Excel 工作簿中的代码(这些依赖的 .xls 是 VB 级引用，即通过 VBA 编辑器中的“工具”->“引用”对话框)，以及一些对 dll 的依赖项，例如:微软脚本运行时Microsoft Forms 2.0 对象库

此表已在大约 20 台运行 Windows XP 和 Office XP 的计算机上运行了大约 2 年。最近我们收到了 3 台新机器(相同的操作系统，相同的 Office 版本)，但拒绝运行此表。当工作表打开时，它会抛出“编译错误”，并且 session 挂起。

如果我在“坏”机器上打开工作表，请按住左Shift键以停止宏运行，然后转到VBA编辑器->调试->编译VBAProject，它可以正常编译。然后我就可以保存该工作表并在“坏”机器上正常打开它。然而，这个新版本的工作表拒绝在“好”机器上运行!!

我认为“好”和“坏”机器上的某些 dll 之间一定存在某种版本不匹配。如何确定导致问题的原因？是否有任何工具可用于比较 com 组件的版本？

Answer 1

两个建议

1) 首先打开禁用宏的文件。然后检查VBA 编辑器|工具|引用文献。检查是否有任何缺失的引用文献，然后让我们知道它们是什么。我们将从那里拿走它。

2) 对于像“Microsoft Scripting Runtime Object Library”这样的引用，我从不使用早期绑定(bind)。早期绑定(bind)是造成此类错误的主要原因。仅供引用:早期绑定(bind)是通过 VBA 编辑器预先创建引用。工具|引用文献。我建议将您的代码更改为后期绑定(bind)。以下是使用“Microsoft Scripting Runtime Object Library”以及早期绑定(bind)和后期绑定(bind)的相同代码的 2 个示例

早期绑定(bind)示例

'~~> Set Reference to "Microsoft Scripting Runtime Object Library"

Sub EBExample()
    Dim FSO As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim FileItem As Scripting.File

    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder(SourceFolderName)

    For Each FileItem In SourceFolder.Files
        '~~> You code
    Next FileItem
End Sub

后期绑定(bind)示例

'~~> This doesn't need a reference
Sub LBExample()
    Dim FSO As Object, SourceFolder As Object, FileItem As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(SourceFolderName)

    For Each FileItem In SourceFolder.Files
        '~~> You code
    Next FileItem
End Sub

对于我来说，我使用早期绑定(bind)来利用智能感知，然后将其转换为后期绑定(bind)，以避免在分发代码之前使用特定于版本的代码。这样代码总是有效的。 :)

IMP 注意:在目标计算机未注册相关 dll 的情况下，后期绑定(bind)会失败。

推荐链接:

主题:在自动化中使用早期绑定(bind)和后期绑定(bind)

链接:http://support.microsoft.com/kb/245115

希望这有帮助

席德