怎么在delphi中读取Excel数据 转

怎么在delphi中读取Excel数据 转

1 ) 显示当前窗口：
ExcelApp.Visible := True ;

2 ) 更改 Excel 标题栏：
ExcelApp.Caption := '' 应用程序调用 Microsoft Excel '' ;

3 ) 添加新工作簿：
ExcelApp.WorkBooks.Add ;

4 ) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open ( '' C : \Excel\Demo.xls '' ) ;

5 ) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets [ 2 ] .Activate ;
或
ExcelApp.WorksSheets [ '' Sheet2 '' ] .Activate ;

6 ) 给单元格赋值：
ExcelApp.Cells [ 1 , 4 ] .Value := '' 第一行第四列 '' ;

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;