一 Excel to Access
SELECT * INTO tableFromExcel FROM [excel 8.0;database=F:/delphi/GetPersonData/NewManager4/data2.XLS].[XLS$];
二 Access to Excel
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
ExtractFilePath(Application.ExeName) + 'LawyerData.XLS;' +
'Extended Properties="Excel 8.0;";Persist Security Info=False';
ADOCExcel.ConnectionString := ConStr;
SqlStr := 'select * into '+ ExcelFileName +' from '+CurrentTable+
' in "' + ExtractFilePath(Application.ExeName)+'NewData.mdb"';
ADOCExcel.Execute(SqlStr);