Create Access database on the fly & import csv/txt file as table!

[austenr]

Maybe another way to do it is to create a .csv file from Excel and use a script to populate a table? Like this:

Const adOpenStatic = 3Const
 adLockOptimistic = 3Const ForReading = 1Set
 objConnection = CreateObject("ADODB.Connection")Set objRecordSet = CreateObject("ADODB.Recordset")objConnection.Open _ 
"Provider = Microsoft.Jet.OLEDB.4.0; " & _    
"Data Source = c:\scripts\test.mdb" objRecordSet.Open "SELECT * FROM Employees", _  
objConnection, adOpenStatic, adLockOptimisticSet objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt")Do Until objFile.AtEndOfStream  
strEmployee = objFile.ReadLine  arrEmployee = Split(strEmployee, ",")  
objRecordSet.AddNew 
objRecordSet("EmployeeID") = arrEmployee(0)
objRecordSet("EmployeeName") = arrEmployee(1)
objRecordSet("Department") = arrEmployee(2) 
objRecordSet.UpdateLoopobjRecordSet.CloseobjConnection.Close