delphi中打开excel文件的实现.docx

《delphi中打开excel文件的实现.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、usesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;typeTForm1=class(TForm)Edit1:TEdit;Button1:TButton;procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;Excel1:Variant;

2、implementation{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject);beginbeginexcel1:=CreateOleObject('Excel.Application');excel1.WorkBooks.Open('D:55aa.xls');excel1.WorkSheets['sheet1'].Activate;excel1.Cells[1,4].value:=56+23;//表示单元格excel1.ActiveSheet.Columns[4].Insert;

3、//插入列excel1.Cells.Columns.AutoFit;//自动列大小excel1.visible:=true;//是excel可见。excel1.WorkSheets[2].Activate;excel1.cells[2,2].value:=44;end;end;delphi对于excel的一般操作资料来自网络单元格设置1.设置单元格线框Excel.ActiveSheet.Range[B10:C13].Borders[N].LineStyle:=xlNoneExcel.ActiveSheet.Range[B10:C13].Bo

4、rders[N].Weight:=xlThin边框的类型Borders[N]xlEdgeLeft左=1xlEdgeRight右=2xlEdgeTop顶=3xlEdgeBottom底=4xlDiagonalUp左上右下=5 xlDiagonalDown左下右上=6xlEdgeLeft外部左边框=7xlEdgeTop外部上边框=8xlEdgeBottom外部下边框=9xlEdgeRight外部右边框=10xlInsideVertical内部竖线=11xlInsideHorizontal内部横线=12(其中1：为左2：右3：顶 4：底 5：斜6

5、：斜/)线条类型LineStyle,宽度Weight单条线的LineStyle:=xlContinuous双条线的LineStyle:=xlDouble虚线xlHairline1实线xlThin 中实线xlMedium 粗实线xlThick2.给单元格赋值：Excel.Cells[1,4].Value:=第一行第四列;3.设置第一行字体属性(隶书,蓝色,加粗,下划线)：Excel.ActiveSheet.Rows[1].Font.Name:=隶书;Excel.ActiveSheet.Rows[1].Font.Color:=clBlue;Ex

6、cel.ActiveSheet.Rows[1].Font.Bold:=True;Excel.ActiveSheet.Rows[1].Font.UnderLine:=True;4.设置整个表字体为9Excel.Cells.Font.Size:=9;5.在第8行之前插入/删除分页符：Excel.WorkSheets[1].Rows[8].PageBreak:=1;(0为删除)6.清除第一行第四列单元格公式：Excel.ActiveSheet.Cells[1,4].ClearContents; 7.从数字类型转换成文本类型(不知道格式化字符串，请

7、录制宏，抽出宏中格式化字符串。)excelworksheet1.Cells.Item[row,10].numberformatlocal:='@';excelworksheet1.Cells.Item[row,10].NumberFormat:='hh:mm:ss'excelworksheet1.Cells.Item[row,9].numberformatlocal:='$#,##0.00;[红色]-$#,##0.00'; 8.加公式(不知道公式格式，请录制宏，抽出宏中公式格式。)excelworksheet1.Cells.Item[row

8、,10].Formula:='=R[-1]C+RC[-1]';ExApp.cells[9+iLoop,6].value:='=SUM(G'+inttostr(9+iLoop)+'