Function 未定义VBA Access编译错误变量

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

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

End Function

---

现在，当我运行它时，我得到了未定义的编译错误变量。有人能帮我找到解决这个错误的最佳方法吗。

我想你可能忘了给物体标注尺寸，我猜是用了：

Dim FSO As FileSystemObject

---

还要确保已检查Microsoft脚本运行时的引用。

我刚刚测试了代码，它正常工作。确保Option Explicit未处于启用状态，并确保代码中包含了您正在使用的所有库

---

编辑：关闭Option Explicit（选项显式）不是一个好的做法，所以如果您确实想保持它的打开状态，请确保声明了所有变量并包含了库。

还要注意，在关闭define variable（定义变量）选项后，现有模块不会更改，也就是说，现有模块将继续使用Option Explicit（选项显式）。在这种情况下，您需要将代码复制到一个新模块。

在

设置之前添加
将FSO作为对象调整
。

行。谢谢，它现在可以工作了。