说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

利用Delphi 5中调用Excel 97

HTML文档下载 WORD文档下载 PDF文档下载
利用Delphi 5中调用Excel 97

---- 在Delphi 5中简单地封装了一组Microsoft Office自动化对象(Automation servers)。它使得我们很容易地把Office中的应用程序(Word

Excel

PowerPoint

Outlook and Access等)当作一个com应用服务器进行控制。在Delphi 5中已经带了Word与PowerPoint的例子,因为Excel的调用与这两个应用服务器的调用略有不同,所以本人根据这两个例子写了个Excel 97的简单例子以供参考。

---- 步聚

创建一个普通Application。

在Form中分别放入ExcelApplication

ExcelWorkbook和ExcelWorksheet。

连接Excel 97,具体方法如下:

打开Excel97。

Try

ExcelApplication1.Connect;

Except

End;

ExcelApplication1.Visible[0]:=True;

增加一个Workbook。

ExcelWorkbook1.ConnectTo(ExcelApplication1.

Workbooks.Add(EmptyParam

0));

添加一个Worksheet。

var

Temp_Worksheet: _WorkSheet;

begin

Try

Temp_Worksheet:=ExcelWorkbook1.

WorkSheets.Add(EmptyParam

EmptyParam

EmptyParam

EmptyParam

0)

as _WorkSheet;//(注意)

ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);

Except

ShowMessage('Failure');

End;

end;

关闭Excel.

Try

ExcelApplication1.Quit;

ExcelWorksheet1.Disconnect;

ExcelWorkbook1.Disconnect;

ExcelApplication1.Disconnect;

Except

End;

---- 4. 对Excel的一些操作:

选择当前Workbook的某一Worksheet.

procedure TForm1.ComboBox1DropDown

(Sender: TObject);

var

i: Integer;

begin

ComboBox1.Clear;

For i:=1 to ExcelWorkbook1.

Worksheets.Count do

ComboBox1.Items.Add

((ExcelWorkbook1.Worksheets.Item[i]

as _WorkSheet).Name);

end;

procedure TForm1.ComboBox1Change

(Sender: TObject);

begin

ExcelWorkSheet1.ConnectTo

(ExcelWorkbook1.Worksheets.Item

[ComboBox1.ItemIndex+1] as _WorkSheet);

ExcelWorkSheet1.Activate;

end;

选择某一Workbook:

procedure TForm1.ComboBox2DropDown

(Sender: TObject);

var

i: Integer;

begin

ComboBox2.Clear;

if ExcelApplication1.Workbooks.Count >0 then

For i:=1 to ExcelApplication1.Workbooks.Count do

Combobox2.Items.Add(ExcelApplication1.

Workbooks.Item[i].Name);

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

ExcelWorkSheet1.Disconnect;

ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.

Item[Combobox2.ItemIndex+1]);

ExcelWorkBook1.Activate;

ExcelWorksheet1.ConnectTo(ExcelWorkBook1.

ActiveSheet as _WorkSheet);

ExcelWorkSheet1.Activate;

end;

对某一单元格进行赋值及取值。

procedure TForm1.Button5Click(Sender: TObject);

begin

ExcelWorksheet1.Cells.Item[SpinEdit2.Value

SpinEdit1.Value]:=Edit1.Text;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Edit1.Text:=ExcelWorksheet1.Cells.Item[

SpinEdit2.Value

SpinEdit1.Value];

end;

选择某一区域

ExcelWorkSheet1.Range['A1'

'C1'].Select;

打开一个Excel文件。

if OpenDialog1.Execute then

Begin

Try

ExcelWorkBook1.ConnectTo

(ExcelApplication1.Workbooks.Open

(OpenDialog1.FileName

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

EmptyParam

0));

ExcelWorkSheet1.ConnectTo

(ExcelWorkBook1.Activesheet

as _Worksheet);

Except;

End;

End;

---- 说明

---- 本程序在Win98+Delphi 5+Excel 97下运行通过。本例子还可以作适当的扩充,如DDE、执行宏调用、保存文件、打印文件及对Excel的设置等,此设置方法请参阅Microsoft Excel Visual Basic参考中的Microsoft Excel对象。

