【VBAリファレンス】ファイルをコピーする（FileCopyステートメント）の完全攻略と実務での活用術

スポンサーリンク

概要：VBAにおけるファイル操作の基本「FileCopy」

Excel VBAで自動化を行う際、避けて通れないのが「ファイル管理」の自動化です。日々の業務で、特定のフォルダーにあるテンプレートファイルを別名で保存したり、バックアップを作成したりする作業は非常に頻繁に発生します。こうしたファイルコピー処理を最短コードで実現するのが「FileCopyステートメント」です。

本記事では、VBAの初級者から中級者へステップアップするために不可欠なFileCopyの構文から、実務で遭遇するエラーの回避策、そしてより高度なファイル操作手法までを徹底的に解説します。単にファイルをコピーするだけでなく、実務環境で「壊れない」「止まらない」コードを書くための知見を詰め込みました。

詳細解説：FileCopyステートメントの仕様と注意点

FileCopyステートメントは、VBAの標準機能として提供されており、非常にシンプルかつ高速に動作します。その構文は以下の通りです。

FileCopy “コピー元のパス”, “コピー先のパス”

このステートメントの最大の特徴は、Windowsの「コピー＆ペースト」と同じ処理を、バックグラウンドで瞬時に実行できる点です。しかし、この簡便さゆえに注意すべき点がいくつかあります。

1. 閉じたファイル専用：FileCopyは「ファイル」そのものをコピーする機能です。Excelブックを開いたままコピーしようとすると、他のプロセスが使用中であるという理由でエラーになることがあります。
2. 上書きの強制：コピー先のパスに既に同名のファイルが存在する場合、FileCopyは確認なしで自動的に上書きします。これは便利な反面、誤操作によるデータ消失のリスクを伴います。
3. フォルダー作成不可：FileCopyは、コピー先のフォルダーが存在しない場合、エラー（実行時エラー76：パスが見つかりません）を返します。コピー先にディレクトリを自動作成する機能はないため、事前にフォルダーの有無を確認するロジックが必要です。

サンプルコード：実務で使える堅牢なファイルコピー処理

単にFileCopyを記述するだけではなく、実務では「エラーハンドリング」と「フォルダーの存在確認」を組み合わせるのが定石です。以下に、安全にファイルをコピーするためのサンプルコードを提示します。


Sub SafeFileCopy()
    Dim sourcePath As String
    Dim destPath As String
    Dim destFolder As String
    Dim fso As Object
    
    ' コピー元とコピー先の定義
    sourcePath = "C:\Users\Target\Data.xlsx"
    destPath = "C:\Users\Backup\Data_20231027.xlsx"
    destFolder = "C:\Users\Backup\"
    
    ' 1. コピー元の存在確認
    If Dir(sourcePath) = "" Then
        MsgBox "コピー元のファイルが見つかりません。" & vbCrLf & sourcePath, vbCritical
        Exit Sub
    End If
    
    ' 2. コピー先のフォルダー確認と作成
    If Dir(destFolder, vbDirectory) = "" Then
        MkDir destFolder ' フォルダーがない場合は作成
    End If
    
    ' 3. ファイルコピー実行
    On Error Resume Next
    FileCopy sourcePath, destPath
    
    If Err.Number <> 0 Then
        MsgBox "コピー中にエラーが発生しました：" & Err.Description, vbCritical
    Else
        MsgBox "コピーが完了しました。", vbInformation
    End If
    On Error GoTo 0
End Sub

このコードでは、Dir関数を使ってコピー元の有無を確認し、もしコピー先のフォルダーがなければMkDirで作成するという、現場の「お作法」を網羅しています。

実務アドバイス：FileCopyの限界とFSOの活用

FileCopyは非常に便利ですが、実務が複雑化してくると限界が見えてきます。例えば「ファイルの属性（読み取り専用など）を保持したい」「移動した後に元のファイルを削除して移動扱いにしたい」「ファイルの詳細な属性情報を取得したい」といった要望です。

このような場合には、VBAの標準機能である「FileSystemObject（FSO）」の使用を強く推奨します。FSOを使うことで、よりオブジェクト指向に近い柔軟なファイル操作が可能になります。

例えば、FSOを用いたコピー処理は以下のように記述します。


Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\Source\Data.xlsx", "C:\Dest\Data.xlsx", True ' Trueは上書き許可

FSOの利点は、「上書きの可否を引数で指定できること」や「ワイルドカードを使用して複数ファイルを一括コピーできること」です。大規模なファイル管理システムを構築する場合は、FileCopyステートメントよりもFSOをメインに採用するのがプロフェッショナルの選択です。

また、実務において最も重要なのは「パスの管理」です。ハードコーディング（パスを直接文字列で書くこと）は避け、`ThisWorkbook.Path` や `Environ(“USERPROFILE”)` を活用して、どの環境でも動作する動的なパス生成を心がけてください。

まとめ：正しい理解が自動化の第一歩

FileCopyステートメントは、VBAにおけるファイル操作の登竜門であり、同時に非常に強力なツールです。今回解説した「存在確認」「パスの管理」「エラー処理」という3つの柱を理解していれば、どのような業務要件にも対応できるはずです。

1. FileCopyはシンプルだが、上書きリスクとフォルダー未作成エラーに注意が必要。
2. 実務ではDir関数やMkDir関数を組み合わせ、堅牢なエラーハンドリングを行うこと。
3. より高度な操作や柔軟性が求められる場面では、FileSystemObject（FSO）への移行を検討する。

VBAによる自動化の本質は、単にコードを書くことではなく、「予期せぬ事態が起きてもシステムが停止しない仕組みを作ること」にあります。FileCopy一つをとっても、ただ動けば良いという段階から、保守性の高いコードへと昇華させていく。その積み重ねが、あなたを真のVBAエキスパートへと導くでしょう。

ぜひ、日々の業務でこのコードをテンプレートとして活用し、手作業によるファイル管理から脱却してください。あなたのExcelライフが、より効率的でミスのないものになることを期待しています。

スポンサーリンク
タイトルとURLをコピーしました