CSVファイル読み込み

Option Explicit Dim objFileSystem Dim objStream Dim strLine Dim arrFields Dim strMessage Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objStream = objFileSystem.OpenTextFile(Left(WSH.ScriptFullName,Len(WSH.ScriptFullName) - Len(WSH.ScriptName)) & "\CSV_TEST.csv", 1) Do Until objStream.AtEndOfStream strLine = objStream.ReadLine arrFields = Split(strLine,",") strMessage = strMes

[katzchang]

ExcelなどのVBAでcsvファイルをパース。「OLEDBにTextFileドライバなるドライバがありまして，そちらを利用します。」

[shozzy]

CSVファイルをスマートに読み込む方法