2020年12月1日火曜日

【マクロ】複数ファイルを別フォルダにコピーする

 Sub 複数のファイルをコピー()

'Dドライブのabcフォルダにある全てのcsvファイルを

'Dドライブのxyzフォルダにコピーする

Dim cop As Object

Set cop = CreateObject("Scripting.FileSystemObject")

cop.CopyFile "\D:\abc\*.csv", "D:\xyz\"

Set cop = Nothing

End Sub