【VBAリファレンス】VBAで楽々！Shift_JISテキストファイルをUTF-8へ一括変換するサンプル集

概要

長年Excel VBAで様々な業務効率化のお手伝いをしてまいりましたが、中でも「ファイル操作」は非常に多くの場面で活用されています。特に、古いシステムや特定のアプリケーションで作成されたShift_JIS形式のテキストファイルを、現代の主流であるUTF-8形式に変換する必要に迫られるケースは少なくありません。手作業での変換は時間と労力がかかるだけでなく、ヒューマンエラーのリスクも伴います。

本記事では、Excel VBAを用いて、指定したフォルダ内のShift_JISテキストファイルをUTF-8形式に一括で変換するサンプルコードと、その詳細な解説を提供します。このサンプルを活用することで、煩雑なファイル変換作業を自動化し、業務効率を劇的に向上させることができるでしょう。初心者の方でも理解しやすいように、コードの各部分が何をしているのかを丁寧に解説していきます。

詳細解説

1. 変換の必要性

Shift_JISは、かつて日本語環境で広く利用されていた文字コードですが、現代ではUTF-8がデファクトスタンダードとなっています。UTF-8は、ASCII文字だけでなく、世界中のあらゆる言語の文字を表現できるため、Webサイトや様々なアプリケーションでの互換性が非常に高いです。

例えば、以下のような場合にShift_JISからUTF-8への変換が必要になります。

• Webアプリケーションにインポートする際に文字化けが発生する場合
• 複数のシステム間でデータを連携する際に文字コードの違いでエラーが発生する場合
• 最新のツールやエディタでファイルを開く際に文字化けする場合
• 多言語対応のシステムにデータを投入する場合

2. VBAでのファイル操作の基本

VBAでファイル操作を行うには、主に以下のオブジェクトやメソッドを利用します。

• FileSystemObject (FSO): ファイルやフォルダの作成、削除、コピー、移動、存在確認など、ファイルシステムに関する様々な操作を提供するオブジェクトです。
• OpenTextFile メソッド: FSOオブジェクトのメソッドで、テキストファイルを読み込みモードまたは書き込みモードで開きます。
• ReadAll メソッド: 開いたテキストファイルの内容をすべて文字列として読み込みます。
• Write メソッド: テキストファイルに文字列を書き込みます。
• Close メソッド: 開いたファイルを閉じます。

3. 文字コード変換の仕組み

VBAで文字コードを直接変換する機能は標準では提供されていません。そのため、一般的には、Shift_JISとして読み込んだ文字列を、UTF-8として再度書き出すという手順を踏みます。

具体的には、以下の流れで処理を行います。

1. 変換元のShift_JISファイルを指定したエンコーディング（この場合はShift_JIS）で開きます。
2. ファイルの内容を文字列として全て読み込みます。
3. 読み込んだ文字列を、指定したエンコーディング（この場合はUTF-8）で新しいファイルに書き込みます。

この際、VBAが内部的に文字列をどのように扱っているか、そしてファイル出力時にどのエンコーディングを指定するかが重要になります。

4. サンプルコードの解説

それでは、実際にShift_JISテキストファイルをUTF-8に一括変換するVBAコードを見ていきましょう。

サンプルコード1: 特定フォルダ内の全ファイルを変換

このコードは、指定した「変換元フォルダ」にある全てのテキストファイル（拡張子 .txt を想定）を、同じフォルダ内に「_utf8」という接尾辞を付けてUTF-8形式で保存します。

