【VBA：Tips】ファイルのコピー

VBAでファイルをコピーする方法として、FileSystemObjectのCopyFileを使用することで実現できます。

FileSystemObjectは、ファイルシステムオブジェクトを操作するための標準ライブラリであり、ファイルやフォルダの作成や削除、コピー、移動などを簡単に行うことができます。

CopyFileメソッドは、コピー元のファイルパスとコピー先のファイルパスを指定して利用します。

ここでは、FileSystemObjectのCopyFileを使ってVBAでファイルをコピーする方法について説明します。

【サンプルソース】ファイルのコピー（コピー元ファイルと同じフォルダにコピー）

以下は、FileSystemObjectのCopyFileを使用してVBAでファイルをコピーするサンプルソースです。

Sub copyFile()
    Dim motoFile As String
    Dim sakiFile As String
    Dim fso As Object
    
    ' コピー元ファイルを指定
    motoFile = "D:\200_work\100_sample\AAA\A001.txt"
    
    ' コピー先ファイルを指定
    sakiFile = "D:\200_work\100_sample\AAA\A001_COPY.txt"
    
    ' FileSystemObjectを生成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ファイルをコピー
    fso.copyFile motoFile, sakiFile, True
    
    ' メモリ解放
    Set fso = Nothing
    
    MsgBox "ファイルをコピーしました。"

End Sub

上記のサンプルソースでは、以下の流れで処理しています。

コピー元ファイルを指定する
コピー先ファイルを指定する
FileSystemObjectを作成する
ファイルをコピーする

CopyFileメソッドの引数は以下を指定します。

コピー元ファイルパス
コピー先ファイルパス
コピー先ファイルを上書きしてよいか（True：許可、False：許可しない）

注意点としては、指定したコピー元ファイルが存在しない場合、エラーが発生します。

コピー先ファイルを上書きしてよいかで「False：許可しない」を指定したときに
すでにコピー先ファイルが存在しているとエラーが発生します。

【サンプルソース】ファイルのコピー（別フォルダに同名でコピー）

以下は、FileSystemObjectのCopyFileを使用してVBAでコピー元ファイル名と同じファイル名で別フォルダにコピーするサンプルソースです。

Sub copyFileSameName()
    Dim motoFile As String
    Dim sakiFile As String
    Dim fso As Object
    
    ' コピー元ファイルを指定
    motoFile = "D:\200_work\100_sample\AAA\A001.txt"
    
    ' コピー先フォルダを指定
    sakiFile = "D:\200_work\100_sample\AAA\BBB\"
    
    ' FileSystemObjectを生成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ファイルをコピー
    fso.copyFile motoFile, sakiFile, True
    
    ' メモリ解放
    Set fso = Nothing
    
    MsgBox "ファイルをコピーしました。"

End Sub

上記のサンプルソースでは、以下の流れで処理しています。

コピー元ファイルを指定する
コピー先フォルダを指定する（※パスの末尾を\にすること）
FileSystemObjectを作成する
ファイルをコピーする

CopyFileメソッドの引数は以下を指定します。

コピー元ファイルパス
コピー先フォルダパス
コピー先ファイルを上書きしてよいか（True：許可、False：許可しない）

注意点としては、指定したコピー元ファイルが存在しない場合、エラーが発生します。
コピー先フォルダパスの末尾は\を指定することでフォルダパスと認識されます。
末尾に\をつけないと、そういうファイル名にして欲しいと認識されます。

【サンプルソース】ファイルのコピー（指定フォルダ内の全ファイルをコピー）

以下は、FileSystemObjectのCopyFileを使用してVBAでコピー元フォルダ内の全ファイルをコピー先フォルダにコピーするサンプルソースです。

Sub copyFileAll()
    Dim motoFile As String
    Dim sakiFile As String
    Dim fso As Object
    
    ' コピー元フォルダを指定
    motoFile = "D:\200_work\100_sample\AAA\*"
    
    ' コピー先フォルダを指定
    sakiFile = "D:\200_work\100_sample\BBB\"
    
    ' FileSystemObjectを生成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ファイルをコピー
    fso.copyFile motoFile, sakiFile, True
    
    ' メモリ解放
    Set fso = Nothing
    
    MsgBox "ファイルをコピーしました。"

End Sub

上記のサンプルソースでは、以下の流れで処理しています。