Hi Guys,
i have issues with importing "Index.csv" file name.
(in attachment).
Code to import this file:
Sub RunSQLQueryForCSV
Dim Conn As Object
Dim RecSet As Object
Dim SQLStatement As String
Set Conn = CreateObject("Adodb.Connection")
Set RecSet = CreateObject("Adodb.Recordset")
fileDirPath = "D:\Pulpit\Newest Pull request\MyFile\"
Debug.Print fileDirPath1
TabName = "Index"
Debug.Print TabName1
SQLStatement = "Select * FROM " & TabName & ".csv AS T1"
With Conn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.16.0;" & _
"Data Source=" & fileDirPath & ";" & _
"Extended Properties=""Text;HDR=Yes;MAXSCANROWS=0"""
Debug.Print "Provider=Microsoft.ACE.OLEDB.16.0;" & _
"Data Source=" & fileDirPath & ";" & _
"Extended Properties=""Text;HDR=Yes;MAXSCANROWS=0"""
End With
Conn.Open
RecSet.Open SQLStatement, Conn
' RunSQLQueryForCSV = RecSet.GetRows()
For i = 1 To RecSet.Fields.Count
b = RecSet(i).Name
Next i
' ActiveSheet.Cells.ClearContents
'.Range("A2").CopyFromRecordset RS
ActiveSheet.Range("A2").CopyFromRecordset RecSet
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing
End Sub
getting error "SYNTAX error in FROM clause".
When i am changing this file name to "Index2.csv" it is read without any issues!
Why?
Please help,
Jacek
Bookmarks