こんにちは。
EXCELのVBAにて巨大なファイルのデータを途中から読み込む方法がございましたらご教授いただきたいと思っています。
具体的には300万行ほどのCSVデータがありまして
たとえば、50万行目のデータを読み込みたい場合下記のようにすることにより、データの取得は可能なのですが、50万行目までSKIPするのに数秒の時間がかかってしまいます。いきなり50万行目からのデータを取得するようなスマートな方法は存在するのでしょうか。
よろしくお願いいたします。
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\tmp.csv", ForReading, 0)
For w = 0 To 500000
f.skipline
Next
Debug.Print f.readline
f.Close
こんにちは。
EXCELのVBAにて巨大なファイルのデータを途中から読み込む方法がございましたらご教授いただきたいと思っています。
具体的には300万行ほどのCSVデータがありまして
たとえば、50万行目のデータを読み込みたい場合下記のようにすることにより、データの取得は可能なのですが、50万行目までSKIPするのに数秒の時間がかかってしまいます。いきなり50万行目からのデータを取得するようなスマートな方法は存在するのでしょうか。
よろしくお願いいたします。
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\tmp.csv", ForReading, 0)
For w = 0 To 500000
f.skipline
Next
Debug.Print f.readline
f.Close
ACCESSからEXCELへのオートメーション操作について質問させて下さい。
以下のようにコードを書きましたが、エラーに飛んでしまいます。
また、EXCELファイルは出来ているのですが、データがきちんと出力されません。
解決手段をご教授して下さい。
宜しくお願いします。
Private Sub コマンド39_Click()
On Error GoTo エラー_Err
DoCmd.TransferSpreadseet acExport, acSpreadsheetTypeExcel8, "営業報告", "C:\営業日報.xls", True
Dim objEXE As Object , Dim wk_excel As Object, wk_book As Object
Dim wk_file As String
wk_file = "営業日報"
Set objEXE = Excel.Application
objEXE.Workbooks.Open ("C:\営業日報.xls")
wk_excel.Sheets(wk_file).Columns("C:C").Select
wk_excel.Sheets(wk_file).Open.Columns("E:E").ColumnWidth = 10
With Selection
.Formula = .Value
End With
wk_excel.Sheets(wk_file).Range("A1").Select
Exit Sub
エラー_Err:
MsgBox "エラーです"
エクセル_Exit:
Exit Sub
End Sub
ACCESSからEXCELへのオートメーション操作について質問させて下さい。
以下のようにコードを書きましたが、エラーに飛んでしまいます。
また、EXCELファイルは出来ているのですが、データがきちんと出力されません。
解決手段をご教授して下さい。
宜しくお願いします。
Private Sub コマンド39_Click()
On Error GoTo エラー_Err
DoCmd.TransferSpreadseet acExport, acSpreadsheetTypeExcel8, "営業報告", "C:\営業日報.xls", True
Dim objEXE As Object , Dim wk_excel As Object, wk_book As Object
Dim wk_file As String
wk_file = "営業日報"
Set objEXE = Excel.Application
objEXE.Workbooks.Open ("C:\営業日報.xls")
wk_excel.Sheets(wk_file).Columns("C:C").Select
wk_excel.Sheets(wk_file).Open.Columns("E:E").ColumnWidth = 10
With Selection
.Formula = .Value
End With
wk_excel.Sheets(wk_file).Range("A1").Select
Exit Sub
エラー_Err:
MsgBox "エラーです"
エクセル_Exit:
Exit Sub
End Sub