● 他のプログラムが開いているファイルをコピーできるVBAサンプル
(方法)
@下のソースを実行したい箇所に張りつけます。
Aコピーするファイル名とコピー後につけるファイル名を、フォルダから通しのフルパスで指定します。
Dim FSO
Dim READ_FILE_title as String
Dim WRITE_FILE_title as String
READ_FILE_title = "C:\test.dat"
WRITE_FILE_title = "C:\test_copy.dat"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.GetFile(READ_FILE_title).Copy WRITE_FILE_title
Set FSO = Nothing
|