Delphi 总结操作Excel
定义变量
Excelid:variant;
1、创建OLE对象
try
Excelid:=CreateOleObject( 'Excel.Application' );
except
on Exception do raise exception.Create('无法创建Xls文件,请确认是否安装EXCEL')
end;
Excelid.Visible := false; //Excel显示设置
Excelid.WorkBooks.Add; //生成新的excel文件
BCount:=Excelid.Worksheets.count; //取得了excel的worksheets的页数
BCount:=Excelid. sheets.count; //取得了excel的sheets的页数,包括(worksheet,chart等等)
Excelid.worksheets.add(null,Excelid.Worksheets[BCount]); // Excelid.Worksheets[BCount])的 后面生成新页 Excelid.worksheets.add(before,after)
Excelid.worksheets[dataPage].Columns[1].NumberFormatLocal := '00000000' ; //把这一列按某种格式显示
ExcelApplication1.ActiveSheet.Rows[1].numberformat:='@'; //把这一列设置成文本格式
Excelid.worksheets[dataPage].name:='主要频率时段占有率'; //worksheet的caption
Excelid.worksheets[dataPage].cells[1,ExClos].value:=FCheckListBoxPOTT.Items[i];//给单元格赋值
Excelid.worksheets[dataPage].rows[1].rowheight:=28.5;//行高
Excelid.worksheets[dataPage].rows[1].WrapText:=true;//文本自动换行
Excelid.worksheets[dataPage].cells[1,cols].Borders[2].Weight:=xlThin;//设置边框为黑边框
Excelid.worksheets[dataPage].Range[Excelid.worksheets[dataPage].Cells[1,1], Excelid.worksheets[dataPage].Cells[rows,cols]].Borders.LineStyle := xlContinuous;//加边框
Excelid.worksheets[dataPage].Range[Excelid.worksheets[dataPage].Cells[1,1], Excelid.worksheets[dataPage].Cells[rows,cols]].HorizontalAlignment:=xlHAlignCenter;//居中对齐
Excelid.worksheets[dataPage].Range[Excelid.worksheets[dataPage].Cells[1,1], Excelid.worksheets[dataPage].Cells[rows,cols]].font.size:=12; //字体大小
Excelid.worksheets[dataPage].Range[Excelid.worksheets[dataPage].Cells[1,1], Excelid.worksheets[dataPage].Cells[rows,cols]].font.name:='宋体'; //字体格式
achart1 := Excelid.worksheets[dataPage].chartobjects.add(left,top,width,height); //在这个位置生成图
achart1.chart.charttype := xl3DPieExploded;//xl3DPie ; //生成何种类型的图
cell1 := Excelid.worksheets[dataPage].Cells[fixRows,fixClos];
cell2 := Excelid.worksheets[dataPage].Cells[Exrows,fixClos];
cell3 := Excelid.worksheets[dataPage].Cells[fixRows,ExClos];
cell4 := Excelid.worksheets[dataPage].Cells[Exrows,ExClos];
Range1 := Excelid.worksheets[dataPage].Range[cell1, cell2]; //设定Chart类别坐标轴(x轴)的取值区域
Range2 := Excelid.worksheets[dataPage].Range[cell3, cell4]; //设定Chart数值坐标轴(y轴)的取值区域
Range3:=Excelid.worksheets[dataPage].Range[Range1,Range2]; //取值区域
achart2:=achart1.chart.Location(xlLocationAsNewSheet,sheetName); //使生成的为一个新页,并占满整个页
achart2.SetSourceData(Range3,xlColumns); // 设置生成图形的数据源
achart2.ApplyDataLabels(xlDataLabelsShowLabelAndPercent,true,true,true); //设置格式,使图形上显示的文字显示百分比
achart2.Legend.delete; //删除右侧的标题
achart2.HasTitle:=True; //添加图表标题能够显示
achart2.ChartTitle.Characters.Text:=chartName;//图的标题
achart2.ChartTitle.Font.size:=18;//图的标题的字体的大小
achart2.HasLegend:=true;//能够显示属性图
achart2.Legend.Position := xlBottom; //属性图显示在下面
achart2.ChartArea.Border.Weight := xlHairline; 图的外框的粗细
achart2.ChartArea.Border.LineStyle := xlContinuous//图的外框的样式
//设置图像
achart2.PlotArea.Interior.ColorIndex := xlNone;
achart2.PlotArea.Border.Weight := xlHairline ;
achart2.PlotArea.Border.LineStyle := xlNone ;
achart2.PlotArea.width:=495;
achart2.PlotArea.left:=117;
achart2.PlotArea.Top:=127;
Excelid.DisplayAlerts:= False; //使excel不谈出对话框
Excelid.worksheets[3].Rows.EntireColumn.AutoFit;//excel自动调整列
Excelid.worksheets[3].rows.AutoFit;
Excelid.worksheets[excelSheetCount].range['D'+inttostr(hebin1)+':D'+inttostr(row-1)].Mergecells:=True;//合并单元格
Excelid.worksheets[excelSheetCount].range['A4:M'+inttostr(row-1)+''].borders.linestyle:=1;//设置边框样式
Excelid.worksheets[excelSheetCount].Rows.EntireColumn.AutoFit;//excel自动调整列
Excelid.worksheets[excelSheetCount].rows.AutoFit;//自动调整行
Excelid.WorkSheets[excelSheetCount].Cells[1,1].Characters(1,setStrLength).font.size:=20;//取得单元格内的内容是一部分按设定的格式显示
Excelid.WorkSheets[excelSheetCount].Cells[1,1].font.size:=20; //设置单元格的字体大小
Excelid.WorkSheets[excelSheetCount].Cells[1,1].font.bold:=true;//设置字体为黑体
Excelid.worksheets[excelSheetCount].range['A1:N3'].HorizontalAlignment := xlleft;//字体左对齐
Excelid.WorkSheets[excelSheetCount].Cells[3,1].Value := '更新日期: '+formatdatetime('yyyy年mm月dd日',now());
ExcelId.WorkSheets[excelSheetCount].Columns[14].Columns.AutoFit; //列的自动调整
ExcelId.WorkSheets[excelSheetCount].Columns[13].ColumnWidth:=5;//设置一列的宽度
ExcelId.WorkSheets[excelSheetCount].Columns['K:M'].ColumnWidth:=9;//设置多列的宽度
ExcelId.WorkSheets[excelSheetCount].Columns[12].NumberFormatLocal := 'yyyy-mm-dd'; //设置列的显示格式
Excelid.worksheets[excelSheetCount].range['A4:N5'].Interior.color:=RGB(191,191,191); //设置颜色
Excelid.worksheets[excelSheetCount].range['M4:N4'].Merge(True); //合并单元格
Delphi 总结操作Excel的更多相关文章
- Delphi 如何操作Excel
摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi 控制Excel(一) 使用动态 ...
- Delphi操作Excel大全
Delphi操作Excel大全 DELPHI操作excel(转)(一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp ...
- 用DELPHI操作EXCEL Word
用DELPHI操作EXCEL 在DELPHI中显示EXCEL文件,可用以下简单代码做到.但要实用,则需进一步完善. var Form1: TForm1; EApp:variant;implemen ...
- C#操作Excel文件(转)
摘要:本文介绍了Excel对象.C#中的受管代码和非受管代码,并介绍了COM组件在.net环境中的使用. 关键词:受管代码:非受管代码:Excel对象:动态连接库 引言 Excel是微软公司办公自动化 ...
- Qt之操作Excel
Visual Basic for Applications(VBA)是一种Visual Basic的一种宏语言,主要能用来扩展Windows的应用程式功能,特别是Microsoft Office软件. ...
- C++中利用libxl操作Excel表格
libxl是一款操作excel的商业库,支持C.C++.C#和Delphi.下文利用libxl在C++中实现了从excel文档的表1中随机挑选记录,保存到新建的表中.以下为代码: #include & ...
- 一个由正则表达式引发的血案 vs2017使用rdlc实现批量打印 vs2017使用rdlc [asp.net core 源码分析] 01 - Session SignalR sql for xml path用法 MemCahe C# 操作Excel图形——绘制、读取、隐藏、删除图形 IOC,DIP,DI,IoC容器
1. 血案由来 近期我在为Lazada卖家中心做一个自助注册的项目,其中的shop name校验规则较为复杂,要求:1. 英文字母大小写2. 数字3. 越南文4. 一些特殊字符,如“&”,“- ...
- 免费高效实用的.NET操作Excel组件NPOI(.NET组件介绍之六)
很多的软件项目几乎都包含着对文档的操作,前面已经介绍过两款操作文档的组件,现在介绍一款文档操作的组件NPOI. NPOI可以生成没有安装在您的服务器上的Microsoft Office套件的Excel ...
- C#通过NPOI操作Excel
参考页面: http://www.yuanjiaocheng.net/webapi/create-crud-api-1-post.html http://www.yuanjiaocheng.net/w ...
随机推荐
- SQL Server 2012 LocalDB 管理之旅
SQL Server LocalDB能够最大限度地节省您的数据库管理精力,以便开发人员可以专注于开发数据库应用. 使用SqlLocalDB命令行管理LocalDB 为了方便管理,LocalDB提供了一 ...
- 使用Sqlite数据库存储数据
1.Sql基本命令 1.1.创建表 表是有行和列组成的,列称为字段,行称为记录. 使用CREATE命令来创建表: 1 CREATE TABLE tab_student (studentId INTEG ...
- 【转载】【树状数组区间第K大/小】
原帖:http://www.cnblogs.com/zgmf_x20a/archive/2008/11/15/1334109.html 回顾树状数组的定义,注意到有如下两条性质: 一,c[ans]=s ...
- 关于jQuery的cookies插件2.2.0版设置过期时间的说明
欢迎转载,转载请注明作者RunningOn jQuery应该是各位用JavaScript做web开发的常用工具了,它有些插件能非常方便地操作cookie. 不过非常让人郁闷的是,网上几乎所有人对于这些 ...
- Spring 整合Redis 出现 afterPropertiesSet signature: ()V) Incompatible argument to function 解决办法
正在做SpringMVC+Redis整合的练习 使用的是 spring-data-redis 和 Jedis 配置好之后出现了以下错误: Caused by: java.lang.VerifyErro ...
- 如何参与github上的开源项目
今晚比较闲,于是乎装修了一下博客,顺便将一块心病(怎么参加github上的开源项目)解决了,最后发个文章总结下 这些是参考的链接 http://blog.csdn.net/five3/article/ ...
- apache 服务器端口被IIS服务器占用
今天遇到一个问题 同事机子上安装了wamp运行环境,所有服务也打开了,把dede系统放到了www目录下面,但是打开localhost网址,一直是跳转到一个IIS的web服务器主页 想不到是什么问题,又 ...
- Android单元测试初探——Instrumentation(转载)
学习Android有一段时间了,虽然前段时间对软件测试有了一些了解,不过接触android的单元测试却是头一次.这几天在物流大赛上也用了不少时间,所以对于android的单元测试没有太深入的研究,所以 ...
- unix环境高级编程-读书笔记与习题解答-第一篇
从这周开始逐渐的进入学习状态,每天晚上都会坚持写c程序,并且伴随对这本书的深入,希望能写出更高质量的读书笔记和程序. 本书的第一章,介绍了一些关于unix的基础知识,在这里我不想去讨论linux到底是 ...
- vs 2015 菜单重复的问题解决方法
打开 “运行” 输入 D:\Program Files (x86)\Microsoft Visual Studio 14.0\Common7\IDE\devenv.exe /resetuserdata ...