我做了一段调用excel表格的代码,请熟悉delphi的朋友给解答一下
我做了一段调用excel表格的代码,请熟悉delphi的朋友给解答一下,谢谢!
代码如下:
(1)编译时到‘//设置第二个工作表为活动工作表:’处则不能进行,请问哪里写错了?
(2)delphi6能调用从word中编写的表格吗?请问如何实现
procedure TForm1.Button1Click(Sender: TObject);
//var
//Temp_WorkSheet:_worksheet; (添加新工作簿所用)
begin
//打开excel:
excelApplication1.Connect;
//显示当前窗口:
excelApplication1.Visible[0]:=true;
//更改wxcel标题栏:
excelApplication1.Caption:='调用excel';
//开始==============================================================================================
//添加新工作簿:
{ excelWorkBook1.ConnectTo(excelApplication1.Workbooks.Add(emptyParam,0));
Temp_WorkSheet:=excelWorkBook1.workSheets.add(emptyparam,emptyparam,emptyparam,emptyparam,0)
as _workSheet;
excelWorkSheet1.ConnectTo(Temp_WorkSheet); }
//结束================================================================================================
//打开已存在的工作簿:d:\测试.xls
excelApplication1.workBooks.Open('d:\测试.xls', emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,0);
//设置第二个工作表为活动工作表:
excelApplication1.workBooks.Activate;
//给单元格赋值(本例中为往第一行第一列中赋值******):
excelApplication1.cells[1,1].value:='******';
excelApplication1.worksBooks.close;
excelApplication1.quit;
end;