你好:

ccchen 大大教我的...哈哈

function OpenXlsAsADO(owner:TComponent;fname:string;sheetname:string='sheet1'):TAdoQUery;
var s,sht, AdoConnectStr:string;
begin

AdoConnectstr:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'
'Data Source=xxx.xls;'
'Mode=Share Deny None;Extended Properties=Excel 8.0;'
'Persist Security Info=False;Jet OLEDB:System database="";'
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'
'Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;'
'Jet OLEDB:Global Partial Bulk Ops=2;'
'Jet OLEDB:Global Bulk Transactions=1;'
'Jet OLEDB:New Database Password="";'
'Jet OLEDB:Create System Database=False;'
'Jet OLEDB:Encrypt Database=False;'
'Jet OLEDB:Don''t Copy Locale on Compact=False;'
'Jet OLEDB:Compact Without Replica Repair=False;'
'Jet OLEDB:SFP=False';

Result:=TAdoQuery.Create(owner);
try
s:=AnsiReplaceStr(AdoConnectStr, 'xxx.xls', fname);
Result.Connectionstring:=s;
sht:='[' SheetName '$' ']';
Result.sql.text:='select * from ' sht;
Result.open;
except
result.Free;
end;
end;