吴昊的博客

首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );注意程序结束时释放变量 ExcelApp:=unassigned显示当前窗口ExcelApp.Visible := True;更改 Excel 标题栏ExcelApp.Caption:= '应用程序调用 Microsoft Excel';添加新工作簿ExcelApp.WorkBooks.Add;打开已存在的工作簿ExcelApp.WorkBooks.Open('C:ExcelDemo.xls' );设置第 Read More

楼主发表于：2004-04-12 17:58:10我用ADO连接一个EXCEL文件，如果能够取得该EXCEL文件里面有几个SHEET呢，谢谢，分不够可以再加！！！对我有用[0] 丢个板砖[0] 引用 举报 管理 TOP 回复次数：936-- lijinghe1(喜欢没有文化性格泼辣身材高大的)等　级：#1楼 得分：0回复于：2004-04-12 18:13:48procedure TForm1.Button1Click(Sender: TObject); var l : TStringList; begin ADOConnection1.Open; l := TStringLis Read More

使用动态创建的方法首先创建 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' );5) 设置第 Read More