function - VBA访问编译错误变量未定义

Question

我有这个脚本，我想用它来移动文件夹以进行存档，这是我的代码：

Public Function modbalsmovearhive()
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "H:\Credit_Bals*.xls", "H:\Bals_Archive\"

End Function

现在，当我运行它时，我得到未定义的编译错误变量。有人可以帮助我解决此错误的最佳方法。

Answer 1

我刚刚测试了代码，它可以工作。确保 Option Explicit 未打开，并确保已在代码中包含您正在使用的所有库。

编辑：将 Option Explicit Off 关闭不是一个好习惯，因此如果您确实想保持它，请确保声明所有变量并包含您的库。

Answer 2

我想你可能忘记了标注对象的尺寸，我猜想使用：

Dim FSO As FileSystemObject

还要确保您已检查 Microsoft Scripting Runtime 的参考。

Answer 3

另请注意，将定义变量选项关闭后，现有模块不会改变，即现有模块将继续具有选项显式。在这种情况下，您需要将代码复制到新模块。