|
初めて書き込ませていただきます。
下記質問させていただきます。ご回答いただければ幸いです。
<やりたいこと>
(1) Excelに「Sheet1」「Sheet2」を準備
(2) 「Sheet1」にコマンドボタン「Read」を準備
(3) 「Sheet1」のセルA1にCSVファイル名を記載しておく
※CSVファイルの行数・列数は不定です
(3) 「Read」ボタンを押すと、セルA1に書かれた場所にあるCSVファイルを
読み込み、全データを「Sheet2」に表示
<質問>
上記(3)において、私が作成した現在の処理は、下記のとおりです。
Open FileName For Input As #1
Do While Not EOF(1)
Line Input #1, ReadLineBuf
LineArray = Split(ReadLineBuf, ",")
For i = 0 To UBound(LineArray)
Sheets("Sheet2").Cells(gLineCnt + 1, i + 1) = LineArray(i)
Next i
gLineCnt = gLineCnt + 1
Loop
しかしCSVファイルの行数が多いと、処理に時間がかかってしまいます。
なんとか高速化できる方法は、他にありますでしょうか?
以上。
どうぞよろしくお願いします。
|
|