乔山办公网我们一直在努力
您的位置:乔山办公网 > office365 > 谢谢你的指导 现还有一个问题 在<em>DELPHI</em>中操作EXCEL...-delph

谢谢你的指导 现还有一个问题 在<em>DELPHI</em>中操作EXCEL...-delph

作者:乔山办公网日期:

返回目录:office365


procedure TForm1.btnExcelClick(Sender: TObject);
var ExcelApp: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := True;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open( 'e:\test\test.xls' );
ExcelApp.WorkSheets['sheet1'].Activate;
ExcelApp.Cells[1,4].Value := '第一行第四';
ExcelApp.ActiveWorkBook.save;
ExcelApp.Quit;
end;

procedure TForm1.btnExcelClick(Sender: TObject);
var ExcelApp: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := True;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open( 'e:\test\test.xls' );
ExcelApp.WorkSheets['sheet1'].Activate;
ExcelApp.Cells[1,4].Value := '第一行第四列';
ExcelApp.ActiveWorkBook.save;
ExcelApp.ActiveWorkBook.Saved := True; //新加的,设置已经保
ExcelApp.Quit;
end;
可以读写
在Uses中加入ComObj单元!
然后使用.
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
就可以创建了

据我所知,delphi里的控件包(server面板)里的OFFICE控件是经过再次封装的,貌似只见到支持office2000、officeXP版本的,2007版本的还真没见到过。

通常为了适应不同版本的office,用 ActiveX 控件(CreateOleObject)访问的办法吧。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网