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"

Answer 2

使用 FileCopy 对我来说也不起作用，但使用 FileSystemObject 中的 CopyFile 似乎有效。

首先，您需要将引用（菜单：工具 -> 引用）添加到 Microsoft 脚本运行时，然后使用 FileSystemObject

Dim fso As FileSystemObject
Set fso = New FileSystemObject

fso.CopyFile currentDir & "\" & Filename, otherDir & "\" & Filename, True
''the last parameter decides weather or not you want to overwrite existing files

Set fso = Nothing

替代方案：将文档保存到新目标，然后将其保存回来。

ThisWorkbook.SaveAs otherDir & "\" & Filename
ThisWorkbook.SaveAs currentDir & "\" & Filename