【VBAで文字列を一括置換】複数のテキストファイルを１回で変更

あなたは日々のお仕事で

『テキストファイルの中身をチョット置換したいだけ』

なんだけど…

『置換するファイル数が膨大でウンザリ！』

といった経験はないでしょうか？

こんな時は、プログラムで一気に置換してサッサと仕事を終わりたいですよね！

サッサと終わる手段として、職場でインストールされてるExcelのVBAが使えます。

『VBAでテキストファイルを一括置換する方法は？』

こんな疑問に答えます。

SE歴25年のオッサンが解説するぞい！

ＳＥおっさん

VBAのReplace関数文字列の置換

VBAで文字列を置換したい場合は、Replace関数を使用します。

テキストファイル内の文字列や、Excel内の文章の一括置換もReplace関数で置換できます。
※オートシェイプ図形のテキスト文字はReplace関数で置換できません。一括置換したい場合はこちら
　【VBAで文字列を一括置換】Excelのセルとオートシェイプ図形

たろちゃん

Replace関数を使って文字を置換するんだね！

ＳＥおっさん

大文字・小文字等を区別は、
引数６番目の比較するモード[compare]で設定するぞい

Replace関数：文字列の置換の使用例

Replace関数の使用例も欲しいナ…

たろちゃん

ＳＥおっさん

使用例を紹介するぞい

使用例１(必須引数のみ)

置換結果 = Replace("abcde", "bc", "XY")

置換結果は”abXYe”となります。

使用例２(必須引数のみ)

置換結果 = Replace("abcde", "BC", "XY")

置換結果は”abcde”となります。

必須引数のみの場合、バイナリモードで比較します。

バイナリモードは大文字・小文字を区別するモードです。

検索する文字列”BC”に対し、置換前の文字列には小文字の”bc”しか存在しませんので、検索対象外となり置換されません。

使用例３(任意引数あり)

次に指定が任意である引数６「比較モード(compare)」を指定する使用例を紹介します。

以下、比較モード(compare)の設定例です。

置換結果 = Replace("abcde", "BC", "XY", compare:=vbTextCompare)

置換結果は”abXYe”となります。

良く使う比較モードは２つのみ。他は覚えなくてOK。

Replace関数は引数を設定しなければ、半角・全角などを区別するバイナリモード置換します。

半角・全角、大文字・小文字を区別をしたくない場合は、引数のcompareをvbTextCompareに指定します。

４番目の引数にvbTextCompareを設定していますが…

６番目の引数の名前である”compare:=”と指定することで「引数６：比較方法」であることを認識させます。

任意引数の名前指定は、ちょっとしたテクニックです。

ＳＥおっさん

Replace関数は理解できたかのぅ

VBAで複数のテキストファイルから文字列を一括置換する

VBAで文字列を置換するにはReplace関数を利用しますが、テキストファイル内の文字列を置換してファイル出力するためには、テキストファイルの操作が必要です。

VBAでテキストファイルを操作する方法は２つあります。

1. ステートメントを使用する
2. FileSystemObjectを使用する

ここでは、シンプルなステートメントを使用する方法を紹介します。

ステートメントって何？

たろちゃん

ＳＥおっさん

ステートメントは命令の構文という意味じゃ
あまり深く考えなくて良いぞ

テキスト内の文字列を置換してファイル出力には、テキストファイル操作ステートメントとReplace関数を使用します

以下、テキスト内の文字列を一括置換してファイル出力する流れです。

一括置換といっても、内部処理としては１行ずつ処理します。

最終的に、一括置換してファイル出力される動きになるんです。

1. 入力ファイルを開く
2. 出力ファイルを開く
3. 入力ファイルから１件を読み込む
   最終行まで繰り返す
4. 読み込んだ文字列を置換する
5. 出力ファイルへ置換文字列を書き込む
6. 入力ファイルを閉じる
7. 出力ファイルを閉じる

やること結構いっぱいあるね

たろちゃん

ＳＥおっさん

１つ１つは簡単じゃよ
いまから詳しく説明するぞい

VBAでテキストファイルを操作するステートメント（命令）と順番

VBAでテキストファイルを操作する手順と使用するステートメントです。

Openステートメント（テキストファイルを開く）

テキストファイルを開く処理はOpenステートメントを使います。

ファイル操作で最初に行う処理です。

[ファイルの場所]

ファイルを開く場所です。
ダブルクォーテーションで囲った文字列で指定します。

[開くモード]

ファイルを開くモードです。

• Input
  入力モード（読み込みで使用）
• Output
  出力モード（書き込みで使用）
• Append
  追加モード（書き込みで使用）

OutputもApeendも書き込みで使用しますが、以下の違いがあります。

• Output…既存データは無視して書き込み
• Append…既存データに追記して書き込み

たろちゃん

読み込むファイル or 書き込むファイルは
開くモードで設定するんだね

[ファイル番号]