fieldValue(successful)-JQuery API formSerialize(true)-JQuery API formToArray(true)-JQuery API resetForm()-JQuery API $.recallDroppables()-JQuery API $.SortSerialize()-JQuery API Draggable(hash)-JQuery API DraggableDestroy()-JQuery API Droppable(options)-JQuery API DroppableDestroy()-JQuery API Sortable(options)-JQuery API SortableAddItem(elem)-JQuery API $.meta.setType(type, name)-JQuery API data()-JQuery API disableTab(position)-JQuery API enableTab(position)-JQuery API tabs(initial, settings)-JQuery API triggerTab(position)-JQuery API triggerTab(position)-JQuery API Tooltip(settings)-JQuery API PHP简介-PHP初学入门教程1 选择PHP的理由 -PHP初学入门教程2 从一个简单的程序来了解PHP -PHP初学入门教程3 PHP语法基础 -PHP初学入门教程4 建设一个简单的交互网站(一) -PHP初学入门教程5 建设一个简单交互的网站(二) -PHP初学入门教程6 建设一个简单交互的网站(三)密码验证 -PHP初学入门教程7 PHP文件上传 -PHP初学入门教程8 为站点添加投票功能 -PHP初学入门教程9 广告条轮播-PHP初学入门教程10 操作MySQL数据库实现简单的留言板-PHP初学入门教程11 能不能将word中的表格转换成表单中的表格,并保持格式不变???? VFP问题,为什么老显示文件正在使用 无限惊喜等着你!! 大家有没有这样的经历????? 谁有关于domino的一些资料,请告诉我!3ks 如何让组合框初始显示为某一指定的行??就像vb中使用listindex一样??? 散源代码(6)- 货郎担问题回溯法 散源代码(7)- 求解货郎担问题的分枝限界算法图形演示(v2) 请教windows xp 网络共享问题 你想有额外的收入吗? 如何在SQL Server中,让一个用户作另一个用的别名 谁有skinengine2.0的密码? vc++.net简单问题-必定送分 怎么分割? 紧急求助:(无以为报,奉送点值20分) 散源代码(8)- 动态规划算法计算网络的最长路线和最短路线 oracle 9i支持哪些jdbc驱动? 赚钱秘籍!!! 用ACCESS设计了一报表,在VB中如何调用? 求在CRichEditView中设置位图背景的代码?谢谢! 怎么在一个CStatic上用程序动态显示BMP图片 javabean+tomcat访问数据库,如何配置阿!大虾帮帮我吧!搞来稿去就不行! 我想在运行时把form里面的所有控件缩小一半(控件很多,不想一个一个设),该怎么办? c++builder6快出现了。散分!!!!!!!!!!!!!!!!!!! 如何在程序中插入 EXCEL表格 我是个菜鸟,我这个问题这么这么的简单,以经在CSDN上问了好多好多天,为什么就是没有人会帮我解决? 急,所以到谁圆问一下,.dwg的文件是什么格式,用什么打开,谢谢! 一段读串口的代码有问题,高手帮我看看 紧急求救!!!怎样用C++Builder在链接服务器中创建一个表呢?SOS 特惠虚拟主机:dtp.51.net! 想把一系统内存块拷贝到位于D3DPOOL_DEFAULT的Surface中,怎样做更快?谈谈你的经验吧 在msdn中我看了一下午关于枚举的可就是不明白他到底在什么情况或者处理什么情况的时候用? All-in-Wonder Radeon 是不是不支持 Real Producer???? 用ACCESS设计了一个报表,在VB中如何调用? 支持ASP、PHP高迅特价主机:(推荐)dtp.51.net 套接字问题再次提问 C#参考文档要的举手啊! 怎样做服务程序? (在系统后台运行) TComboBox的text能否设为只读? 站点属性中“应用程序保护”有三个选项,分别是---低,中,高。有什么区别吗?安全性有什么不同?为什么有的isapi程序必须设置成低才能正确执行啊? 怎样才能使Web页上的ACTIVEX控件自动下载注册? ADO 与 DATA MODUAL 怎样判断一个文本文件中的数据。 绝对的诚意邀请高手加盟 请问邮件服务器,如何用java实现,最好有源代码,谢谢了,急 急贴:>>>>>>>>>>>>>>>>>>>>>>>>>>这里有英语好的网络专家吗? 关于java中的画矩形 哪里有将股票数据转换成数据库格式的工具? 从哪里能找到用opengl绘制三维图形的源码?基于unix下的。 asp 怎么判断客户端的操作系统还有屏幕大小什么的? 卡在了一个错误里出不来,求救! 把一根用砂纸打磨过的铝丝浸入硫酸铜溶液中,过一会儿取出,观察,有什么现象发生?把一跟洁净的铜丝浸入硝酸银溶液中,过一会儿取出,观察,有什么现象发生? 切削液的防锈性如何测量呀.我在做车削实验.工件材料是45钢.则么样测量其防锈性呀.防锈性用铸铁铁片进行可以吗?越简单的方法越好. 平面磨床磨的工件为什么不平 金属加工液,乳化油和水基切削液,防锈哪个好?金属加工液,市场上普通的乳化油和水基切削液,用的时候,防锈哪个好?我听说普通的乳化油一般可防锈7天以,普通的水基的一般防二天左右,是这样 将加热至红热的铝箔置于氧气中,现象? 平面磨床磨出的工件为什么不平行 水基切削液可以防锈吗? 铝箔放在酒精灯加热至融化有什末现象. 数控铣床加工中心用什么切削液适合? 哪家公司能做防锈切削液配方分析厉害一点呀?最近我们公司自己生产防锈切削液卖得不好,有人说产品配方方面比例不对,想先找家专业公司做防锈切削液配方分析,哪里有? 实验现象 以下几个实验现象,能说明声音产生的原因的是……A:放在玻璃钟罩内的电铃正在发声,把玻璃钟罩内的空气抽去一些后,钟声明显减弱B:把正在发声的收音机密封在塑料袋里,然后放入水中,人 推荐几个化学实验,说明用什么药品,怎样做 铝合金微乳化切削液的特点? 以下几个实验现象,能说明声音产生原因的是:( )A 正在发声的音叉接触水面时,水面激起水花.B 把正在发声的收音机密封在塑料袋内放入水中,人们仍能听到收音机发出的声音.C 拉小提琴时. 关于2个铝的化学实验1.铝和四氧化三铁反应的装置是个什么造型?难道是铝和四氧化三铁摆在坩埚里面然后底下用镁条烧?还是镁条直接加到铝和四氧化三铁里面引燃,KClO3放在哪里呢?2.为什么 请问实验现象是什么? 请列举出三个能说明声音产生原因的实验现象 铝的化学实验设计铝具有传热性,导电性的证明实验简称 如:燃烧·铝 铝合金的切削液用什么类型的好,乳化、半合成还是全合成呢? 厕所怎么除臭?平时不该马桶盖的时候,楼上一冲水我们家就可臭了,怎么办?有什么好一点的办法吗?另外我不喜欢84的味道, 铝 实验 制取 两实验现象是什么 点燃镁带时未在实验桌上放石棉网会怎么样啊? 二氧化碳的制取1、稀盐酸和石灰石的反应.怎么把石灰石、稀盐酸放到试管中?大约放多少稀盐酸?2、集二氧化碳检查气体是否集满时是否要拿导管出来?如果没有集满的话怎么办?大约要多久才 生物实验现象 做镁条燃烧实验时在桌面上放石棉网的作用是什么 切削用量对切削力和切削温度的影响规律有和异同? 做实验时,如何去观察实验现象 在化学实验中点燃镁带时为什么放石棉网 南京黑色金属防锈纸,哪有的卖? 研具材料要比被研磨工件软还是硬? 镁带燃烧是用( )夹镁带的,实验中石棉网的作用是( ). 把一根用砂纸打磨过的铝丝浸入硫酸铜溶液中,反应的化学方程式是?砂纸的作用是? 平面磨床能磨哪些及哪些工件?;主要在模具领域方面;谢谢了 浴室里的毛巾架是不锈钢的好还是太空铝的好?哪种容易坏?... 将一根用砂纸打磨过的铝丝浸入硫酸铜溶液中,下列观察到的现象和结论正确的是1铝丝表面附着红色固体.2铝丝表面有大量气泡.3溶液的蓝色变浅.4溶液中一定有铝例子,硫酸根离子.6溶液质量 金属切削液防锈问题冬天到了,家用暖气中总会生绣.我想加点机械加工用的金属切削液,不知受热后行不, 如何把砂轮机改成用在立车上做刀具磨零件.零件很大的在8米立车上磨削.磨得是斜面.使精度达到表面粗糙度0.考虑轴向力.砂轮平衡问题.如何解决 将铝丝浸入硫酸铜溶液中得到什么现象?溶液中减少离子的是,增加离子的是? 镀铬前零件表面的粗糙度一般要求是多少? 冬天和夏天,没有采取任何防锈措施的生铁,哪个更容易生锈 现在的金属切削液有没有防锈的功能,哪家公司的金属切削液比较好? 镀铬前表面粗糙度要达到多少?材料是45号钢. 我马上要参加赴美带薪实习的口语面试,请过来人说说我该怎么准备呢?说得好追分 用家里的物品做化学实验写出实验用品,现象,化学反应式,结论 钻—扩工件的内孔表面粗糙度为多少? 赴美带薪实习口语测试会问一些什么问题啊? 谢谢帮忙! 在家里,用日常生活品,可以做哪些化学实验? 高一化学未打磨的铝箔在酒精灯加热的现象及解释! 赴美带薪实习的听力 口语大概考什么内容?难度如何? 反应釜为何物?用铝做它有何优点?“反应釜”是一个什么东西?有道题上问用铝来制作它有何优点? 加热铝箔实验时,融化的铝并不滴落,原因是___________,这个实验也说明氧化铝的熔点比铝____________(填"高"或"低") 我也参加了2012新东方的赴美带薪实习.我明天参加新东方的那个口语测试,心里没底.你当时都问的什么问题啊.就是新东方的口语测试,不是企业面试哦 铝的化合物有哪些?他们如何转换?(最好有方程式) 切削液防锈试验怎么做? 请问赴美带薪实习好吗,想了解下 在家做化学实验废气物如何处理没有重金属,就是有一些烧碱盐酸之类的,还有硫酸铜何氢氧化钙或者氢氧化钠配的溶液,我直接倒马桶里面了,我怕这样会造成污染,不知道怎么处理了我很头疼 加热铝箔有哪些现象 惠州市金属切削液生产厂家,防锈性能强、适合不锈钢材质的?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn