我要将目标宏复制到新位置:
Dim strDes As String
strDes = "D:\" & ActiveWorkbook.Name
FileCopy ActiveWorkbook.FullName, strDes
发生错误
权限被拒绝
如何复制打开的Excel文件?
答案 0 :(得分:1)
您可以使用Scripting.FileSystemObject
Sub test()
src = ThisWorkbook.FullName
dest = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
CreateObject("Scripting.FileSystemObject").CopyFile src, dest
End Sub