1ファイルなら数分でも、10ファイル・20ファイルと増えると一気に負担になります。しかもコピペの貼り付け位置を間違えると、データがずれて気づかないこともあります。

そんな繰り返し作業こそ、VBA（マクロ）の出番です。一度コードを書いておけば、ボタン1つでCSVの取り込みが一瞬で終わります。この記事では、CSVを読み込むコードと書き出すコードを、コピペで動く形で順番に見ていきましょう。

VBAでCSVを読み込む・書き出すとは？

VBAでCSVを扱うとは、マクロを使ってCSVファイルの取り込みと出力を自動化することです。読み込みは「CSVの中身をExcelシートに展開する処理」を指します。書き出しは「シートのデータをCSVファイルとして保存する処理」のことです。

手作業とVBAで、どれくらい差が出るのか比べてみましょう。

ポイントは、ファイル数が増えるほど効果が大きくなることです。フォルダの中のCSVを全部まとめて処理する、といった芸当もマクロなら簡単にできます。

CSVを扱う方法は大きく2つあります。1つは昔からある「Open文」、もう1つは「FileSystemObject（エフエスオー）」です。まずは両方の基本を押さえて、後半で使い分けを解説していきましょう。

CSVファイルの中身はただのテキスト

CSVは「Comma Separated Values」の略で、カンマで区切られたテキストファイルです。Excelで開くと表のように見えますが、中身はメモ帳で開けるただの文字列です。

氏名,部署,売上
田中,営業1課,150000
佐藤,営業2課,98000

このように、1行が1レコード、カンマが列の区切りになっています。VBAでは、この「1行ずつ読む」「カンマで分ける」という流れでデータを扱うと覚えておきましょう。

VBEの起動とコードの準備

CSV処理のコードを書く前に、VBA専用のエディタ「VBE（Visual Basic Editor）」を開きます。ここがマクロを書く作業場所です。

VBE（Visual Basic Editor）の開き方

VBEを開く方法は2つあります。

1. キーボードで Alt + F11 を押す（一番手軽です）
2. リボンの「開発」タブ →「Visual Basic」をクリックする

「開発」タブが見当たらない場合は、次の手順で表示できます。

1. 「ファイル」→「オプション」を開く
2. 「リボンのユーザー設定」を選ぶ
3. 右側の一覧で「開発」にチェックを入れる
4. 「OK」を押す

これでリボンに「開発」タブが追加されているはず。

標準モジュールの挿入

VBEが開いたら、コードを書く場所「標準モジュール」を追加します。

1. メニューの「挿入」→「標準モジュール」をクリックする
2. 画面に白いコード入力エリアが表示される

この白い画面に、これから紹介するコードを貼り付けて使います。準備はこれだけです。

基本コード｜Open文でCSVを読み込む

まずは一番シンプルな方法、Open文でCSVを読み込むコードです。下のコードをそのままコピペすれば動きます。

Sub CSV読み込み_Open()
    Dim sFilePath As String '読み込むCSVのパス
    Dim sLine As String '1行分の文字列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号

    sFilePath = "C:datasample.csv" 'CSVのパスを指定
    iRow = 1 '1行目から書き込む

    Open sFilePath For Input As #1 'ファイルを読み込みモードで開く
    Do Until EOF(1) 'ファイルの末尾まで繰り返す
        Line Input #1, sLine '1行を読み込む
        vData = Split(sLine, ",") 'カンマで分割する
        '--- 分割した値をセルに書き込む ---
        Dim iCol As Long '列番号
        For iCol = 0 To UBound(vData)
            Cells(iRow, iCol + 1).Value = vData(iCol)
        Next iCol
        iRow = iRow + 1 '次の行へ
    Loop
    Close #1 'ファイルを閉じる

    MsgBox "読み込みが完了しました" '完了メッセージ
End Sub

sFilePath の部分を、自分のCSVファイルのパスに書き換えてください。実行すると、アクティブなシートの1行目からデータが展開されます。

実行方法は2通りです。VBE上で F5 キーを押すか、Excelに戻って「開発」タブ →「マクロ」から CSV読み込み_Open を選んで実行します。