Sub ConvertShiftJIS_To_UTF8_Folder()

    Dim fso As Object
    Dim sourceFolder As String
    Dim targetFolder As String
    Dim fileName As String
    Dim fileFullName As String
    Dim fileContent As String
    Dim outputFileFullName As String
    Dim ts As Object ' TextStream

    ' --- 設定項目 ---
    sourceFolder = "C:\Temp\ShiftJIS_Files\" ' 変換したいShift_JISファイルがあるフォルダパス (末尾に \ をつける)
    ' ----------------

    ' FileSystemObjectを作成
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 変換元フォルダが存在するか確認
    If Not fso.FolderExists(sourceFolder) Then
        MsgBox "指定された変換元フォルダが存在しません: " & sourceSourceFolder, vbCritical
        Exit Sub
    End If

    ' 変換元フォルダ内の各ファイルを処理
    fileName = Dir(sourceFolder & "*.txt") ' .txtファイルのみを対象とする場合

    Do While fileName <> ""
        fileFullName = sourceFolder & fileName

        ' ファイルの内容をShift_JISで読み込む
        On Error Resume Next ' エラー発生時も処理を続行
        Set ts = fso.OpenTextFile(fileFullName, 1, False, 65001) ' 1: ForReading, 65001: UTF-8 (ただし、これは読み込み時の指定なので、Shift_JISとして読み込むために別の方法を使う)
        On Error GoTo 0

        ' --- Shift_JISとして読み込むための工夫 ---
        ' VBAのOpenTextFileは、デフォルトでANSI（Shift_JISに近い）で開くことが多いが、
        ' 明示的にShift_JISとして読み込むには、一度バイナリで読み込み、後で変換するのが確実。
        ' しかし、ここではより簡単な方法として、一旦VBAの標準的な読み込み（ANSI）で試みます。
        ' もし文字化けする場合は、後述の「より確実な方法」を参照してください。

        Dim inputStream As Object
        Dim outputStream As Object
        Dim buffer As String
        Dim encodedContent As String

        ' FileSystemObjectを再度使用し、テキストストリームで開く
        Set inputStream = fso.OpenTextFile(fileFullName, 1, False) ' 1: ForReading

        ' ファイルの内容を全て読み込む
        fileContent = inputStream.ReadAll
        inputStream.Close

        ' --- UTF-8へのエンコード ---
        ' VBAには直接的なエンコード変換関数がないため、ADO (ActiveX Data Objects) を利用するのが一般的。
        ' ADODB.Stream オブジェクトを使用する。
        Dim adostr As Object
        Set adostr = CreateObject("ADODB.Stream")

        With adostr
            .Charset = "Shift_JIS" ' 入力ストリームの文字コードを指定
            .Open
            .WriteText fileContent ' Shift_JISとして書き込む（VBAが内部で保持している文字コードで）

            .SaveToFile "C:\Temp\temp_encoded.txt", 2 ' 2: Overwrite
            .Close
        End With

        Set adostr = CreateObject("ADODB.Stream")
        With adostr
            .Charset = "UTF-8" ' 出力ストリームの文字コードを指定
            .Open
            .LoadFromFile "C:\Temp\temp_encoded.txt"
            encodedContent = .ReadText
            .Close
        End With
        ' 一時ファイルを削除
        fso.DeleteFile "C:\Temp\temp_encoded.txt", True

        ' --- UTF-8として保存 ---
        ' 出力ファイル名を決定 (例: original_file_utf8.txt)
        outputFileFullName = sourceFolder & fso.GetBaseName(fileName) & "_utf8" & fso.GetExtensionName(fileName)

        Set outputStream = fso.OpenTextFile(outputFileFullName, 2, True) ' 2: ForWriting, True: Create if not exist
        outputStream.Write encodedContent ' UTF-8として書き出す
        outputStream.Close

        Debug.Print "変換完了: " & fileName & " -> " & fso.GetFileName(outputFileFullName)

        ' 次のファイルを取得
        fileName = Dir
    Loop

    MsgBox "Shift_JISからUTF-8への一括変換が完了しました。", vbInformation

    ' オブジェクトの解放
    Set ts = Nothing
    Set fso = Nothing

End Sub

サンプルコード2: より確実なShift_JIS読み込みとUTF-8変換（ADO利用）