ファイル番号は開くファイルをプログラム上で特定させるために使用します。

このように他には存在しない値のことを、ユニーク値といいます。

未使用の番号を設定し、＃（シャープ）を先頭に付与します。

一般的にはFreeFileで空いているファイル番号を取得します。
⇒ファイル番号はユニーク値

変数xにファイル番号を格納する例

'変数xに空いているファイル番号を格納
dim x as integer
x= FreeFile

ＳＥおっさん

Openステートメントは理解できたかのぅ

Line Inputステートメント（データを読む）

テキストファイルからデータを１行読み込む処理は、Line Inputステートメントを使います。

読み込みは、先頭行から最終行まで順番に１行ずつ順番に処理されます。

テキスト内の全行を読み込むには…

行数の数だけLine Inputステートメントを呼び出す必要があるということです。

[ファイル番号]

Openステートメントで設定したファイル番号を指定します。

ファイル番号は開いたファイルを特定する番号です。

つまり、特定できるファイル番号を指定すると…

『どのファイルを対象に処理したら良いかわかる』という訳です。

この考え方は、次で説明するPrintステートメントでも、Closeステートメントでも同じです。

[変数]

開いたテキストファイルから１行を読み込んだ文字列が格納されます。

たろちゃん

Line Inputステートメントは入力ファイルで使うんだね！

Printステートメント（データを書く）

テキストファイルへデータを１行書き込む処理は、Printステートメントを使います。

[ファイル番号]

Openステートメントで設定したファイル番号を指定します。

[データ]

テキストファイルへ書き込むデータを設定します（変数でもOK）

ＳＥおっさん

Printステートメントは出力ファイルで使うんじゃ

Closeステートメント（テキストファイルを閉じる）

テキストファイルを閉じる処理はCloseステートメントを使います。

[ファイル番号]

Openステートメントで設定したファイル番号を指定します。

たろちゃん

Closeステートメントは簡単だね！

例１）VBAでテキストファイルを開いて読み込む

VBAでファイルを開いて読み込むサンプルです。

'ファイルを開いて読み込むサンプル
Dim ni as integer
Dim v as string

'// ファイル番号取得
ni = FreeFile

'// シーケンシャル入力モードでファイルを開く
Open "D:sample_input.txt" For Input As #ni

'// 入力ファイルのEOFまでループ
Do Until EOF(ni)

    '// 入力ファイルの行を読み込み
    Line Input #ni, v

    '// VBAのイミディエイトウィンドウに読み込んだ行を表示
    Debug.Print v

Loop

'// ファイルを閉じる
Close #ni

ＳＥおっさん

Debug.Print文はVBA開発環境のみ表示されるコマンドじゃ
イミディエイトウィンドウと呼ばれるエリアに表示される
イミディエイトウィンドウはCtrl+Gキーで表示されるぞい

例２）VBAでテキストファイルを開いて書き込む

VBAでファイルを開いて書き込むサンプルです。

'ファイルを開いて書き込むサンプル
Dim no as integer

'// ファイル番号取得
no = FreeFile

'// シーケンシャル出力モードでファイルを開く
Open "D:sample_output.txt" For Output As #no

'// 出力ファイルのデータを書き込み
Print #no, "abcdef"
Print #no, "ghijkl"
Print #no, "mnopqr"

'// ファイルを閉じる
Close #no

ＳＥおっさん

テキストファイル操作のステートメントは理解できたかのぅ

次は、テキスト操作と置換操作を組み合わせた一括置換のコードをご紹介します。

VBAでテキストファイルの文字を一括置換するサンプルコードとフローチャート

VBAでテキストファイルの文字を一括置換して出力する関数（サンプルソース）とフローチャートです。

ソースコードを見ても理解できない時、フローチャートが理解を助けてくれます。

プログラミング初心者にフローチャートは必要【実証済のメリット５つ】

【記号は５つ】フローチャートの書き方【初心者向け簡単マニュアル】

VBAでテキストファイルの文字を一括置換して出力するフローチャート

VBAでテキストファイルの文字を一括置換して出力フローチャートです。

入力ファイルが終端か確認しながら１行づつ読み込んで、置換後の文字列を出力します。

たろちゃん

フローチャートは理解しやすいね！

VBAでテキストファイルの文字を一括置換して出力する関数

VBAでテキストファイルの文字を一括置換して出力のサンプルソースです。

関数名は（CNV_TXTFILE）としています。

＃サンプルソースはGithubにあります。

