Excel VBA質問箱 IV

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

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


51762 / 76732 ←次へ | 前へ→

【29828】Re:CSVからデータの取込
回答  awu  - 05/10/14(金) 14:34 -

引用なし
パスワード
   ちょっと、簡潔なコードにしてみましたので、宜しかったら時間を
比較してみてください。

For〜Nextを無くしたのですが、処理時間は、どんな感じでしょうか。

Sub CsvRead()
Dim Num As Integer
Dim Rw As Long
Dim LineDat As String
Dim LeftStr As String
Const Cols = 8 ' <--- 取得列数
Dim D
Num = FreeFile
Application.ScreenUpdating = False
Cells.Delete
Range("A:A").Resize(, Cols).NumberFormatLocal = "@"
Open ThisWorkbook.Path & "\data.csv" For Input As #Num
Do Until EOF(Num)
  Line Input #Num, LineDat
  D = Split(LineDat, ",")
  ReDim Preserve D(Cols)
  If Not LeftStr = D(0) Then
    Range("A1").Resize(, UBound(D)).Offset(Rw).Value = D
    LeftStr = D(0)
    Rw = Rw + 1
    If Rw = 65537 Then
      MsgBox "行数が多過ぎて取込めない部分がある可能性があります。"
      Exit Do
    End If
  End If
Loop
Close #Num
Application.ScreenUpdating = True
End Sub
0 hits

【29823】CSVからデータの取込 ほびっと 05/10/14(金) 12:01 質問
【29828】Re:CSVからデータの取込 awu 05/10/14(金) 14:34 回答
【29830】Re:CSVからデータの取込 小僧 05/10/14(金) 14:58 発言
【29838】Re:CSVからデータの取込 ほびっと 05/10/14(金) 15:59 質問
【29845】Re:CSVからデータの取込 小僧 05/10/14(金) 16:53 発言
【29850】Re:CSVからデータの取込 ほびっと 05/10/14(金) 17:14 発言
【29852】Re:CSVからデータの取込 小僧 05/10/14(金) 18:34 発言
【29853】Re:CSVからデータの取込 ほびっと 05/10/14(金) 19:25 お礼
【29848】Re:CSVからデータの取込 小僧 05/10/14(金) 17:09 発言
【29834】Re:CSVからデータの取込 awu 05/10/14(金) 15:15 発言
【29839】Re:CSVからデータの取込 ほびっと 05/10/14(金) 16:02 発言

51762 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free