|
|
1、打开文档
procedure TMainForm.btnTestClick(Sender: TObject);
var
OpenDialog:TOpenDialog;
begin
try
OpenDialog:= TOpenDialog.Create(nil);
OpenDialog.Filter:= '*.xls|*.XLS';
if OpenDialog.Execute then
begin
if OpenDialog.FileName<>'' then
begin
ExcelApp1.AddApplication(true);//如果有进程会直接获得，没有则新建进程
ExcelApp1.OpenFile(OpenDialog.FileName);
ExcelApp1.SetVisible(true);//是否显示Excel
end;
end;
finally
OpenDialog.Free;
end;
end;
2、退出Excel：
ExcelApp1.Close(false);
3、获取指定表格的值：
ExcelApp1.GetCellValue('A2') 其中A2代表第一列第二行的表格。
4、设置某表格的值：
ExcelApp1.SetCellValue('A2',Edit1.Text);
5、显示或者隐藏Excel:
ExcelApp1.SetVisible(true);//是否显示Excel （true—显示；false--不显示）
6、打印预览：
ExcelApp1.PrintPreview;
7、打印：
ExcelApp1.Print;
8、新增WorkSheet:
ExcelApp1.AddWorkSheet;
9、拷贝粘贴指定cell:
ExcelApp1.CopyCell('A2');
ExcelApp1.PasteCell('B3');
10、拷贝到TstringGrid函数
Function ExcelCopyToStringGrid( FirstRow : Integer; FirstCol : Integer;
LastRow : Integer; LastCol : Integer; StringGrid : TStringGrid;
StringGridFirstRow : Integer;
StringGridFirstCol : Integer;
SizeStringGridToFit : Boolean;
ClearStringGridFirst : Boolean
): Boolean;
举例：
ExcelApp1.ExcelCopyToStringGrid(1,1,30,40,StringGrid1,1,1,true,true);
11、文件另存为：
var
savedialog:TSaveDialog;
begin
try
savedialog:= TSaveDialog.Create(nil);
SaveDialog.Filter:= '*.XLS';
if SaveDialog.Execute then
begin
if SaveDialog.FileName<>'' then
begin
ExcelApp1.SaveAs(SaveDialog.FileName);
end;
end;
finally
SaveDialog.Free;
end;
12、另存为TXT文件：
ExcelApp1.SaveAsText(SaveDialog.FileName);
13、删除sheet表格
ExcelApp1.DeleteWorkSheet('Sheet1');// 删除sheet1
14、重命名表格
ExcelApp1.RenameSheet('Sheet1','我的表格');//
15、设置某个表格下拉选项：
ExcelApp1.SetCellDataSource('A2','A,B,C,D');
ExcelApp1.SetCellDataSource(1,2,'A,B.C,D100,200');
//其中1，2代表行和列，而后面的A,B.C,D100,200代表下拉选项的值；每个选项间用“，”分割开。
16、选中单元格：
ExcelApp1.SelectCell(1,2);//选中第一列第二行的单元格
17、选中一个区域
ExcelApp1.SelectRange(1,1,30,30); //选中一个区域范围
18、选取表格（按名称）
ExcelApp1.SelectSheetByName('Sheet1');//选择表格
19、获取单元格计算公式
Function GetCellFormula( ID: String): ShortString;
Function GetCellFormula( RowNum, ColNum: Integer): ShortString;
举例：
str:= ExcelApp1.GetCellFormula(1,2);//获取表格公式
str:= ExcelApp1.GetCellFormula('A2');
20、替换单词函数：
ExReplace(oldStr, NewStr:String; aLookAt:Integer;lCase:Boolean);
参数说明：
oldStr—要被替换的词 ；
NewStr—用来替换的词；
aLookAt：表明是整页查找还是局部查找一次(1-局部查找；其他-全局查找)
lCase—是否区分大小写；取值范围( true,false)
举例：
ExcelApp1.ExReplace(edit1.Text,edit2.Text,0,false);//用Edit2内容替换Edit1值
21、设置菜单可见函数
SetMenuVisible(AMenuName: String; aValue: Boolean);
参数说明：
AMenuName：菜单名称。
是否可视。
举例：
SetMenuVisible('Standard',false);
22、设置菜单是否可用函数
procedure SetMenuEnable(AMenuName:String;aValue:Boolean);
参数说明：
AMenuName:菜单名称
aValue:是否可用。
举例：
ExcelApp1.SetMenuEnable('Formating',true);//将格式菜单栏可用
23、合并单元格
procedure MergeCell(lBegin,lEnd:String); //合并单元格
参数说明：
lBegin, lEnd代表单元格地址。
举例：
ExcelApp1.MergeCell('A1','A4');
24、拆分单元格
procedure UnMergeCell(lBegin,lEnd:String); //拆分单元格
参数说明：
lBegin, lEnd代表单元格地址。
举例：
ExcelApp1.UnMergeCell('A1','A4');
25、获取Excel中占用的最大列数
GetLastCol;//返回当前活动表中的占用的最大列数
26、获取Excel中占用的最大行数
GetLastRow;//返回当前活动sheet中占用的最大行数
27、设置单元格的计算公式
Function SetCellFormula( FormulaString : ShortString; RowNum, ColNum: Integer): Boolean;
Function SetCellFormula( FormulaString : ShortString; ID:String):Boolean;overload;
28、获取单元格的计算公式
Function GetCellFormula( RowNum, ColNum: Integer): ShortString;overload;
Function GetCellFormula( ID: String): ShortString;overload;
29、设置函数
Function SetFunction(ARanger, AFunction: String): boolean;
30、插入图片
Function InsertImage(ARanger, AFilePath: String): boolean;
例子：
var
openDialog:TOpenDialog;
begin
try
openDialog:=TOpenDialog.Create(nil);
if OpenDialog.Execute then
begin
ExcelApp1.InsertImage('A1:B4',OpenDialog.FileName);//合并的单元格也行
end;
finally
OpenDialog.Free;
end;
31、插入行
procedure InsertRow(ARow:integer);
32、插入列
procedure InsertCol(ACol:integer);
33、删除行
procedure DeleteRow(ARow:integer);
34、删除列
procedure DeleteCol(ACol:integer);
35、设置是否显示某列
procedure SetColumnHide(lColumn:string;aValue:Boolean);overload;
procedure SetColumnHide(lBegin,lEnd:string;aValue:Boolean);overload;//设置是否隐藏列
36.画边框
Procedure DrawLine(ARange: String);// ARange单元格或者区域
例子：
ExcelApp1.SetFont('A1:A2','楷体',20,true);
ExcelApp1.DrawLine('A1:C3');
37、将文件中的图片存为文件
procedure SaveImageToFile(aPictureName,AFileName:String);
参数：aPictureName图像名称; AFileName-要保存的文件名称
图片导出时自己写后缀名.bmp/.jpg等
用例：
var
saveDialog:TSaveDialog;
begin
saveDialog:=TSaveDialog.Create(nil);
try
if saveDialog.Execute then
ExcelApp1.SaveImageToFile(‘picture 1’,saveDialog.FileName);
Finally//注意图片对象的名称
saveDialog.Free;
end;
procedure SaveImageAs(ARanger,AFileName:String);不好用
// ARanger区域范围，AFileName要保存的文件名称
例子:
var
saveDialog:TSaveDialog;
begin
saveDialog:=TSaveDialog.Create(nil);
try
if saveDialog.Execute then
ExcelApp1.SaveImageAs('B2:H19',saveDialog.FileName);
finally
saveDialog.Free;
end;
end;
38、获取区域范围内图片对象的名称
function GetRangeImageName(aRange:String):String;
参数：aRange--区域范围
例子：
edit2.Text:= ExcelApp1.GetRangeImageName('B2:H5');
function GetImageNames:String;//获取当前操作页的图片对象名称
====================================================
最新提供V2970版本 |
|
发表于 2008-7-12 12:38:52
楼主