'入力ファイルから出力ファイルへ文字列を置換して出力する関数
'引数１：入力ファイルパス
'引数２：出力ファイルパス
'引数３：置換前文字列
'引数４：置換後文字列
Private Sub CNV_TXTFILE(ByVal path_i  As String, ByVal path_o As String, search_str As String, replace_str As String)
    
    Dim ni as integer
    Dim no as integer
    Dim v  as string

    '// ファイル番号取得（入力ファイル）
    ni = FreeFile
    
    '// ファイルを開く（入力モード）
    Open path_i  For Input As #ni
    
    '// ファイル番号取得（出力ファイル）
    no = FreeFile

    '// ファイルを開く（出力モード）
    Open path_o For Output As #no

    '// 入力ファイルの終端までループ
    Do Until EOF(ni)
        '// 入力ファイルの読み込み（１行）
        Line Input #ni, v
        '// 読み込んだ文字列を置換
        v = Replace(v, search_str, replace_str)
        '// 出力ファイルを書き込み（１行：置換済）
        Print #no, v
    Loop
    
    '// ファイルを閉じる（入力ファイル）
    Close #ni
    '// ファイルを閉じる（出力ファイル）
    Close #no

End Sub

上記の自作関数（CNV_TXTFILE）の呼び出し例です。

call CNV_TXTFILE("D:sample_input.txt", "D:sample_output.txt", "おはよう", "こんにちは")

sample_input.txtに記載された全ての”おはよう”を”こんにちは”に置換してsample_output.txtに出力します。

※複数ファイルの文字列を置換する場合
引数１番目のファイルパスだけ変更して、ファイルの数だけ自作関数（CNV_TXTFILE）呼び出せばOKです。

ＳＥおっさん

ここまでが、
VBAでテキストファイル内の文字列を一括置換して出力する方法じゃよ
わかったかのぅ

Excelファイルのセル文字や図形を一括置換したい場合はこちら

【VBAで文字列を一括置換】Excelのセルとオートシェイプ図形

あなたは日々のお仕事で 『Excelの図形の文字をチョット置換したいだけ』 なんだけど… 『置換する数が膨大でウンザリ！』 といった経験はないでしょうか？ こん.....

複数ファイルの文字列を一括置換するVBAツール【無料で公開】

筆者が自作した文字列の一括置換をGithubに公開していますので紹介いたします。

本記事で記載した内容を使ってExcelVBAでツールとして作成したものです。

GitHubのファイル説明

• ファイル置換ツール.xlsm【メイン】
  文字列の一括置換ツールです
• CNV_FILE.bas
  本記事のサンプルソース「CNV_TXTFILE」です。
  入力テキストから出力テキストへ文字列を置換して出力する関数
• XLS_IN_OUT.bas
  本記事のサンプルソース「XLS_IN_OUT」です。
  入力ブックから出力ブックへ文字列を置換して出力

ファイル置換ツールの説明

• 用途
  設計書やソースの単純コンバージョンなど
• 機能
  ファイル内の文字を一括置換で出力
  ファイルの種類：テキストファイル／Excel（図形テキストもOK）
• 使用方法
  ボタンをクリックすると一括置換します。
  詳細はシートを参照ください

複数ファイルの文字列を一括置換ツールのダウンロード手順

複数ファイルの文字列を一括置換ツールのダウンロードする手順です。

１．こちら（Github）をクリック

２．「ファイル置換ツール.xlsm」をクリック

 

３．DownloadボタンをクリックするとPCへダウンロードされます

 

ダウンロードした「ファイル置換ツール.xlsm」を開くと…

こんな感じです。説明も記入しておりますのでご参照ください。

 

もしコンパイルエラーが出る場合は、下記の部分を修正してみてください。
近々、Githubも更新予定です。

×Declare Function SHCreateDirectoryEx …
○Declare PtrSafe Function SHCreateDirectoryEx …

コメントでご指摘いただき気付きました。

ＳＥおっさん

ご使用は自己責任でお願いするぞい

VBAで複数のテキストファイルから文字列を一括置換！　まとめ

いかがでしたでしょうか？

VBAで複数のテキストファイルから文字列を一括置換する方法をご紹介しました。

ポイントを振り返りましょう。

ポイントまとめ！

• 文字列の置換はReplace関数を使用する
• テキストファイルの入出力はファイル操作ステートメントを使用する

VBAで複数ファイルを一括置換して、速く仕事が終わってビールが飲めれば良いですね！

＃サンプルソースはGithubにあります。

ＳＥおっさん

ここまで読んでくれてありがとう！

「記事を読んでもわからないトコがある」「内容が変だよ」
という時は、お気軽にコメントください♪

「もっとＳＥおっさんに詳しく聞きたい。何かお願いしたい！」
という時は、ココナラまで。メッセージもお気軽に♪

LINEでのお問合わせも受付中！
LINE公式アカウント

メッセージをお待ちしています！

Follow @koisyo_ok

取得資格

• 応用情報技術者
• Oracle Master Gold
• Java SE Gold
• Java EE Webｺﾝﾎﾟｰﾈﾝﾄﾃﾞｨﾍﾞﾛｯﾊﾟ
• Python ｴﾝｼﾞﾆｱ認定ﾃﾞｰﾀ分析
• 簿記２級