FC2ブログ

CSVかエクセルか

2017–08–28 (Mon) 09:03
行:1354 列:8

xlsxファイル→101KB
CSVファイル→147KB

作業
1.検索するデータを読み込む
2.XLXLファイル又はCSVファイルを開き読み込む
3.必要なデータを1の指定ワークシートに貼り付ける

xlsxファイルの場合
平均速度 0.89秒
CSVファイルの場合
平均速度 0.033秒

無題

超高速CSV読み込み
Dim myName As Variant, buf As String
Dim msg() As String, t As Long
Open "CSVファイル" For Binary As #1
buf = Space(FileLen("CSVファイル"))
Get #1, , buf
Close #1
myName = Split(buf, vbCrLf)
msg2 = Split(myName(1), ",")
ReDim msg(UBound(myName), Ubound(msg2 ))
For i = 0 To UBound(myName)
msg2 = Split(myName(i), ",")
For t = 0 To UBound(msg2)
msg(i, t) = msg2(t)
Next
Next i

"CSVファイル"にCSVファイルのアドレスを入れます。
スポンサーサイト



« CSV を読み込む | HOME |  一括名前指定 変更 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク