0

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

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

End Function

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

4

3 回答 3

1

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

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

于 2013-08-21T18:16:51.530 回答
0

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

Dim FSO As FileSystemObject

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

于 2013-08-21T18:14:52.353 回答
0

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

于 2015-02-02T07:48:56.973 回答