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

名前

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

本文 任意のcsvファイルを読み込んで そのレコードをテキストボックスに 表示したいのですが ※で「配列がありません」というエラーがでます。 Dim strNo As String Dim strNm As String Dim lngDatN As Long Dim intFileNo As Integer −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− Private Sub cmd_Click(Index As Integer) 〜 〜 〜 'ファイル読み込みボタン押下時 Case cmd(2) '選択ファイル名の表示をクリア CommonDialog1.FileName = "" CommonDialog1.FilterIndex = 0 'ファイルの種類 CommonDialog1.Filter = "csvファイル(*.csv)|*.csv" 'ファイルを開くダイアログを表示する CommonDialog1.ShowOpen '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 '１番目のデータを表示 Text1.Text = strNo(1) Text2.Text = strNm(1) 〜 〜 〜 End Sub