作者:乔山办公网日期:
返回目录: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)访问的办法吧。