Delphi操作Excel大全 DELPHI操作excel(转)(一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口:ExcelApp.Visible := True; 2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿…

用DELPHI操作EXCEL 在DELPHI中显示EXCEL文件,可用以下简单代码做到.但要实用,则需进一步完善. var  Form1: TForm1;  EApp:variant;implementationuses ComObj, OleServer,Excel2000;{$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);begin     EApp:=CreateOleObject('Excel.Application');…

http://www.docin.com/p-378093577.html在金融系统的应用系统中经常需要与Excel交换数据或利用Excel制作报表,但在某些情况下,我们的业务系统要求生成的临时或最终的Excel表不被别人打开,而工作表的部分或者全部单元格也不允许被别人修改,这时我们要用到Excel文档的加密和工作表保护功能. 请看下面实例如何在Delphi中加密和保护Excel表.有关加密和保护Excel表主要用到下面四个方法:1.以加密方式保存Excel文档的方法 ExcelApp.Acti…

直接上代码吧,这个示例在Excel中输出一个M2: unit FfrmMain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RzButton; type TfrmMain = class(TForm) RzBitBtn1: TRzBitBtn…

http://www.cnblogs.com/ywangzi/archive/2012/09/27/2705894.html 两种方法,一是用ADO连接,问题是Excel文件内容要规则,二是用OLE打开,但操作就没有象 操作数据库那么方便了. 一.用ADO连接: 设置属性ConnetionString 选择 Microsoft Jet 4.0 OLE DB provider Select or enter a datasorce name -> 选择你要打开Excel文件 User name默认…

简单的例子 procedure TForm1.Button1Click(Sender: TObject); var ExcelApp,MyWorkBook: OLEVariant; begin opendialog1.Filter:='Microsoft Excel Workbook (*.xls)|*.XLS|'; edit2.Text := 'sheet1'; if opendialog1.Execute then begin edit1.Text:=opendialog1.FileName…

虽说报表多又难做,做报表相当容易. 做报表也可以偷懒的,超级实用又省事.只需要做一个报表,这个报表里面包括几乎所有的数据字段,然后将查询到的数据导出到 excel中,利用excel自带的“数据透视”功能,客户只需要点几下鼠标就可以生成自己所需要的报表.通过这种方法,一个报表可以产生n个 报表.通过几行代码可以操纵excel打开“数据透视”功能.冒必要在自己的程序里面做数据透视功能了,要做到excel数据透视那种功能效果, 还是要花费不少时间的. function GetExcelCol(iCol…

生成excel中的饼图 var i,j,m,n,count1:integer; str:string; Jdate:tdatetime; channellist,potBstrtime,potEstrtime,Jchannelname:string; Rres:boolean; JSHR:double; Excelid,achart1,cell1,cell2,cell3,cell4,cellMiddle,Range1,Range2,series1:variant; ExRowsValue,ExR…

procedure CreatRepSheet(SheetName:String;PageSize,PageLay:Integer); {新建Excel工作簿.进行页面设置} begin {新建Excel工作簿} then begin ExlBook := ExlApp.Workbooks.Add; //ExlBook:=ExlApp.WorkBooks[].WorkSheets[]; ExlApp.ActiveSheet.Name:=SheetName; end; {if} {进行页面设置}…

Use ComObj: procedure TorderMore1.BitBtn2Click(Sender: TObject);var  xlsFile:WideString;  var ExcelApp: Variant;begin  SaveDialog1.FileName:= MyQuery3.FieldValues['orderno'] + '.xls';  if SaveDialog1.Execute then  begin    xlsFile:=ExtractFilePath(ap…