VBA访问编译错误变量

我有这个剧本，我想用移动的存档文件夹，这是我的代码：VBA访问编译错误变量

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

End Function

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

来源

2013-08-21 ELS31987

在设置...行之前添加'Dim FSO As Object'。 –

感谢它现在工作。 – ELS31987

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

Dim FSO As FileSystemObject

另外，还要确保你有检查Microsoft脚本运行时参考。

来源

2013-08-21 18:14:52

好吧，我添加了维度，它工作。谢谢 – ELS31987

我刚刚测试了代码，它的工作原理。确保Option Explicit不是On，并确保已经包含了您在代码中使用的所有库。

编辑：这是不是很好的做法，让选项显式关闭，所以如果你想保持它，确保所有的变量声明和你的库包括在内。

来源

2013-08-21 18:16:51 jlaverde

好的，谢谢我会检查出选项显式。 – ELS31987

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

来源

2015-02-02 07:48:56

VBA访问编译错误变量

回答

相关问题