I can't seem to figure out what is wrong with my Connection String. I'm looking to query an Excel.CSV file.
Sub test()
Dim myConn As New ADODB.Connection
Dim recSet As New ADODB.Recordset
Dim myPath As String
Dim connStrng As String
Dim qryStrng As String
Dim ReiterName As String
myPath = "C:\Users\FirstName.LastName\Desktop\temp.csv"
connStrng = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & myPath & ";" & _
"Extended Properties=""text;HDR=YES;FMT=Delimited"""
Debug.Print connStrng
myConn.Open connStrng <-- 'C:\Users\FirstName.LastName\Desktop\temp.csv' Not a valid path error
Here is the full code for reference
Sub test()
Dim myConn As New ADODB.Connection
Dim recSet As New ADODB.Recordset
Dim myPath As String
Dim connStrng As String
Dim qryStrng As String
Dim ReiterName As String
myPath = "C:\Users\FirstName.LastName\Desktop\"
connStrng = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & myPath & ";" & _
"Extended Properties=""text;HDR=YES;FMT=Delimited"""
Debug.Print connStrng
myConn.Open connStrng
recSet .Open "SELECT * FROM temp.csv", myConn
runSQLQueryForCSV = RecSet.GetRows()
myConn.Close
Set recSet = Nothing
Set myConn = Nothing
End Function