在Excel 2010上编译错误，但在Excel 2003上不编译

Question

我无法解释此简单代码有什么问题。 它可以在Excel 2003上完美运行，但在Excel 2010中显示：

编译错误：未定义功能子。

谁能解释为什么Excel 2010出现错误？

Sub Test_File_Opened()
    If IsFileOpen("D:\Test.xls") Then
        MsgBox "File is open!"
    Else
        MsgBox "File is closed!"
    End If
End Sub

Answer 1

IsFileOpen函数不存在于您的代码中，这是唯一可能的解释。 您必须在VBA模块中的某个位置声明它。

这里有几件事要检查 ：

• 您拼错了程序名称吗？
• 尝试从另一个项目调用过程，而无需在“引用”对话框中显式添加对该项目的引用。
• 指定对调用过程不可见的过程。
• 声明不在指定库或代码资源中的Windows动态链接库（DLL）例程或Macintosh代码资源例程。

Answer 2

IsFileOpen不是VBA内置函数。 它可能来自此Microsoft页面 （由rusk在评论中指出），并且该代码仅需要在新的Excel 2010工作簿中可用，例如粘贴到模块中。

为什么在Excel 2003工作簿中但在2010工作簿中可用？ 可能是各种各样的东西。 在另一个模块中，您没有将其复制到新工作簿中。 它是当前当前安装的Excel 2010中未提供的加载项等。您没有提供足够的信息来正确诊断问题，但是如上所述，无论如何，补救措施是相同的。