Question

怎么在delphi中读取Excel数据 转

Answer 1

使用comobj单元的功能可以处理excel数据。

Answer 2

procedure TForm1.FormCreate(Sender: TObject);

Const

CONSTR=

'Provider=Microsoft.Jet.OLEDB.4.0;'+

'Data Source=d:\aaa.xls;'+

'Extended Properties="Excel 8.0;HDR=Yes;";'+

'Persist Security Info=False';

 begin

  ADOConnection1.Close;

  ADOConnection1.LoginPrompt := False;

  ADOConnection1.ConnectionString := CONSTR;

  ADOConnection1.Open;

  ADOQuery1.SQL.Text := 'Select * from [sheet1$]';

  ADOQuery1.Open;

end;