コードの仕組みを理解する

このコードがやっていることを、順番に見ていきましょう。難しく見えますが、流れはとてもシンプルです。

1. Open sFilePath For Input As #1 でCSVを読み込み用に開く
2. Do Until EOF(1) でファイルの最後まで1行ずつ処理する
3. Line Input #1, sLine で1行を文字列として読み込む
4. Split(sLine, ",") でカンマごとに分けて配列にする
5. Cells(iRow, iCol + 1) で各セルに書き込む
6. Close #1 でファイルを閉じる

#1 は「ファイル番号」と呼ばれる目印です。複数ファイルを同時に開くときは #2、#3 と番号を変えます。EOF は「End Of File」の略で、ファイルの終わりを意味します。

基本コード｜CSVを書き出す

次は逆方向、シートのデータをCSVファイルとして書き出すコードです。集計結果を他システムに渡したいときに重宝するでしょう。

Sub CSV書き出し_Open()
    Dim sFilePath As String '書き出すCSVのパス
    Dim iLastRow As Long '最終行
    Dim iLastCol As Long '最終列
    Dim iRow As Long '行カウンター
    Dim iCol As Long '列カウンター
    Dim sLine As String '1行分の文字列

    sFilePath = "C:dataoutput.csv" '保存先のパスを指定
    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行を取得
    iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column '最終列を取得

    Open sFilePath For Output As #1 'ファイルを書き込みモードで開く
    For iRow = 1 To iLastRow '1行目から最終行まで
        sLine = "" '行の文字列を初期化
        For iCol = 1 To iLastCol '1列目から最終列まで
            sLine = sLine & Cells(iRow, iCol).Value 'セルの値を連結
            If iCol < iLastCol Then sLine = sLine & "," '区切りのカンマを追加
        Next iCol
        Print #1, sLine '1行をファイルに書き出す
    Next iRow
    Close #1 'ファイルを閉じる

    MsgBox "書き出しが完了しました" '完了メッセージ
End Sub

このコードは、シートの使われている範囲を自動で判定してCSVに出力します。iLastRow と iLastCol で、データがどこまで入っているかを取得しているのがポイントです。

最終行の取得については、Excel VBAで最終行を取得する方法でくわしく解説しています。データ範囲を正しく取れないと書き出しが途中で切れるので、あわせて確認しておきましょう。

Print #1, sLine で1行ずつファイルに書き込みます。最後のカンマが余計に付かないよう、If iCol < iLastCol Then で制御しているところも実務では大事です。

FileSystemObjectでCSVを扱う方法

Open文と並んでよく使われるのが、FileSystemObject（FSO）。FSOは、ファイルやフォルダを扱うための専用オブジェクトで、コードが読みやすくなるのが特長です。

FSOを使うには2つの書き方があります。1つは事前バインディング（参照設定が必要）、もう1つは遅延バインディング（参照設定が不要）です。配布しやすいのは、参照設定がいらない遅延バインディングです。

Sub CSV読み込み_FSO()
    Dim oFSO As Object 'FileSystemObject
    Dim oStream As Object 'テキストストリーム
    Dim sLine As String '1行分の文字列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号
    Dim iCol As Long '列番号

    Set oFSO = CreateObject("Scripting.FileSystemObject") 'FSOを生成
    Set oStream = oFSO.OpenTextFile("C:datasample.csv", 1) '読み込みモードで開く
    iRow = 1 '1行目から書き込む

    Do Until oStream.AtEndOfStream 'ファイルの末尾まで繰り返す
        sLine = oStream.ReadLine '1行を読み込む
        vData = Split(sLine, ",") 'カンマで分割する
        '--- 分割した値をセルに書き込む ---
        For iCol = 0 To UBound(vData)
            Cells(iRow, iCol + 1).Value = vData(iCol)
        Next iCol
        iRow = iRow + 1 '次の行へ
    Loop

    oStream.Close 'ストリームを閉じる
    Set oStream = Nothing 'オブジェクトを解放
    Set oFSO = Nothing 'オブジェクトを解放

    MsgBox "読み込みが完了しました" '完了メッセージ
