はじめに：なぜCSVの読み込みで苦労するのか
多くの現場で、毎日定時に特定のフォルダにCSVが置かれ、それを手作業でExcelに貼り付けている光景を見ます。VBAで自動化しようとすると、真っ先に「Workbooks.Open」を使いたくなりますが、実はこれが罠です。日付の表示形式が勝手に変わったり、長い数値が指数表記になったりして、データの整合性が崩れるからです。今回は、実務でトラブルを防ぎつつ、高速にデータを処理する手法を解説します。
「ADODB.Stream」で文字コードの壁を越える
CSV処理の最大の敵は「文字コード」です。Shift-JISならまだしも、最近はUTF-8で出力されるシステムも増えています。ここで「Workbooks.Open」を使うと文字化けのリスクが高まりますが、ADODB.Streamオブジェクトを利用すれば、文字コードを明示的に指定して読み込めます。
以下は、読み込みの肝となる考え方です。
1. Streamオブジェクトでファイルを開く
2. ReadTextメソッドで一気に文字列としてメモリに取り込む
3. Split関数で改行コードを区切り文字として配列に格納する
この方法の利点は、Excelの画面更新を一切行わずにメモリ上で処理が完結するため、数万行のデータでも一瞬で読み込める点にあります。
データ型を保護するための「TextToColumns」活用術
CSVの中には「00123」のような、先頭にゼロがつく商品コードが含まれていることがよくあります。これを通常の読み込みで行うと、Excelが気を利かせて数値の「123」に変換してしまいます。
これを防ぐための実務テクニックとして、読み込み先のセル範囲に対して、事前にNumberFormatLocalプロパティで「@（文字列形式）」を指定しておくことが重要です。あるいは、読み込んだ後にRangeオブジェクトの「TextToColumns（区切り位置指定ウィザードの機能）」をVBAから呼び出し、各列のデータ型を明示的に「テキスト」としてインポートする方法が最も堅牢です。
実務での運用を想定したエラーハンドリング
現場で最も多いトラブルは「ファイルが誰かに開かれている」「ファイルがまだ作成されていない」という事象です。
読み込み処理の前には、必ず以下のチェックを組み込みましょう。
・Dir関数でファイルの存在を確認する
・On Error Resume Nextを使い、ファイルが既に使用中の場合に「処理を中断してユーザーにメッセージを出す」
単にコードを動かすだけでなく、「誰が使ってもエラーで止まらない仕組み」を作ることこそが、ベテランのVBAエンジニアの仕事です。
まとめ：効率化の先にあるもの
CSV読み込みの自動化は、単なる作業短縮ではありません。データの変換ミスを防ぎ、正確な数値を後続の集計処理へ渡すための「基盤作り」です。今回紹介したメモリベースの読み込みと、データ型の固定化を組み合わせれば、日々の業務から「CSVの手直し」というストレスを完全に排除できるはずです。ぜひ、次回のツール作成で試してみてください。