前述のサンプルコードでは、VBAの標準的な読み込み（ANSI）に依存していましたが、環境によってはShift_JISとして正しく認識されない場合があります。より確実な方法として、ADO (ActiveX Data Objects) の `Stream` オブジェクトを利用して、文字コードを指定して読み書きする方法を紹介します。

Sub ConvertShiftJIS_To_UTF8_Folder_ADO()

    Dim fso As Object
    Dim sourceFolder As String
    Dim fileName As String
    Dim fileFullName As String
    Dim outputFileName As String

    ' --- 設定項目 ---
    sourceFolder = "C:\Temp\ShiftJIS_Files\" ' 変換したいShift_JISファイルがあるフォルダパス (末尾に \ をつける)
    ' ----------------

    ' FileSystemObjectを作成
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 変換元フォルダが存在するか確認
    If Not fso.FolderExists(sourceFolder) Then
        MsgBox "指定された変換元フォルダが存在しません: " & sourceFolder, vbCritical
        Exit Sub
    End If

    ' 変換元フォルダ内の各ファイルを処理
    fileName = Dir(sourceFolder & "*.txt") ' .txtファイルのみを対象とする場合

    Do While fileName <> ""
        fileFullName = sourceFolder & fileName

        ' ADODB.Streamオブジェクトを使用してShift_JISからUTF-8へ変換
        Dim stream As Object
        Set stream = CreateObject("ADODB.Stream")

        On Error Resume Next ' エラー発生時も処理を続行

        With stream
            .Charset = "Shift_JIS" ' 入力ファイルの文字コードを指定
            .Open
            .LoadFromFile fileFullName ' Shift_JISとしてファイルを読み込む

            ' 出力ファイル名を決定 (例: original_file_utf8.txt)
            outputFileName = sourceFolder & fso.GetBaseName(fileName) & "_utf8" & fso.GetExtensionName(fileName)

            .SaveToFile outputFileName, 2 ' 2: Overwrite (UTF-8として保存される)
            .Close
        End With

        On Error GoTo 0

        ' エラーが発生しなかったか確認
        If Err.Number <> 0 Then
            MsgBox "ファイル '" & fileName & "' の変換中にエラーが発生しました。", vbExclamation
            Err.Clear
        Else
            Debug.Print "変換完了: " & fileName & " -> " & fso.GetFileName(outputFileName)
        End If

        ' 次のファイルを取得
        fileName = Dir
    Loop

    MsgBox "Shift_JISからUTF-8への一括変換が完了しました。", vbInformation

    ' オブジェクトの解放
    Set stream = Nothing
    Set fso = Nothing

End Sub

コードのポイント解説

• FileSystemObject (FSO): ファイルやフォルダの操作に不可欠なオブジェクトです。フォルダの存在確認、ファイル名の取得、パスの操作などを行います。
• Dir関数: 指定したパスに一致するファイル名を順次取得します。ループ処理でフォルダ内の全ファイルを対象にする際に使用します。
• OpenTextFile メソッド: テキストファイルを読み書きするために開きます。第1引数でモード（読み込み: 1, 書き込み: 2）、第2引数でファイルが存在しない場合の動作（True: 作成する, False: エラー）を指定します。
• ADODB.Stream オブジェクト: VBAで文字コードを指定してファイルを読み書きするための強力なツールです。
  • .Charset = "Shift_JIS": 入力ファイルの文字コードを指定します。
  • .LoadFromFile fileFullName: 指定した文字コードでファイルを読み込みます。
  • .SaveToFile outputFileName, 2: 指定した文字コード（ここではデフォルトでUTF-8として扱われる）でファイルを保存します。
• fso.GetBaseName(fileName): ファイル名から拡張子を除いた部分を取得します。
• fso.GetExtensionName(fileName): ファイル名から拡張子部分を取得します。
• On Error Resume Next / On Error GoTo 0: ファイルが存在しない、アクセス権がないなどのエラーが発生した場合に、処理を中断せずに続行するためのエラーハンドリングです。エラー発生後にErr.Numberでエラーコードを確認し、必要に応じて処理を行います。

