更新日：、 作成日：

VBA ファイルの移動

はじめに

Excel VBA マクロでファイルを移動する方法を紹介します。

MoveFile 関数を使って、指定したファイルを他のフォルダに移動できます。

ワイルドカードを使って複数のファイルや全てのファイルをまとめて移動できます。

フォルダを移動するには「フォルダの移動」をご覧ください。

FileSystemObject について

ここでは VBA の標準の関数より便利な FileSystemObject を使った方法を紹介しています。基本的な使い方については「FileSystemObject ファイル操作の基礎」をご覧ください。

コードを見やすくするため FileSystemObject を参照設定しています。また、エラー処理は行っていません。

ファイルの移動

指定したファイルの移動

Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

Call fso.MoveFile("D:\Tips.txt", "D:\TipsFolder\TipsMove.txt") ' ファイル名を指定して移動
Call fso.MoveFile("D:\Tips.txt", "D:\TipsFolder\") ' 同じファイル名で移動 (D:\TipsFolder\Tips.txt)

' 後始末
Set fso = Nothing

fso.MoveFile 関数で指定したパスのファイルを移動します。

第 1 (source) 引数に移動するファイルのパスを指定します。ファイルが存在しないときはエラーが発生します。パスにはワイルドカードを指定できますが、詳しくは下記の「複数のファイルの移動」をご覧ください。

第 2 (destination) 引数に移動先のパスを指定します。ファイル名を含めるとそのファイル名で移動します。パスの最後を \ 記号にすると、そのフォルダの中に同じファイル名で移動します。フォルダが存在しないときはエラーが発生します。既に同じ名前のファイルが存在するときはエラーが発生します。上書きはできません。

フォルダ内のファイルを移動

Dim fso As FileSystemObject
Set fso = New FileSystemObject

Dim fl As Folder
Set fl = fso.GetFolder("D:\") ' フォルダを取得

Dim f As File
For Each f In fl.Files ' フォルダ内のファイルを取得
    If f.Name = "Tips.txt" Then                   ' フォルダ内の移動したいファイル
        Call f.Move("D:\TipsFolder\TipsMove.txt") ' ファイル名を指定して移動
        Call f.Move("D:\TipsFolder\")          ' 同じファイル名で移動 (D:\TipsFolder\Tips.txt)
    End If
Next

' 後始末
Set fso = Nothing

fso.GetFolder 関数で指定したパスの Folder オブジェクトを取得します。フォルダが存在しないときはエラーが発生します。

fl.Files プロパティから、そのフォルダの File オブジェクトの一覧を取得できます。

f.Name プロパティから、そのファイルの拡張子付きの名前を取得できます。これで移動したいファイルか判定します。

f.Move 関数でそのファイルを移動します。使い方は上記で説明した fso.MoveFile 関数と同じです。MoveFile の第 1 (source) 引数に、そのファイルのパスが渡されます。

複数のファイルを移動

Dim fso As FileSystemObject
Set fso = New FileSystemObject

Call fso.MoveFile("D:\Tips*.txt", "D:\TipsFolder\") ' 複数のファイルをまとめて移動
Call fso.MoveFile("D:\*", "D:\TipsFolder\")         ' 全てのファイルをまとめて移動

' 後始末
Set fso = Nothing

fso.MoveFile 関数の第 1 (source) 引数にワイルドカードを指定して、一致する複数のファイルをまとめて移動できます。1 つもファイルが一致しないときはエラーが発生します。

使用できるワイルドカードには次のものがあります。

パターン 説明 使用例 一致例
*任意の長さの文字 (0 文字以上)あ*あ, あい, あいう
?任意の1文字 または 0 文字あ?あい, あか, あき

D:\Tips*.txt を指定すると次のファイルが一致します。

D:\Tips.txt
D:\Tips1.txt
D:\Tips12.txt
D:\Tips123.txt

D:\Tips?.txt を指定すると次のファイルが一致します。

D:\Tips.txt
D:\Tips1.txt
D:\Tips2.txt

D:\TipsFolder\* を指定すると、TipsFolder フォルダ内のすべてのファイルと一致します。

第 2 (destination) 引数には必ずパスの最後を \ 記号にしてフォルダを指定します。フォルダが存在しないときはエラーが発生します。

ワイルドカードに一致したすべてのファイルが指定したフォルダに移動されます。

移動中に既にファイルが存在してエラーが発生したときは、そこで処理が中断されます。それ以降のファイルは移動されません。

著者：Tipsfound