End Sub

OpenTextFile の第2引数 1 が「読み込みモード」を表します。書き出すときは 2（上書き）または 8（追記）を使いましょう。処理の流れはOpen文とほぼ同じで、1行ずつ読んでカンマで分割しています。

Open文とFileSystemObjectの使い分け

ここがこの記事の核心です。どちらを使うべきか、判断基準を表にまとめました。

ざっくりした使い分けはこうです。1ファイルだけ素早く処理するならOpen文が向いています。フォルダ内の一覧を扱ったり複数ファイルをまとめて処理するならFSOが便利です。

迷ったらFSOを選んでおけば、後からフォルダ処理に発展させるときに楽です。次の応用編でその威力がわかるでしょう。

実践コード｜フォルダ内のCSVを全件一括処理する

ここからが本番です。「毎日届くCSVが溜まっているフォルダを、まとめて1枚のシートに統合したい」という実務ニーズに応えるコードを紹介します。FSOのフォルダ操作が活躍する場面。

Sub CSV一括取り込み()
    Dim oFSO As Object 'FileSystemObject
    Dim oFolder As Object '対象フォルダ
    Dim oFile As Object '個々のファイル
    Dim oStream As Object 'テキストストリーム
    Dim sFolderPath As String '対象フォルダのパス
    Dim sLine As String '1行分の文字列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号
    Dim iCol As Long '列番号

    sFolderPath = "C:datacsv" '対象フォルダを指定
    iRow = 1 '1行目から書き込む

    Set oFSO = CreateObject("Scripting.FileSystemObject") 'FSOを生成
    Set oFolder = oFSO.GetFolder(sFolderPath) 'フォルダを取得

    '--- フォルダ内のファイルを1つずつ処理 ---
    For Each oFile In oFolder.Files
        '--- 拡張子がcsvのファイルだけ対象にする ---
        If LCase(oFSO.GetExtensionName(oFile.Name)) = "csv" Then
            Set oStream = oFSO.OpenTextFile(oFile.Path, 1) '読み込みモードで開く
            Do Until oStream.AtEndOfStream '末尾まで繰り返す
                sLine = oStream.ReadLine '1行を読み込む
                vData = Split(sLine, ",") 'カンマで分割する
                For iCol = 0 To UBound(vData)
                    Cells(iRow, iCol + 1).Value = vData(iCol)
                Next iCol
                iRow = iRow + 1 '次の行へ
            Loop
            oStream.Close 'ストリームを閉じる
        End If
    Next oFile

    Set oStream = Nothing 'オブジェクトを解放
    Set oFolder = Nothing 'オブジェクトを解放
    Set oFSO = Nothing 'オブジェクトを解放

    MsgBox "フォルダ内のCSVをすべて取り込みました" '完了メッセージ
End Sub

このコードのキモは For Each oFile In oFolder.Files の部分です。フォルダの中のファイルを1つずつ取り出して、CSVだけを順番に取り込んでいます。

For Each の使い方はExcel VBAでFor Each Nextを使う方法でくわしく解説していますので、ご覧ください。

GetExtensionName で拡張子を調べ、csv のファイルだけ処理するようにしています。これでフォルダにExcelファイルやテキストファイルが混ざっていても安全です。

変更すべき箇所は sFolderPath の1行のみ。自分のCSVが入っているフォルダのパスに書き換えてください。末尾の「」を忘れないのがポイントです。

1行目のヘッダーをスキップしたいとき

複数ファイルを統合すると、各CSVの見出し行（ヘッダー）が何度も繰り返されてしまいます。これを防ぐには、各ファイルの1行目を読み飛ばす処理を追加しましょう。

Dim isFirstLine As Boolean '1行目かどうかの判定
isFirstLine = True 'ファイルごとにTrueにリセット

