HOME>TOP>ワークブック

テキストファイル(Csvファイル)を早く開くには?


キーワード>>OpenText・Csv

Point :Csvファイルは開くのが遅いのでなんとか高速に読み込みたい。

Sub Csv_Open()
  Dim myFieldInfo(1 To 256)
  Dim i

'A〜IVの書式を一旦テキストにすることによって高速に読み込める。
 For i = 1 To 256
      myFieldInfo(i) = Array(i, 2)
 Next

   Workbooks.OpenText FileName:="C:\Test.csv", _
     DataType:=xlDelimited, Comma:=True, FieldInfo:=myFieldInfo
End Sub

※Array(i, 2)の2番目の引数は、他に以下の値があります。

1 一般
2 文字列
3 MDY 形式の日付
4 DMY 形式の日付
5 YMD 形式の日付
6 MYD 形式の日付
7 DYM 形式の日付
8 YDM 形式の日付
9 その桁をスキップします



掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。