2,507
社区成员




var
fileName:string;
begin
fileName:='c:\New Microsoft Excel.xls';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';Extended Properties=''Excel 8.0;HDR=Yes;IMEX=1'';';
ADOConnection1.Connected:=true;
with self.ADODataSet1 do
begin
close;
commandtext:='select * from [sheet1$]';
open;
end;
end;