Delphi操作EXCEL函数整理.docx
- 文档编号:23649819
- 上传时间:2023-05-19
- 格式:DOCX
- 页数:11
- 大小:17.25KB
Delphi操作EXCEL函数整理.docx
《Delphi操作EXCEL函数整理.docx》由会员分享,可在线阅读,更多相关《Delphi操作EXCEL函数整理.docx(11页珍藏版)》请在冰豆网上搜索。
Delphi操作EXCEL函数整理
Delphi操作EXCEL函数整理
Delphi中操作EXCEL文档用到的相关函数
一、使用单元:
Use:
EXCEL20XX年,ComObj
二、定义
varExcelApp,Sheet,Range:
Variant;
注释:
ExcelApp为定义的Excel对象
Sheet为定义的工作表(Sheet)对象
Range为定义的工作表范围
三、关于Excel对象创建初始化以及工作表、工作表范围的初始化
1.创建excel对象:
ExcelApp:
=CreateOleObject('Excel.Application');
2.显示当前窗口:
ExcelApp.Visible:
=True;
3.更改Excel标题栏:
ExcelApp.Caption:
='应用程序调用MicrosoftExcel';
4.添加新工作簿:
ExcelApp.WorkBooks.Add;
5打开已存在的工作簿:
ExcelApp.WorkBooks.Open(FilePath);
6.设置工作簿默认工作表张数
ExcelApp.SheetsInNewWorkbook:
=1;
7.设置工作表名称
ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum].Name:
=PName;
8.工作表初始化
Sheet:
=ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum];
9.工作表范围初始化
Range:
=Sheet.Range['A1:
DL1'];
10.设置第2个工作表为活动工作表:
ExcelApp.WorkSheets.Activate;
或
ExcelApp.WorksSheets['Sheet2'].Activate;
三、单元格赋值设置数值类型
1.给单元格赋值:
ExcelApp.Cells[row,column].Value:
='第一行第四列';
或
Sheet.Cells[row,column]:
=‘第一行第四列’;
2清除第一行第四列单元格公式:
ExcelApp.ActiveSheet.Cells[row,column].ClearContents;
Delphi中操作EXCEL文档用到的相关函数
或
Sheet.Cells[row,column].ClearContents
3设置单元格数值类型为文字型
Range.NumberFormatLocal:
='@';
四、设置列宽和行高
1.设置指定列的宽度(单位:
字符个数):
ExcelApp.ActiveSheet.Columns[column].ColumnsWidth:
=5;
或
Sheet.Columns[column].ColumnWidth:
=5;
2.设置指定行的高度(单位:
磅)(1磅=0.035厘米)
ExcelApp.ActiveSheet.Rows[row].RowHeight:
=1/0.035;//1厘米
或
Sheet.Rows[row].RowHeight:
=1/0.035;
五、对齐方式
1.水平对齐
Range.HorizontalAlignment:
=xlCenter;居中
Range.HorizontalAlignment:
=xlLeft;居左
Range.HorizontalAlignment:
=xlRight;居右
或
Sheet.Cells[row,column].HorizontalAlignment:
=xlCenter;居中
Sheet.Cells[row,column].HorizontalAlignment:
=xlLeft;居左
Sheet.Cells[row,column].HorizontalAlignment:
=xlRight;居右
2.垂直对齐
Range.VerticalAlignment:
=xlCenter;居中
Range.VerticalAlignment:
=xltop;顶端对齐
Range.VerticalAlignment:
=xlbottomfont;底部对齐
或
Sheet.Cells[row,column].VerticalAlignment:
=xlCenter;居中
Sheet.Cells[row,column].VerticalAlignment:
=xltop;顶端对齐
Sheet.Cells[row,column].VerticalAlignment:
=xlbottomfont;底部对齐
六、文字控制
1.自动换行
Range.WrapText:
=true;
或
Sheet.Cells[row,column].WrapText:
=true;
2.合并单元格
Sheet.range['A17:
G17'].Merge;
3.跨越合并
Delphi中操作EXCEL文档用到的相关函数
Sheet.range['C27:
D34'].Merge(true);
七、字型设置
1.设置字体大小
Range.Characters.Font.Size:
=10;
或
2.字体加重
Range.Characters.Font.Bold:
=true;
或
Sheet.Cells[row,column].Characters.Font.Bold:
=true;
3.字体倾斜
Range.Characters.Font.Italic:
=true;
或
Sheet.Cells[row,column].Characters.Font.Italic:
=true;
4.字体
.cn:
=’楷体'
或
Sheet.Cells[row,column].Characters.Font.Name:
=’楷体’
5字体样式(常规,斜体,粗体,粗斜体)
Range.Characters.Font.FontStyle:
=’常规'
或
Sheet.Cells[row,column].Characters.Font.FontStyle:
=’常规'
6.下划线
Range.Characters.Font.UnderLine:
=True;
或
Sheet.Cells[row,column].Characters.Font.UnderLine:
=True;
八、分页符操作
1.在第8行之前插入分页符:
ExcelApp.WorkSheets.Rows.PageBreak:
=1;
或
Sheet.Rows.PageBreak:
=1;
或
Range.Rows.PageBreak:
=1;
2.在第8列之前删除分页符:
ExcelApp.ActiveSheet.Columns.PageBreak:
=0;
或
Sheet.Columns.PageBreak:
=0;
或
Range.Columns.PageBreak:
=0;Sheet.Cells[row,column].Characters.Font.Size:
=10;
Delphi中操作EXCEL文档用到的相关函数
九、关于边框的操作:
Border:
1-左2-右3-顶4-底5-斜(\)6-斜(/)
1.指定边框线宽度:
ExcelApp.ActiveSheet.Range['B3:
D4'].Borders[Border].Weight:
=3;
或
Sheet.Borders[Border].Weight:
=3;
或
RangeBorders[Border].Weight:
=3;
2.边框线线条形状
Sheet.Borders[Border].linestyle:
=1;
或
Range.Borders[Border].Linestyle:
=1;
Linestyle1:
实线2虚线12双横线
十、关于颜色
1.设置单元格背景色
Sheet.Cells[row,column].Interior.ColorIndex:
=38;
或
Range.Interior.ColorIndex:
=38;
2.字体颜色
Range.Characters.Font.Colorindex:
=6;
或
Sheet.Cells[row,column].Characters.Font.Colorindex:
=6
Colorindex的值
十一、冻结窗口
Sheet.Cells[2,3].select;
ExcelApp.ActiveWindow.FreezePanes:
=True;
十二、打印设置
1.页眉:
Sheet.PageSetup.CenterHeader:
='报表演示';
2.页脚:
Delphi中操作EXCEL文档用到的相关函数
Sheet.PageSetup.CenterFooter:
='第P页';
3页眉到顶端边距2cm:
Sheet.PageSetup.HeaderMargin:
=2/0.035;
4.页脚到底端边距3cm:
Sheet.PageSetup.HeaderMargin:
=3/0.035;
5.顶边距2cm:
Sheet.PageSetup.TopMargin:
=2/0.035;
6.底边距2cm:
Sheet.PageSetup.BottomMargin:
=2/0.035;
7.左边距2cm:
Sheet.PageSetup.LeftMargin:
=2/0.035;
8.右边距2cm:
Sheet.PageSetup.RightMargin:
=2/0.035;
9.页面水平居中:
Sheet.PageSetup.CenterHorizontally:
=2/0.035;
10.页面垂直居中:
Sheet.PageSetup.CenterVertically:
=2/0.035;
11.打印单元格网线:
Sheet.PageSetup.PrintGridLines:
=True;
12缩放比例
Sheet.PageSetup.zoom:
=75;
13横向打印
Sheet.PageSetup.Orientation:
=xllandscape;
14纵向打印
15.设置打印标题行
Sheet.PageSetup.PrintTitleRows:
=Sheet.Rows['1:
3'].Address;
Sheet.PageSetup.PrintTitleColumns:
=Sheet.Rows.Address;
16.打印预览工作表:
Sheet.PrintPreview;
17打印输出工作表:
Sheet.PrintOut;
十三、拷贝操作:
1.拷贝整个工作表:
.cned.Range.Copy;
2.b.拷贝指定区域:
Sheet.Range['A1:
E2'].Copy;
3.从A1位置开始粘贴:
Delphi中操作EXCEL文档用到的相关函数
Sheet.Range.['A1'].PasteSpecial;
4.从文件尾部开始粘贴:
Sheet.Range.PasteSpecial;
十四、行列的插入删除
1.插入一行或一列:
a.ExcelApp.ActiveSheet.Rows.Insert;
b.ExcelApp.ActiveSheet.Columns.Insert;
2.删除一行或一列:
a.ExcelApp.ActiveSheet.Rows.Delete;
b.ExcelApp.ActiveSheet.Columns.Delete;
十五、Excel保存关闭
1.工作表保存:
ifnotExcelApp.ActiveWorkBook.Savedthen
ExcelApp.ActiveSheet.PrintPreview;
2.工作表另存为:
ExcelApp.SaveAs(filepath);
3放弃存盘:
ExcelApp.ActiveWorkBook.Saved:
=True;
4.关闭工作簿:
ExcelApp.WorkBooks.Close;
5.退出Excel:
ExcelApp.Quit;
6.工作表关闭
ExcelApp.WorkBooks.Close;
十六、其他
1.已经使用的行数
.cnedRange.Rows.Count;
(三)使用Delphi控制Excel二维图
在Form中分别放入ExcelApplication,ExcelWorkbook和ExcelWorksheetVarasheet1,achart,range:
variant;
1)选择当第一个工作簿第一个工作表
asheet1:
=ExcelApplication1.Workbooks.Worksheets;
2)增加一个二维图
achart:
=asheet1.chartobjects.add(100,100,200,200);
3)选择二维图的形态
Delphi中操作EXCEL文档用到的相关函数
achart.chart.chartype:
=4;
4)给二维图赋值
series:
=achart.chart.seriescollection;
range:
=sheet1!
r2c3:
r3c9;
series.add(range,true);
5)加上二维图的标题
achart.Chart.HasTitle:
=True;
achart.Chart.ChartTitle.Characters.Text:
=’Excel二维图’
6)改变二维图的标题字体大小
achart.Chart.ChartTitle.Font.size:
=6;
7)给二维图加下标说明
achart.Chart.Axes(xlCategory,xlPrimary).HasTitle:
=True;
achart.Chart.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text:
=’下标说明’;
8)给二维图加左标说明
achart.Chart.Axes(xlValue,xlPrimary).HasTitle:
=True;
achart.Chart.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text:
=’左标说明’;
9)给二维图加右标说明
achart.Chart.Axes(xlValue,xlSecondary).HasTitle:
=True;
achart.Chart.Axes(xlValue,xlSecondary).AxisTitle.Characters.Text:
=’右标说明’;
10)改变二维图的显示区大小
achart.Chart.PlotArea.Left:
=5;
achart.Chart.PlotArea.Width:
=223;
achart.Chart.PlotArea.Height:
=108;
11)给二维图坐标轴加上说明
achart.chart.seriescollection.NAME:
=’坐标轴说明’;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi 操作 EXCEL 函数 整理