查詢帶有標題的 Tab 限制文本文件時 VBA 錯誤 - “沒有為一個或多個必需參數提供值”

Question

我的文本文件是制表符分隔的，並且有標題字段"Datum" 。 我打算將兩個給定時間戳（沿行）之間的數據讀取到 Excel 文件中，並認為使用 ADO 和 SQL 方法將是最好的方法，因為這將避免使用數組和循環。

我的文本文件看起來像：

    Sub FetchZaehlerData()

        Dim wb As Workbook
        Set wb = ThisWorkbook
        Dim myConn As New ADODB.Connection
        Dim myRecordSet As New ADODB.Recordset
        Dim mySQLQry As String
        
        Dim myFSO As Object
        Set myFSO = CreateObject("Scripting.FileSystemObject")
        Dim myFilePath As String
        
        myFilePath = "P:\PROJECTFILES\O&M\Metering Data\2020\01_2020\LS20200201"
        
        myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & myFilePath & ";" & _
                "Extended Properties='text;HDR=YES';"
                
        
        
        mySQLQry = "SELECT [Datum] FROM [TenneT2_P802_20200201064325.txt]"
        
        Debug.Print mySQLQry
        
        myRecordSet.Open mySQLQry, myConn
        
        wb.Worksheets("Sheet2").Range("F3").CopyFromRecordset myRecordSet
        
        myRecordSet.Close
        myConn.Close
    
    Exit Sub  

Answer 1

1. 您需要在 ConnectionString 的 Extended Properties 部分指定FMT=TabDelimited

2. 您需要提供一個 schema.ini 文件，如回答here

不幸的是，錯誤消息與您遇到的問題沒有任何關系，但是如果您解決了我提出的兩點，“它應該都能正常工作”。