Sql 查询带有标题的选项卡受限文本文件时出现VBA错误-“;没有给出一个或多个所需参数的值“;

Sql 查询带有标题的选项卡受限文本文件时出现VBA错误-“;没有给出一个或多个所需参数的值“;,sql,excel,vba,Sql,Excel,Vba,我的文本文件是以制表符分隔的,并且有标题字段“Datum”。我打算将两个给定时间戳(沿行)之间的数据读入Excel文件,并认为使用ADO和SQL方法是最好的方法,因为这样可以避免使用数组和循环 我的文本文件如下所示: Sub FetchZaehlerData() Dim wb As Workbook Set wb = ThisWorkbook Dim myConn As New ADODB.Connection Dim

我的文本文件是以制表符分隔的,并且有标题字段
“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