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