「E:\1.xlsx」のパスのファイルを指定の場所にコピーします。 Sub Sample78() FileCopy "E:\1.xlsx", "C:\Users\Public\Documents\2.xlsx" End Sub