久方ぶりの投稿。いろいろあったけど、それはまた別に書くとして、CSVファイルを読み込むときの高速なやり方を探してたらQueryTablesを使った方法というのがあったので、やってみた。
1 2 3 4 5 6 7 8 9 | Dim wb As Workbook Dim ws As Worksheet Set wb = Workbooks.Add Set ws = wb.Worksheets(1) With ws.QueryTables.Add(Connection:= "text;mega.csv" , Destination:=ws.Range( "A1" )) .Name = "megacsv" .TextFileCommaDelimiter = True .Refresh End With |
すごかった。30万行一瞬。