実務アドバイス

1. 事前準備とバックアップ

どのような自動化処理を行う場合でも、必ず「事前のバックアップ」を推奨します。万が一、変換処理に問題が発生した場合でも、元のファイルがあれば復旧できます。

また、変換対象のファイルが格納されているフォルダを明確にし、必要であれば一時的な作業用フォルダを作成して、そこにファイルをコピーしてから処理を行うと、より安全に作業を進められます。

2. ファイル名の命名規則

変換後のファイル名に接尾辞（例: `_utf8`）を付けることで、元のファイルと変換後のファイルを区別しやすくなります。上記のサンプルコードでは `_utf8` を追加していますが、必要に応じて変更してください。

3. 対象ファイルの拡張子

サンプルコードでは `*.txt` と指定していますが、もし `.csv` や他の拡張子のファイルも対象にしたい場合は、`Dir` 関数の引数や、ループ処理の条件を適宜変更してください。例えば、複数の拡張子を対象にする場合は、以下のように記述できます。

' .txt または .csv ファイルを対象にする場合
fileName = Dir(sourceFolder & "*.txt")
Do While fileName <> ""
    ' 処理
    fileName = Dir
Loop

fileName = Dir(sourceFolder & "*.csv")
Do While fileName <> ""
    ' 処理
    fileName = Dir
Loop

あるいは、より汎用的にするには、フォルダ内の全ファイルを取得し、拡張子で判定する方法もあります。

Dim file As Object
For Each file In fso.GetFolder(sourceFolder).Files
    If LCase(fso.GetExtensionName(file.Name)) = "txt" Or LCase(fso.GetExtensionName(file.Name)) = "csv" Then
        ' 変換処理
    End If
Next file

4. エラーハンドリングの強化

上記サンプルコードでは基本的なエラーハンドリングを行っていますが、実務で利用する際には、より詳細なエラーログの出力や、特定のエラー発生時の処理（例: エラーファイルを別のフォルダに移動する）などを追加すると、運用の安定性が増します。

5. Unicode対応の確認

VBAの `String` 型は、内部的にはUnicodeで扱われます。そのため、一度VBAのメモリ上に読み込めば、文字コードの変換自体は比較的容易に行えます。しかし、テキストファイルとして保存する際のエンコーディング指定が重要です。ADO `Stream` オブジェクトの `.Charset` プロパティを正しく指定することで、目的のエンコーディングで保存できます。

6. Excel VBA以外の選択肢

もし、変換対象のファイル数が非常に多い（数万件以上）場合や、より複雑なファイル処理が必要な場合は、Pythonなどのスクリプト言語や、専用のファイル変換ツールを利用することも検討してみてください。ただし、Excel VBAの利点は、Excelとの連携が容易であること、そして多くのビジネスパーソンにとって馴染み深い環境であることです。

まとめ

本記事では、Excel VBAを使用して、Shift_JIS形式のテキストファイルをUTF-8形式に一括変換するサンプルコードと、その詳細な解説を提供しました。FileSystemObjectやADODB.Streamオブジェクトを活用することで、煩雑なファイル変換作業を自動化し、業務効率を大幅に改善することが可能です。

今回ご紹介したサンプルコードは、基本的な機能を満たすものですが、実務での利用にあたっては、バックアップの取得、エラーハンドリングの強化、対象ファイルの拡張子に応じた柔軟な対応などを考慮することで、より安全で堅牢なシステムを構築できます。

ぜひ、このサンプルコードを参考に、日々の業務におけるファイル変換作業を効率化し、より創造的な業務に時間を費やせるように活用してください。Excel VBAは、適切に使いこなせば、あなたの業務を劇的に変える強力なツールとなります。