Olecon.oleobject:= Olecon.CreateObject('excel.sheet',false); 或选择导入一个excel文件来创建OLE对象: Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false); 最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了: Olecon.OleObject.application.CommandBars['Standard'].Visible:=...
a.拷贝整个工作表: ExcelApp.ActiveSheet.Used.Range.Copy; b.拷贝指定区域: ExcelApp.ActiveSheet.Range[ ′A1:E2′ ].Copy; c.从A1位置开始粘贴: ExcelApp.ActiveSheet.Range.[ ′A1′ ].PasteSpecial; d.从文件尾部开始粘贴: ExcelApp.ActiveSheet.Range.PasteSpecial; 16 插入一行或一列: a. ExcelApp.Acti...
procedure TForm1.Button2Click(Sender: TObject);var oExcel: Variant;begin oExcel := CreateOleObject('Excel.Application'); oExcel.Visible := True; oExcel.WorkBooks.Open('D:\Projects\test\test.xls'); oExcel.WorkSheets.add;end;
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....
用Delphi建立数据库与Excel之间的数据通信 介绍了Delphi与Excel之间的通信机制.基于OLE自动化技术,利用Delphi创建一个应用程序.该程序可遍历当前数据库表中的所有数据,并从中选取有用的信息进行分类汇总,制作报表. 涂晓斌,汤鹏志,祖建樱 - 《华东交通大学学报》 被引量: 16发表: 2005年 ...
Delphi,OLE Automation,Excel表格介绍了一种利用OLE Automation技术通过Delphi编程来控制Excel,实现Delphi数据集与Excel表格集成的方法,着重说明了运用面向对象的编程风格的建立新类,重载、扩充该类的成员,并给出了编程实例.刘子林,卜淮原WanFang重庆工业高等专科学校学报...
package org.fh.util; import java.util.Date; import java.util.List; import java.util.Map; ...
经过笔者搜罗了多方资料,终于成功实现了功能,本着资源共享的精神,跟大家一起分享。 1.解决oleContainer,失去焦点后无法再编辑的问题 2.主要是解决office隐藏菜单栏和工具栏的问题,2003版本和2007及以上版本通用 delphi OleContainer Excel 菜单栏 工具栏2014-09-11 上传大小:208KB...
19.2.2013 - WPTools 6.29.1 - fix in rtf writing code to solve problem with merged cells - fix possible rangecheck error - fix problem with TextObject.LoadFromFile and Delphi XE3 * RTF reader now handles UNC file links which use "\\" in the path * the cursor was not painted if ...
Delphi中使用OLE方法操作Excel 首先创建Excel对象,使用ComObj: varExcelApp:Variant;ExcelApp:= CreateOleObject('Excel.Application'); 注意程序结束时释放变量ExcelApp:=unassigned; 1显示当前窗口:ExcelApp.Visible:=True; 2更改Excel标题栏:ExcelApp.Caption:='应用程序调用Microsoft Excel'; 3添加新工作簿:ExcelApp...