CSV を読み込む

2017–08–27 (Sun) 18:47
Sub CSVを使用する()
'CSVを配列に代入します

Dim b_buf() As Byte, s_buf As String
Const TARGET As String = "C:\Users\ownar\Desktop\Book1.csv"

Open TARGET For Binary As #1
ReDim b_buf(1 To LOF(1))
Get #1, , b_buf
s_buf = StrConv(b_buf, vbUnicode)
Dim nyuryoku As Variant
nyuryoku = Split(s_buf, vbCrLf)
kazu = Split(nyuryoku(0), ",")
Dim nyuryoku2() As String
ReDim nyuryoku2(UBound(nyuryoku), UBound(kazu))
Close #1

For j = 1 To UBound(nyuryoku)
kazu = Split(nyuryoku(j), ",")
For i = 1 To UBound(kazu)
nyuryoku2(j, i) = kazu(i)
Next
Next

End Sub

CSVから配列に代入してくれます。
今までExcelファイルを開いていたものをいくつかcsvに変更したら凄く処理速度が速くなりました!
一つのファイルでも0.5~1秒くらいは余裕で短縮できます♪

藤田麻衣子さんのライブに行きたい。。。
スポンサーサイト

« 一括名前指定 修正版 | HOME |  CSVかエクセルか »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク