Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61547 / 76732

←次へ　｜　前へ→


	【19801】CSVファイルの高速読込について

BOBO - 04/11/17(水) 14:40 -


	引用なし

	パスワード

初めて書き込ませていただきます。
下記質問させていただきます。ご回答いただければ幸いです。

＜やりたいこと＞
(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ファイルの行数が多いと、処理に時間がかかってしまいます。
なんとか高速化できる方法は、他にありますでしょうか？

以上。
どうぞよろしくお願いします。

6 hits

▼

【19801】CSVファイルの高速読込について BOBO 04/11/17(水) 14:40

≪