Do Until oStream.AtEndOfStream
    sLine = oStream.ReadLine '1行を読み込む
    '--- 1行目（ヘッダー）はスキップする ---
    If isFirstLine Then
        isFirstLine = False
    Else
        vData = Split(sLine, ",")
        For iCol = 0 To UBound(vData)
            Cells(iRow, iCol + 1).Value = vData(iCol)
        Next iCol
        iRow = iRow + 1
    End If
Loop

isFirstLine というフラグを使って、ファイルの最初の1行だけ書き込みをスキップしています。ファイルごとに True へ戻すのを忘れないようにしてください。

文字コードのトラブル対処（Shift-JIS/UTF-8）

CSV処理でつまずきやすいのが、文字化けです。CSVには主に「Shift-JIS」と「UTF-8」という2つの文字コードがあります。これが合っていないと、日本語が「譁・喧縺・」のように崩れてしまうので気をつけましょう。

Open文や OpenTextFile は、基本的にShift-JISとして読み込みます。最近の業務システムはUTF-8で出力することが多いので、ここで文字化けが起きやすいのです。

UTF-8のCSVを正しく読むには、ADODB.Streamというオブジェクトを使いましょう。文字コードを指定して読み込めるのが利点です。

Sub UTF8のCSV読み込み()
    Dim oStream As Object 'ADODB.Stream
    Dim sText As String '読み込んだ全文
    Dim vLines As Variant '行ごとの配列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号
    Dim iCol As Long '列番号
    Dim i As Long '行ループ用

    Set oStream = CreateObject("ADODB.Stream") 'ストリームを生成
    oStream.Charset = "UTF-8" '文字コードをUTF-8に指定
    oStream.Open 'ストリームを開く
    oStream.LoadFromFile "C:datautf8.csv" 'ファイルを読み込む
    sText = oStream.ReadText '全文をテキストとして取得
    oStream.Close 'ストリームを閉じる
    Set oStream = Nothing 'オブジェクトを解放

    vLines = Split(sText, vbCrLf) '改行で行に分割
    iRow = 1 '1行目から書き込む
    For i = 0 To UBound(vLines)
        If vLines(i) <> "" Then '空行はスキップ
            vData = Split(vLines(i), ",") 'カンマで分割
            For iCol = 0 To UBound(vData)
                Cells(iRow, iCol + 1).Value = vData(iCol)
            Next iCol
            iRow = iRow + 1 '次の行へ
        End If
    Next i

    MsgBox "UTF-8のCSVを読み込みました" '完了メッセージ
End Sub

oStream.Charset = "UTF-8" の1行で文字コードを指定するのがポイントです。Shift-JISのファイルなら "Shift_JIS" に変えれば対応できます。

文字化けの原因と対処を体系的に知りたい方は、ExcelでCSVが文字化けする原因と直し方もどうぞ。手作業での開き方も含めて整理しています。

よくあるエラーと対処法

CSV処理でよく出るエラーと、その対処法をまとめました。エラーメッセージが出ても、原因がわかれば落ち着いて対応できます。

特に多いのが、ファイルを開いたまま書き出そうとして起きる「実行時エラー'70'」です。出力先のCSVをExcelやメモ帳で開いていないか、まず確認してください。

実務で使うなら、エラーが出ても処理が止まらないようにエラーハンドリングを入れておくと安心です。On Error GoTo の使い方はVBAのエラーハンドリング完全ガイドでくわしく解説しています。

マクロが無効になっていないか確認する

書いたマクロが動かないときは、ファイルの保存形式やセキュリティ設定が原因かもしれません。次の2点を確認してください。

1. ファイルを「Excelマクロ有効ブック（.xlsm）」で保存しているか
2. マクロのセキュリティ設定でマクロが許可されているか

通常の .xlsx 形式で保存すると、マクロが消えてしまいます。マクロを含むファイルは必ず .xlsm で保存しましょう。これはCSV処理に限らず、すべてのVBA作業で共通の注意点です。

まとめ

VBAを使えば、手作業で繰り返していたCSVの取り込みと書き出しを、ボタン1つで自動化できます。最後にポイントを整理しておきます。

