我有这个脚本,我想用它来移动文件夹以进行存档,这是我的代码:
Public Function modbalsmovearhive()
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "H:\Credit_Bals*.xls", "H:\Bals_Archive\"
End Function
现在,当我运行它时,我得到未定义的编译错误变量。有人可以帮助我解决此错误的最佳方法。
我有这个脚本,我想用它来移动文件夹以进行存档,这是我的代码:
Public Function modbalsmovearhive()
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "H:\Credit_Bals*.xls", "H:\Bals_Archive\"
End Function
现在,当我运行它时,我得到未定义的编译错误变量。有人可以帮助我解决此错误的最佳方法。
我刚刚测试了代码,它可以工作。确保 Option Explicit 未打开,并确保已在代码中包含您正在使用的所有库。
编辑:将 Option Explicit Off 关闭不是一个好习惯,因此如果您确实想保持它,请确保声明所有变量并包含您的库。
我想你可能忘记了标注对象的尺寸,我猜想使用:
Dim FSO As FileSystemObject
还要确保您已检查 Microsoft Scripting Runtime 的参考。
另请注意,将定义变量选项关闭后,现有模块不会改变,即现有模块将继续具有选项显式。在这种情况下,您需要将代码复制到新模块。