【VBAリファレンス】Excel VBAでファイルを自在に操る｜Nameステートメントによるファイル移動と名前変更の完全ガイド

ExcelVBA

2026.09.10

概要：VBAにおけるファイル操作の重要性

Excel VBAを活用する現場において、ファイル操作は避けて通れない重要なタスクです。特に、毎日届く大量のCSVファイルを特定のフォルダへ振り分けたり、処理済みのファイルをアーカイブフォルダへ移動させたりする作業は、事務効率化の要と言えます。VBAでファイルを移動、あるいは名前を変更する際に最も基本的かつ強力な手段となるのが「Nameステートメント」です。

Nameステートメントは、VBAに標準搭載されている非常に軽量な命令です。外部ライブラリの参照設定を行う必要もなく、記述も極めてシンプルです。しかし、そのシンプルさゆえに、エラーハンドリングやパスの指定方法といった基礎を疎かにすると、予期せぬ実行時エラーに直面することになります。本稿では、ベテラン講師の視点から、Nameステートメントを実務で「安全かつ確実」に使いこなすための技術を網羅的に解説します。

詳細解説：Nameステートメントのメカニズム

Nameステートメントの基本構文は「Name 旧パス As 新パス」です。ここで重要なのは、この命令が単なる「移動」だけでなく「名前の変更」も担っているという点です。

同じフォルダ内でパスを指定すれば「名前の変更」となり、異なるフォルダパスを指定すれば「ファイルの移動」となります。つまり、VBAの内部論理としては、ファイル操作において「移動」と「リネーム」を区別していないのです。

この命令を使う上で最も注意すべき点は、移動先に同名のファイルが存在する場合です。もし移動先フォルダに同名のファイルが既に存在していると、Nameステートメントは「実行時エラー 58：ファイルが既に存在します」を返します。この仕様のため、実務コードにおいては、移動を実行する前に「移動先に同名ファイルがないか」を確認するロジック、あるいは「既存ファイルを上書きするのか、別名で保存するのか」といった判断をプログラム側で制御する必要があります。

また、移動させようとしているファイルが現在他のアプリケーション（ExcelやWordなど）で開かれている場合も、Nameステートメントはエラーを返します。ファイルのロック状態を考慮に入れたプログラム設計こそが、プロフェッショナルとアマチュアを分かつ境界線となります。

サンプルコード：安全なファイル移動の実装

以下に、実務でそのまま利用できる、堅牢なファイル移動用プロシージャのサンプルを示します。このコードでは、移動元の有無確認、移動先の重複確認、そしてエラーハンドリングを網羅しています。


Sub MoveFilePro()
    Dim sourcePath As String
    Dim targetPath As String
    Dim fso As Object
    
    ' 移動元のパスと移動先のパスを設定
    sourcePath = "C:\Data\Input\Report.xlsx"
    targetPath = "C:\Data\Archive\Report_20231027.xlsx"
    
    ' ファイルの存在確認
    If Dir(sourcePath) = "" Then
        MsgBox "移動元のファイルが見つかりません。", vbCritical
        Exit Sub
    End If
    
    ' 移動先に同名ファイルがある場合の処理（今回は上書き防止のため中断）
    If Dir(targetPath) <> "" Then
        MsgBox "移動先に同名のファイルが存在します。処理を中断します。", vbExclamation
        Exit Sub
    End If
    
    ' エラーハンドリングを組み込んで実行
    On Error GoTo ErrorHandler
    Name sourcePath As targetPath
    
    MsgBox "ファイルの移動が完了しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "エラー番号: " & Err.Number & vbCrLf & _
           "エラー内容: " & Err.Description, vbCritical
End Sub

このコードのポイントは、Dir関数を使用して「移動元の存在確認」と「移動先の重複確認」を事前に行っている点です。いきなりNameステートメントを叩くのではなく、環境の整合性を担保してから実行するのが、堅牢なVBAコードの鉄則です。

実務アドバイス：なぜNameステートメントが選ばれるのか

実務現場では、FileSystemObject（FSO）を使用する方法もよく紹介されます。確かにFSOは、フォルダの作成や属性の変更など多機能ですが、単純なファイルの移動や名前変更に関しては、Nameステートメントの方が圧倒的に高速で、コードの記述量も少なくて済みます。

また、Nameステートメントは「相対パス」でも動作しますが、実務では必ず「フルパス」で指定することを強く推奨します。VBAはカレントディレクトリが動的に変化することがあるため、相対パスに依存すると、思わぬフォルダにファイルが飛んでいくリスクがあるからです。

さらに、業務効率化の観点から言えば、Nameステートメントは「ループ処理」との相性が抜群です。例えば、特定のフォルダにある全てのExcelファイルを一括でアーカイブフォルダに移動させるような場合、Dir関数やFileSystemObjectのGetFolderメソッドと組み合わせてループを回すことで、数千ファイルの整理も一瞬で終わらせることが可能です。この際、移動先のフォルダパスが事前に存在していることを保証する関数（Dir関数でAttributes引数を指定して確認する）を併用すると、さらに安定性が高まります。

プロフェッショナルへの道：拡張性とメンテナンス性

中級者から上級者へステップアップするためには、単に「移動する」だけでなく、移動後のパスをログとして残したり、移動に失敗した際にリトライ処理を行ったりする「運用設計」が必要です。

例えば、ネットワークドライブ上のファイルを移動する場合、一時的な通信断絶によりエラーが発生することがあります。このようなケースでは、エラーハンドリングの中で1秒程度の待機時間を設けて再試行するロジックを組むだけで、システムの信頼性は飛躍的に向上します。

また、コードの再利用性を高めるためには、移動元と移動先のパスを引数として受け取る「汎用的な関数」として切り出すべきです。


Function SafeMoveFile(source As String, target As String) As Boolean
    ' 成功すればTrue、失敗すればFalseを返す汎用関数
    On Error Resume Next
    Name source As target
    If Err.Number = 0 Then
        SafeMoveFile = True
    Else
        SafeMoveFile = False
    End If
    On Error GoTo 0
End Function

このように、小さな部品を積み重ねて大きなシステムを構築する姿勢こそが、ベテランエンジニアの流儀です。

まとめ：Nameステートメントを極める

Nameステートメントは、Excel VBAにおけるファイル操作の「基本にして究極」の手段です。そのシンプルな構文の裏には、OSレベルでのファイル管理という深い世界が広がっています。

1. 必ずフルパスで指定する。
2. Dir関数を用いて、移動元・移動先の状態を事前にチェックする。
3. エラーハンドリングを実装し、予期せぬ停止を防ぐ。
4. 汎用的な関数化を行い、コードのメンテナンス性を維持する。

これら4つのルールを守るだけで、あなたの書くVBAコードは、単なる「動くコード」から「業務を止めない信頼性の高いツール」へと進化します。ファイル操作は日常的な作業だからこそ、その自動化には高い品質が求められます。今日からぜひ、あなたのVBAプロジェクトに、この「安全なNameステートメント」を取り入れてみてください。Excel VBAの可能性を最大限に引き出し、より高度で効率的な自動化環境を構築していきましょう。