• 読み込みの基本: Open ～ For Input または FSOの OpenTextFile で1行ずつ読む
• 書き出しの基本: Open ～ For Output で Print #1 を使って1行ずつ書く
• 使い分け: 1ファイルならOpen文、フォルダ一括処理ならFileSystemObject
• 一括処理: For Each oFile In oFolder.Files でフォルダ内のCSVを全件処理
• 文字化け対処: UTF-8のCSVはADODB.Streamで文字コードを指定して読む
• 保存形式: マクロを含むファイルは必ず .xlsm で保存する

毎月のCSV取り込みに30分かかっていた作業も、自動化すれば数秒で終わるでしょう。初回のコード作成だけがんばれば、あとはずっと時短の恩恵を受けられます。まずはこの記事の基本コードをコピペして、sFilePath を自分のファイルに書き換えるところから試してみてください。

VBAの基本構文をテーマ別に学び直したい方は、こちらの記事もあわせてどうぞ。

• 繰り返し処理の基本はExcel VBAでFor文を使う方法
• コレクション処理はExcel VBAでFor Each Nextを使う方法
• セル操作の基本はExcel VBAでRangeを使う方法
• 最終行取得はExcel VBAで最終行を取得する方法

VBA全体を体系的に学びたい方もいるでしょう。入門ハブ記事のExcel VBAでマクロ自動化を始めるための完全ガイドも参考にしてください。

ファイル整理は地味ですが、毎月くり返すと意外と時間を取られますよね。フォルダを作り、ファイルを探し、コピーして、また確認して。この一連の作業こそ、VBAで自動化したいポイントです。

そこで活躍するのが FileSystemObject（FSO） です。この記事では、FSOの準備から、フォルダの自動作成・ファイルの存在確認・一覧取得・コピーまでを解説します。月次フォルダの自動仕分けなど、コピペで使える実務コードも紹介していきますね。

VBA FileSystemObject（FSO）とは？

FileSystemObjectは、Windowsのファイル操作をVBAから命令できるオブジェクトです。「FSO」と略されます。

イメージは「ファイル係の司令塔」です。普段あなたがエクスプローラーで手動でやっている操作を、コードで指示できます。

具体的には、次のような操作ができます。

• フォルダを作る・あるか調べる
• ファイルがあるか調べる
• フォルダの中のファイル一覧を取り出す
• ファイルをコピー・移動・削除する
• ファイル名や拡張子、更新日時を取り出す

FSOは Microsoft Scripting Runtime という部品に含まれる機能の一つ。Windowsに標準で入っているので、特別なインストールは不要です。

NOTE

VBE（Visual Basic Editor）は Alt + F11 で起動します。リボンから開く場合は「開発」タブ →「Visual Basic」を選びます。

「開発」タブが表示されていないときは、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。

VBEが開いたら「挿入」→「標準モジュール」でコードを書く場所を作ります。画面構成がわからない方は、VBE画面の見方の記事も参考にしてみてください。

FileSystemObjectを使う準備（参照設定とCreateObject）

FSOを使うには、最初にオブジェクトを生成する必要があります。生成方法は2通りあります。

方法1: 参照設定する（事前バインディング）

VBEのメニューから「ツール」→「参照設定」を開きます。一覧から Microsoft Scripting Runtime にチェックを入れます。これで準備完了。

Sub UseEarlyBinding()
    Dim fso As Scripting.FileSystemObject 'ファイル操作オブジェクト
    Set fso = New Scripting.FileSystemObject

    MsgBox fso.FolderExists("C:Temp") 'C:Tempがあるか判定
End Sub

参照設定すると、入力中に候補が出る入力補完（IntelliSense）が効きます。コードが書きやすくなるので、自分のPCで使う場合はこちらがおすすめです。

方法2: CreateObjectで生成する（実行時バインディング）

参照設定をせずに、コード内でオブジェクトを直接生成する方法です。

Sub UseLateBinding()
    Dim fso As Object 'ファイル操作オブジェクト
    Set fso = CreateObject("Scripting.FileSystemObject")

    MsgBox fso.FolderExists("C:Temp") 'C:Tempがあるか判定
End Sub

