CSVファイルを一文字ずつ読み込む（VBA） (ID:143082)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim ObjFileSystem As Object Dim ObjFile As Object Dim FileName As String Dim StrBuff() As String Dim colNumber As Integer Dim SyutokuBuff(100) As String Dim Yousobango As Integer ' 読み込むCSVファイル FileName = "c:\testfile.csv" Set ObjFileSystem = CreateObject("Scripting.FileSystemObject") Set ObjFile = ObjFileSystem.OpenTextFile(FileName) Do Until ObjFile.AtEndOfStream ' 1行分のデータを読み込み、カンマ毎に配列に保存 StrBuff = Split(ObjFile.ReadLine, ",") For colNumber = 0 To UBound(StrBuff) 'たとえば３列目のデータをそれぞれのレコードから取得する場合 SyutokuBuff(Yousobango) = StrBuff(2) Next Yousobango = Yousobango + 1 Loop ObjFile.Close Set ObjFileSystem = Nothing Set ObjFile = Nothing End Sub 'あとは、必要なだけSyutokuBuff()の配列宣言の要素数を変えてください。 '聞きたかったのは、こういう事ですかね？？