定义变量

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的更多相关文章

  1. Delphi 如何操作Excel

    摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi  控制Excel(一) 使用动态 ...

  2. Delphi操作Excel大全

    Delphi操作Excel大全 DELPHI操作excel(转)(一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp ...

  3. 用DELPHI操作EXCEL Word

    用DELPHI操作EXCEL 在DELPHI中显示EXCEL文件,可用以下简单代码做到.但要实用,则需进一步完善. var  Form1: TForm1;  EApp:variant;implemen ...

  4. C#操作Excel文件(转)

    摘要:本文介绍了Excel对象.C#中的受管代码和非受管代码,并介绍了COM组件在.net环境中的使用. 关键词:受管代码:非受管代码:Excel对象:动态连接库 引言 Excel是微软公司办公自动化 ...

  5. Qt之操作Excel

    Visual Basic for Applications(VBA)是一种Visual Basic的一种宏语言,主要能用来扩展Windows的应用程式功能,特别是Microsoft Office软件. ...

  6. C++中利用libxl操作Excel表格

    libxl是一款操作excel的商业库,支持C.C++.C#和Delphi.下文利用libxl在C++中实现了从excel文档的表1中随机挑选记录,保存到新建的表中.以下为代码: #include & ...

  7. 一个由正则表达式引发的血案 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. 一些特殊字符,如“&”,“- ...

  8. 免费高效实用的.NET操作Excel组件NPOI(.NET组件介绍之六)

    很多的软件项目几乎都包含着对文档的操作,前面已经介绍过两款操作文档的组件,现在介绍一款文档操作的组件NPOI. NPOI可以生成没有安装在您的服务器上的Microsoft Office套件的Excel ...

  9. C#通过NPOI操作Excel

    参考页面: http://www.yuanjiaocheng.net/webapi/create-crud-api-1-post.html http://www.yuanjiaocheng.net/w ...

随机推荐

  1. 别人走的路--uap

    首先,我先谈谈我个人的经历,我今年34岁了,做了10多年的ERP实施顾问,大学刚毕业的时候是做ERP软件开发的,后来转岗做了实施顾问.根据我的个人经验,我给你几点建议.1.既然是很大的公司,那么ERP ...

  2. MVC+MEF+UnitOfWork+EF架构,网站速度慢的原因总结!(附加ANTS Memory Profiler简单用法)

    (最近使用内存分析工具ANTS Memory Profiler,以及其他网友提供的意见发现最终导致内存泄漏的就是MEF,在此特地更新下,与大家分享!最下面红色字体) 最近参考使用了郭明峰的一套架构来做 ...

  3. vim字符串替换

    vi/vim 中可以使用 :s 命令来替换字符串.以前只会使用一种格式来全文替换,今天发现该命令有很多种写法(vi 真是强大啊,还有很多需要学习),记录几种在此,方便以后查询. :s/vivian/s ...

  4. asp.net中ashx文件如何调用session

    如果你要保证数据的安全性,你可以在ashx中使用session验证.如:你的index.aspx中使用jquery回调ashx数据,那么在index.aspx page_load时session[&q ...

  5. phpcms(4) V9 栏目管理

    phpcms V9框架系统后台管理之栏目管理,请参见下文的源码分析(添加栏目和修改栏目): 参照添加栏目的界面图示,便于对源代码的理解: <?php   // 文件路径:phpcms/modul ...

  6. JavaScript 获取当月天数

    getDate() 方法可返回月份的某一天.取值范围是1~31 如果是0的话,就返回最后一天.这样就能取得当月的天数了 比如获取16年2月份的天数 var day = new Date(2016,2, ...

  7. [转]我的第一个WCF

    1:首先新建一个解决方案 2:右击解决方案添加一个控制台程序 3:对着新建好的控制台程序右击添加wcf服务 最后的结果: 有3个文件 app.config  Iwcf_server.cs wcf_se ...

  8. 利用C#的反射机制动态调用DLL类库

    最近由于业务要求,需要动态调用DLL类库,所以研究了一下,感觉还好也不太难,今天就把自己理解的写了一个小例子(已经通过VS2005跑通),供大家一起研究和探讨,有理解不当的地方还请高手们多多指正,谢谢 ...

  9. ICE学习第一步-----配置ICE环境变量

    安装 ICE: 1.下载ICE: http://www.zeroc.com/download.html 下载说明:ICE支持语言(C++, Java, C#, Visual Basic,Python, ...

  10. nodejs版本控制

    本方法基于https://segmentfault.com/a/1190000004855835修改 配置: 使用的nvmw的git 地址https://github.com/hakobera/nvm ...