csvファイルの扱い方 (ID:123773)

名前

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

本文 ありがとうございました。 表示はできるようになったのですが 任意のcsvファイルを読み込ませるには ↓のコードを どう訂正すればいいでしょうか？ 'CSV形式ファイルを変数毎に読み書きする lngDatN = 0 '使用可能なファイルナンバーを取得 intFileNo = FreeFile 'シーケンシャル入力モードで list_01.csv をオープン Open "M:\list_01.csv" For Input As #intFileNo 'EOF(intFileNo)が True になるまで実行 Do Until EOF(intFileNo) '件数をカウント lngDatN = lngDatN + 1 '変数を１個づつ追加宣言 ReDim Preserve strNo(lngDatN) As String ReDim Preserve strNm(lngDatN) As String 'データを各変数に読込 Input #intFileNo, strNo(lngDatN), strNm(lngDatN) Loop 'ファイルを閉じる Close #intFileNo