CreateObjectは参照設定が不要です。そのため、ファイルを他の人に配布する場合に向いています。環境ごとの設定差を気にしなくていいのも魅力。

TIP

迷ったら CreateObject を選んでおくと安全です。参照設定はファイルごとに必要で、配布先で外れていると動かなくなります。本記事のコードはすべてCreateObjectで統一しています。

FileSystemObjectの基本メソッド一覧（フォルダ・ファイル操作）

FSOでよく使うメソッドとプロパティを、まず一覧で見ておきましょう。後のセクションで1つずつコード付きで解説します。

フォルダ操作

ファイル操作

パス・名前の操作

Fileオブジェクトの主なプロパティ

フォルダの存在確認と自動作成（FolderExists / CreateFolder）

まずはフォルダ操作からです。実務でいちばん多いのが「フォルダがなければ作る」という処理です。

FolderExists：フォルダがあるか調べる

FolderExists は、指定したフォルダがあるかを True / False で返します。

Dim fso As Object 'ファイル操作オブジェクト
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FolderExists("C:Temp2026") Then
    MsgBox "フォルダがあります"
Else
    MsgBox "フォルダがありません"
End If

CreateFolder：フォルダを作る

CreateFolder は、新しいフォルダを作ります。

fso.CreateFolder "C:Temp2026" 'フォルダを新規作成

ここでの注意点は2つ。まず、既に同じフォルダがあるとエラーになります。次に、作れるのは1階層だけです。

たとえば C:Temp がないのに C:Temp2026 を一度に作ろうとするとエラーになります。

そこで実務では、FolderExists で確認してから CreateFolder する形が定番。

Dim fso As Object 'ファイル操作オブジェクト
Dim targetPath As String '作りたいフォルダのパス
Set fso = CreateObject("Scripting.FileSystemObject")
targetPath = "C:Temp2026"

'--- フォルダがなければ作る ---
If Not fso.FolderExists(targetPath) Then
    fso.CreateFolder targetPath
    MsgBox "フォルダを作成しました"
Else
    MsgBox "フォルダは既にあります"
End If

If Not fso.FolderExists(...) で「なければ」を判定しています。これでエラーを防ぎながら安全にフォルダを用意できます。条件分岐の書き方はIf文の使い方をご覧ください。

NOTE

多階層のフォルダ（例: C:Temp20264）を一度に作りたい場合は、親から順に作る必要があります。C:Temp → C:Temp2026 → C:Temp20264 の順です。後ほどの実務パターン1で、この処理を関数にまとめた例を紹介します。

ファイルの存在確認・一覧取得・コピー削除（FileExists / GetFolder / CopyFile）

続いてファイル操作です。次の3つを押さえれば、実務はほぼカバーできるでしょう。

• ファイルがあるか確認する
• フォルダ内の一覧を取る
• コピーする

FileExists：ファイルがあるか調べる

FileExists は、指定したファイルがあるかを True / False で返します。

If fso.FileExists("C:Tempreport.xlsx") Then
    MsgBox "ファイルがあります"
Else
    MsgBox "ファイルがありません"
End If

上書き保存の前や、コピーの前に「すでにあるか」を確認するときに使います。

GetFolderとFiles：フォルダ内のファイル一覧を取る

フォルダ内のファイルを1つずつ処理したいとします。このときは GetFolder でフォルダを取得し、Files コレクションを For Each で回す流れ。

Sub ListFiles()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim fol As Object '対象フォルダ
    Dim f As Object '取り出す1ファイル
    Dim msg As String '一覧の文字列

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder("C:Temp") '対象フォルダを取得

    '--- フォルダ内のファイル名を1つずつ集める ---
    For Each f In fol.Files
        msg = msg & f.Name & vbCrLf
    Next f

    MsgBox msg
End Sub

For Each f In fol.Files で、フォルダの中のファイルを1つずつ取り出しています。f.Name でファイル名が取れます。ループの基本はFor Eachの使い方も参考にしてください。

拡張子で絞り込む

一覧の中から「Excelファイルだけ」を選びたいときは、GetExtensionName で拡張子を調べます。

