Question

如何用DELPHI从EXCEL中读取数据

Answer 1

( 一 ) 使用动态创建的方法

首先创建 Excel 对象，使用ComObj :
Var
ExcelApp : Variant ;
ExcelApp := CreateOleObject ( '' Excel.Application '' ) ;

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

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

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

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