未定义VBA Access Compile Error变量

Question

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

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

End Function

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

Answer 1

我刚刚测试了代码并且它有效。确保Option Explicit不是On，并确保包含您在代码中使用的所有库。

编辑：选择显式关闭不是一个好习惯，所以如果你想保持它，请确保声明所有变量并包含你的库。

Answer 2

我想你可能已经忘记了对象的维度，我猜是使用：

Dim FSO As FileSystemObject

还要确保已检查Microsoft Scripting Runtime的引用。

Answer 3

另请注意，在将define变量选项置为OFF后，​​现有模块将不会更改，即现有模块将继续具有Option Explicit。在这种情况下，您需要将代码复制到新模块。