关于d5中TExcelWorkApplication,TExcelworkbook等的用法

oddstar 2000-03-13 11:19:00

我想用TExcelWorkApplication,TExCelWorkBook,TExcelSheet把我新建的一个book1.xls中的所有sheet中的所有cell的内容读出来,但总未成功,请哪位高手指点，
最好附上源程序.

...全文

64 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

//About my self excel control ..... study data // for your information... unit toxls5butt; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Excel2000, OleServer; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; CheckBox1: TCheckBox; Button5: TButton; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; // ExcelWorksheet1: TExcelWorksheet; // ExcelOLEObject1: TExcelOLEObject; // ExcelWorkbook1: TExcelWorkbook; // ExcelApplication1: TExcelApplication; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private v:variant; sheet:variant; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation { *.dfm} uses comobj; procedure TForm1.Button1Click(Sender: TObject); begin try V:=createoleobject(‘excel.application‘); v.visible:=checkbox1.Checked; v.workbooks.add; v.workbooks[1].worksheets[1].name:=‘good‘; sheet:=v.workbooks[1].worksheets[1]; sheet.cells[3,1]:=‘31‘; sheet.cells[2,1]:=‘21‘; sheet.cells[1.5]:=‘15‘; sheet.cells[2,2]:=‘22‘; v.workbooks[1].worksheets[2].name:=‘love‘; sheet:=v.workbooks[1].worksheets[2]; sheet.cells[3,4]:=‘34hello‘; // sheet:=v.workbooks[1].worksheets[‘helloaaa‘]; except showmessage(‘excel init load error, not excel or other error!‘); v.displayalerts:=false; v.quit; exit; end; application.Restore; application.BringToFront; end; procedure TForm1.Button2Click(Sender: TObject); begin if opendialog1.Execute then begin try V:=createoleobject(‘excel.application‘); v.visible:=checkbox1.Checked; v.workbooks.open(opendialog1.FileName); except showmessage(‘excel init error, not excel or other error, try again‘); v.displayalerts:=false; v.quit; exit; end; application.Restore; application.BringToFront; end; end; procedure TForm1.Button3Click(Sender: TObject); begin try if not varisempty(v) then begin v.DisplayAlert:=true; v.workbooks[1].close(true,‘c:untitled.xls‘); v.workbooks[1].close(true,‘*.xls‘); v.quit; end; finally close; end; end; procedure TForm1.Button4Click(Sender: TObject); begin if opendialog1.Execute then begin try v:=createoleObject(‘excel.application‘); v.visible:=checkbox1.Checked; v.workbooks.open(opendialog1.FileName); sheet:=v.workbooks[1].worksheet[1]; sheet.pagesetup.printtitlerows:=‘$1:$3‘; //page head sheet.pagesetup.printtitlecolumns:=‘‘; sheet.pagesetup.leftfooter:=‘Noted: PageHead‘+‘sum total&N page ‘+‘--No.&Page‘; //pagehead sheet.pagesetup.leftmargin:=30; //偞离?擒 Sheet.PageSetup.RightMargin := 30; Sheet.PageSetup.TopMargin := 30; Sheet.PageSetup.BottomMargin := 50; Sheet.PageSetup.PrintQuality := 300; //賤昴僅(跦?荂桶復隅) Sheet.PageSetup.CenterHorizontally := True;//岆瘁阨懈笢 Sheet.PageSetup.CenterVertically := True; //岆瘁晶眻懈笢 Sheet.PageSetup.Orientation := 2; //砃蹈荂 Sheet.PageSetup.Draft := False; //準翌詨耀宒 Sheet.PageSetup.FirstPageNumber := xlAutomatic; Sheet.PageSetup.BlackAndWhite := false; //窪啞詨 Sheet.PageSetup.Zoom := 100; //窺溫 sheet.PrintPreView; //蹈荂蕼罜 except Showmessage(‘initiale error ㄛnot Excelㄛor other error ˙try again!‘); v.DisplayAlerts := false; v.Quit; // finally exit; end; end; end; end.

最近用delphi写一个查询数据库并自动生成excel报表的工具，发现网上很多关于delphi操作excel的介绍都是不正确的。下面就介绍一下在delphi 7中操作excel的一些基本方法：把TExcelApplication,TExcelWorksheet,TExcelWorkbook拉到窗体上。 1.取得与excel引擎的连接 try...

其实，我们在原来版本如D5、D6中使用的控件如Quickrep,FastNet等，在D7中仍然是保留的。只是Delphi没有将他们默认的安装到组件面版中来。这些控件包全部保存在Delphi目录的bin下，文件扩展名为.bpl（共将近60个）。安装这些包的方法很简单，只需点击菜单"component---->Install Packages..."，然后使用"ADD"选择需要的包就可以了。下面就其中

用Delphi 7自己的组件的： TExcelApplication,TExcelWorksheet,TExcelWorkbook用法 Delphi自带控件操作Excel

其实，我们在原来版本如D5、D6中使用的控件如Quickrep,FastNet等，在D7中仍然是保留的。只是Delphi没有将他们默认的安装到组件面版中来。这些控件包全部保存在Delphi目录的bin下，文件扩展名为.bpl（共将近60个）。安装这些包的方法很简单，只需点击菜单"component---->Install Packages..."，然后使用"ADD"选择需要的包就可以了。下面就

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章