如何使用DELPHI 5.0中的TEXCELWORKBOOKS,TEXCELWORKSHEET等控件(100分)

  • 主题发起人 主题发起人 Mischa
  • 开始时间 开始时间
M

Mischa

Unregistered / Unconfirmed
GUEST, unregistred user!
DELPHI 5.0 中有一个SERVER控件板,其中有OFFICE97的控件,
市面上好像没有关于如何使用这些控件(如TEXCELWORKBOOKS)的书。
请问如何使用这些控件?
 
delphi的Demos/Activex/Oleauto/SrvComp有例子

简单的例子:
procedure myprocedure;
var i:integer;
begin
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
for i:=0 to 20 do
ExcelWorksheet1.Cells.Item[i,i]:=format('x:%d y:%d',[i,i]);
ExcelWorkBook1.SaveCopyAs('c:/windows/desktop/aa.xls');
ExcelWorkBook1.Close(false);
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
end;
 
接受答案了.
 
后退
顶部