|
DAOの例ですが、速度はインデツクスが無いので少々遅いですね
一度、アクセル等のデータベースに取り込み、インデツクスを
作成したら、カナリの速度が可能です。
条件は sql を修正して下さい。
DAOの参照設定が必要です、
"TEXT;HDR=NO;" CSV の最初に項目が無い場合で
有る場合は "TEXT;HDR=ON;" に修正です。
Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim strPath As String
Dim Fname As String
Dim sql As String
strPath = Mid(ThisWorkbook.FullName, 1, InStrRev(ThisWorkbook.FullName, "\"))
Fname = "BstDt.txt"
sql = "SELECT * FROM [" & Fname & "];" ' ORDER BY F1;"
Set db = OpenDatabase(strPath, False, False, "TEXT;HDR=NO;")
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
Sheet1.Cells(1).CopyFromRecordset rs
' シート1の1個めに取り込む例です。
rs.Close
db.Close
End Sub
|
|