VBA将自身复制到其他位置

Question

我在 VBA 中有一个 Excel 宏，我想将其中执行宏的文件复制到另一个位置。

我尝试过这样的

Call FileCopy(currentDir & "\" & Filename, _
otherDir & "\" & Filename)

但是我收到访问受限异常，尽管我对所有涉及的目录具有完全访问权限。是因为我想“复制自己”吗？这可能吗？如果没有，我可以构建一个解决方法吗？

Answer 1

尝试使用

ThisWorkbook.SaveCopyAs otherDir & "Test1"

或

ThisWorkbook.SaveAs otherDir & "Test2"

ThisWorkbook 指的是包含您正在运行的宏的工作簿...

更新:这应该可以帮助您创建文件夹...

确保在“工具”->“引用”下添加“Microsoft Scripting Runtime”。

 Dim fso As FileSystemObject
 Set fso = New FileSystemObject
 fso.CreateFolder ("C:\test\test2")
 ThisWorkbook.SaveCopyAs "c:\test\test2\ttt.xlsm"