タイトル | : Re^2: VB2005によるEXCELファイルをデータグリッドへ代入 |
記事No | : 3743 |
投稿日 | : 2006/05/26(Fri) 15:46 |
投稿者 | : 森末末 |
Dim fileName2 As String = "D:\file.csv" 'CSVファイルのフルパス Dim sheetName2 As String = "Sheet1" 'Excelファイルのシート名
FileOpen(1, fileName2, OpenMode.Binary) 'バイナリーモードで開く Dim ConText As String ListBox.Items.Clear()
While (Not EOF(1)) ConText = LineInput(1) ListBox.Items.Add(ConText) End While FileClose(1)
のようにコーディングした場合、ファイルを読み込んで一行ずつ出力する 形しかできておりません。そのため、各列ごとに分けたいのですが、 うまくいきません。
|