如何使用Office相关的那些控件 首先可以参考delphi自带的demo,在activex/oleauto/word8目录 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我给你一个使用Excel的例子先将在Form中添加 ExcelApplication1: TExcelApplication; ExcelWorkbook1: TExcelWorkbook; ExcelWorksheet1: TExcelWorksheet;使用ExcelTry ExcelApplication1.Connect(); Except End; ExcelApplication1.Visible[0]:=True; //增加一个Workbook ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0)); Temp_Worksheet:=ExcelWorkbook1.Worksheets[1] as _WorkSheet; ExcelWorksheet1.ConnectTo(Temp_Worksheet); ExcelWorksheet1.Cells.Item[1,1]:='营业部简称'; ExcelWorksheet1.Cells.Item[1,2]:='交易日期';Except ShowMessage('Excel非法退出!!'); Exit; end;另外在ExcelApplication的WindowDeactivate事件中添加以下代码procedure ExcelApplication1WindowDeactivate(Sender: TObject; var Wb, Wn: OleVariant);begin inherited; Try ExcelApplication1.Quit; ExcelWorksheet1.Disconnect; ExcelWorkbook1.Disconnect; ExcelApplication1.Disconnect; Except End;end; 补充上面var Temp_Worksheet: _WorkSheet; 求助,有关剪裁图片 三层结构输入法问题 有关ADO效率问题!!! 大家帮呀 麻烦帮我看看错在哪里 6.0的高手請進 日期类型问题 ?????看看好吗? 如何检测一个程序是不是no response了,和死机差不多那种 delphi Tchart 将数组作为参数传递! 有关IE问题
先将在Form中添加
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
使用Excel
Try
ExcelApplication1.Connect();
Except
End;
ExcelApplication1.Visible[0]:=True;
//增加一个Workbook
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
Temp_Worksheet:=ExcelWorkbook1.Worksheets[1] as _WorkSheet;
ExcelWorksheet1.ConnectTo(Temp_Worksheet);
ExcelWorksheet1.Cells.Item[1,1]:='营业部简称';
ExcelWorksheet1.Cells.Item[1,2]:='交易日期';
Except
ShowMessage('Excel非法退出!!');
Exit;
end;
另外在ExcelApplication的WindowDeactivate事件中添加以下代码
procedure ExcelApplication1WindowDeactivate(Sender: TObject;
var Wb, Wn: OleVariant);
begin
inherited;
Try
ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
Except
End;
end;
var
Temp_Worksheet: _WorkSheet;