Copy Open Excel File

Question

I want copy target macro to new location:

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

it occur error

permission denied

How can copy an Excel file that is open?

`ActiveWorkbook.SaveCopyAs strDes` Using `SaveAs` will replace the current workbook with the new copy — Tom, Dec 11 '19 at 10:26
https://stackoverflow.com/questions/18899824/how-to-use-vba-saveas-without-closing-calling-workbook/18901568 — Siddharth Rout, Dec 11 '19 at 10:27

score 1 · Accepted Answer · answered Dec 11 '19 at 10:29

1

You may copy the opened file using Scripting.FileSystemObject

Sub test()

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

End Sub

answered Dec 11 '19 at 10:29

omegastripes

11,971
4
40
81

Copy Open Excel File

1 Answers1