Testing from chrome store:
Code:Sub test() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Rem A full line comment Set cn = New ADODB.Connection 'end of line comment cn.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MYFILEPATH;Extended Properties='text;HDR=Yes';" cn.Open sql = "Select * FROM " & "[MYFILE.CSV]" 'Something else Set rs = cn.Execute(sql) End Sub




Reply With Quote
Bookmarks