Hi Guys,
i have issues with importing "Index.csv" file name.
(in attachment).
Code to import this file:
getting error "SYNTAX error in FROM clause".![]()
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
When i am changing this file name to "Index2.csv" it is read without any issues!
Why?
Please help,
Jacek
Bookmarks