复制打开的Excel文件

问题描述 投票:1回答:1

我要将目标宏复制到新位置:

Dim strDes As String
strDes = "D:\" & ActiveWorkbook.Name
FileCopy ActiveWorkbook.FullName, strDes

发生错误

拒绝权限

如何复制打开的Excel文件?

excel vba
1个回答
1
投票

您可以使用Scripting.FileSystemObject复制打开的文件

Sub test()

    src = ThisWorkbook.FullName
    dest = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
    CreateObject("Scripting.FileSystemObject").CopyFile src, dest

End Sub

推荐问答