For Each f In fol.Files
    If fso.GetExtensionName(f.Name) = "xlsx" Then
        msg = msg & f.Name & vbCrLf '拡張子がxlsxのものだけ集める
    End If
Next f

GetExtensionName は拡張子だけを返します。ドット（.）は含まないので、"xlsx" のように比較します。

CopyFile・MoveFile・DeleteFile：コピー・移動・削除

ファイルのコピー・移動・削除は、それぞれ1行で完結。

fso.CopyFile "C:Tempreport.xlsx", "C:Backupreport.xlsx" 'コピー
fso.MoveFile "C:Tempold.xlsx", "C:Archiveold.xlsx" '移動
fso.DeleteFile "C:Tempunused.xlsx" '削除

NOTE

CopyFile は、コピー先に同じ名前のファイルがあると既定で上書きします。上書きしたくない場合は、第3引数に False を指定します（fso.CopyFile 元, 先, False）。

この場合、同名ファイルがあるとエラーになります。コピー前に FileExists で確認すると、より安全です。

【実務】FileSystemObjectの活用コード3選

ここからは、実務でそのまま使えるパターンを3つ紹介します。どれもコピペして動かせるコード。

パターン1: 月次報告書を年月フォルダに自動仕分け

C:報告書 に 2026-04_営業報告.xlsx のようなファイルがあるとします。ファイル名の先頭から年月フォルダ（C:報告書2026-04）を作り、そこへ移動するコードです。

Sub SortReportsByMonth()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim fol As Object '元フォルダ
    Dim f As Object '処理するファイル
    Dim baseFol As String '振り分け元のパス
    Dim ym As String '年月（フォルダ名）
    Dim destFol As String '移動先フォルダのパス

    Set fso = CreateObject("Scripting.FileSystemObject")
    baseFol = "C:報告書"
    Set fol = fso.GetFolder(baseFol)

    '--- ファイルを1つずつ確認して年月フォルダに移動する ---
    For Each f In fol.Files
        ym = Left(f.Name, 7) 'ファイル名先頭の"2026-04"を取り出す
        destFol = baseFol & "" & ym

        '--- 年月フォルダがなければ作る ---
        If Not fso.FolderExists(destFol) Then
            fso.CreateFolder destFol
        End If

        fso.MoveFile f.Path, destFol & "" & f.Name '移動
    Next f

    MsgBox "仕分けが完了しました"
End Sub

ポイントは2つ。

• Left(f.Name, 7) でファイル名の先頭7文字（2026-04）を取り出し、フォルダ名にしていること
• 移動前に FolderExists で確認し、なければ CreateFolder で作っていること

これで「フォルダがない」エラーを防げます。

TIP

ファイル名のルールに合わせて Left(f.Name, 7) の文字数を変えてください。2026年04月 のような形式なら、文字数を調整するか、Mid 関数で必要な部分を切り出します。

パターン2: 指定フォルダ内のExcelファイルを一括処理

C:データ フォルダのExcelファイルを順番に開くコードです。A1セルにファイル名を書き込み、保存して閉じます。複数ファイルへの定型処理の土台。

Sub ProcessAllExcelFiles()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim fol As Object '対象フォルダ
    Dim f As Object '処理するファイル
    Dim wb As Workbook '開いたブック

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder("C:データ")

    Application.ScreenUpdating = False '画面更新を止めて高速化

    '--- フォルダ内のxlsxファイルを順に開いて処理する ---
    For Each f In fol.Files
        If fso.GetExtensionName(f.Name) = "xlsx" Then
            Set wb = Workbooks.Open(f.Path) 'ファイルを開く
            wb.Worksheets(1).Range("A1").Value = f.Name 'A1に処理を書き込む
            wb.Close SaveChanges:=True '保存して閉じる
        End If
    Next f

    Application.ScreenUpdating = True '画面更新を戻す
    MsgBox "一括処理が完了しました"
End Sub

fso.GetExtensionName(f.Name) = "xlsx" でExcelファイルだけに絞っています。Workbooks.Open で開いたブックは、処理後に必ず Close で閉じます。セルの操作はRangeの使い方も参考にしてください。

