复制打开的Excel文件 [英] Copy Open Excel File

问题描述

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

I want copy target macro to new location:

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

发生错误

权限被拒绝

permission denied

如何复制打开的Excel文件?

How can copy an Excel file that is open?

推荐答案

您可以使用Scripting.FileSystemObject

Sub test()

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

End Sub

这篇关于复制打开的Excel文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！