i want to import xls into my table (i mean append not create a new table) the code below creates new table
... the solution that i have as not to receive the error
MyTable already exists... table will be deleted first...
Question: Is there any other way to solve this?
Dim conX As ADODB.Connection
Set conX = New ADODB.Connection
conX.Open "DSN=Excel Files;DBQ=C:\My Documents\Book1.xls;" _
& "DefaultDir=C:\My Documents;DriverId=22;" _
& "MaxBufferSize=2048;PageTimeout=5;"
conX.Execute "SELECT Field1, Field2, Field3 INTO MyTable " _
& "IN 'C:\My Documents\db1.mdb' FROM [Sheet1$]"
conX.Close
Set conX = Nothing
Please advice,
~Tai
... the solution that i have as not to receive the error
MyTable already exists... table will be deleted first...
Question: Is there any other way to solve this?
Dim conX As ADODB.Connection
Set conX = New ADODB.Connection
conX.Open "DSN=Excel Files;DBQ=C:\My Documents\Book1.xls;" _
& "DefaultDir=C:\My Documents;DriverId=22;" _
& "MaxBufferSize=2048;PageTimeout=5;"
conX.Execute "SELECT Field1, Field2, Field3 INTO MyTable " _
& "IN 'C:\My Documents\db1.mdb' FROM [Sheet1$]"
conX.Close
Set conX = Nothing
Please advice,
~Tai