sheet的第一行被ADO读为表名.其他操作和其他数据库类似.
1 ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
2 'Data Source=' + TargetXlsFileName + ';Mode=Share Deny None;Extended Properties="Excel 8.0;IMEX=1";' +
3 'Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";';
4 ADOConnection.Open;
5 ADOQuery.SQL.Text := 'SELECT * FROM [' + TabSheetName + '$]';
6 ADOQuery.Open;