NOTE

一括処理では、自分自身（マクロを書いたブック）を開きにいかないよう注意してください。マクロブックを処理対象フォルダの外に置くのが安全です。同じフォルダに置く場合は、If f.Name <> ThisWorkbook.Name Then で自分を除外します。

パターン3: 存在確認してから安全にバックアップする

ファイルをバックアップフォルダにコピーするコードです。元ファイルの有無とバックアップ先フォルダの有無を両方確認してから実行します。

Sub SafeBackup()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim srcFile As String 'コピー元ファイル
    Dim destFol As String 'バックアップ先フォルダ

    Set fso = CreateObject("Scripting.FileSystemObject")
    srcFile = "C:Tempreport.xlsx"
    destFol = "C:Backup"

    '--- 元ファイルがなければ中止する ---
    If Not fso.FileExists(srcFile) Then
        MsgBox "コピー元のファイルがありません"
        Exit Sub
    End If

    '--- バックアップ先フォルダがなければ作る ---
    If Not fso.FolderExists(destFol) Then
        fso.CreateFolder destFol
    End If

    fso.CopyFile srcFile, destFol & "" & fso.GetFileName(srcFile) 'コピー実行
    MsgBox "バックアップが完了しました"
End Sub

fso.GetFileName(srcFile) で元ファイルの名前だけを取り出し、コピー先のパスを組み立てています。先に FileExists と FolderExists でチェックしているので、途中でエラーが出ません。Exit Sub で安全に中断する書き方も覚えておくと便利です。

FileSystemObjectでよくあるエラーと対処法

NOTE

FSOを使うマクロは、必ず マクロ有効ブック（.xlsm） で保存してください。通常の .xlsx で保存すると、マクロが消えてしまいます。ファイル形式の違いは.xlsxと.xlsmの違いで解説しています。

Dir関数との使い分け

ファイル操作には、FSO以外に Dir関数 という方法もあります。VBA組み込みの関数で、参照設定なしで使えます。

両者の違いを整理しておきましょう。

使い分けの目安

• 単純な存在確認・1フォルダの列挙だけ → Dir関数でも十分
• サブフォルダまで再帰的に探す・ファイル情報を取る・読みやすさ重視 → FSO

TIP

Dir関数は、ループの途中で別のDir呼び出しを挟むと検索状態が壊れます。一方FSOは Files コレクションを For Each で回すだけなので、こうした落とし穴がありません。複雑な処理ほどFSOが安全です。

まとめ

VBA FileSystemObjectは「Windowsのファイル操作をVBAから命令できる」オブジェクトです。

• 準備は CreateObject(“Scripting.FileSystemObject”) が配布向きで安全
• フォルダは FolderExists で確認してから CreateFolder で作る（既存だとエラー・1階層のみ）
• ファイルは FileExists で確認、GetFolder + Files で一覧取得、CopyFile / MoveFile / DeleteFile で操作
• 拡張子の絞り込みは GetExtensionName が便利
• 単純な処理は Dir関数、複雑な処理や再帰探索は FSO と使い分ける

まずは「フォルダがなければ作る」のコードをVBEに貼り付けて、動きを確かめてみてください。月次の手作業がボタン1つに変わると、ファイル整理がぐっと楽になりますよ。

ファイル操作を覚えたら、次はVBA学習ロードマップで全体の学習ステップを確認してみましょう。

関連記事

• Dictionary（連想配列）の使い方｜重複削除・高速集計を実務コードで解説
• For Eachの使い方｜セル・シート・配列を一括処理
• Do Loopの使い方｜Do While・Do Untilを4パターンで解説
• Rangeの使い方｜セルの指定・範囲操作を基本から解説
• 最終行を取得する方法｜End(xlUp)とCells.Countの使い方
• If文の使い方｜条件分岐を基本から実務まで解説
• VBA変数の使い方
• .xlsxと.xlsmの違い｜マクロ有効ブックの保存形式
• VBE画面の見方｜ウィンドウの名前と役割を整理
• VBA学習ロードマップ