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

利用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对象。

史上最牛:主要靠三消游戏IPO King也许会是第一家 乐视超级电视预约启动 1小时预约近1.4万台 王坚:未来一年阿里云会有很大变化 梁胜:开源并不是做好软件的唯一方式 如何为IE 10编写特定的样式 MySQL手册许可证更改乃是Bug惹得祸 开源世界高峰论坛首批演讲议题公布 测试工程师的心灵鸡汤:谦虚、不沉默、有危机感、不断努力 高德地图API“沿图有你,晒出你的LBS应用”活动拉开帷幕! 谁能找出Windows 8.1的安全漏洞,就将获得微软10万美元奖金! 【直击美国云计算】Facebook分享数据中心新网络架构Fabric 【直击美国云计算】OCP发起产业界的Maker运动 红帽刘长春:开源是推动云计算和大数据发展的重要力量 【直击美国云计算】出货量达x86的20多倍 ARM或将成为数据中心主角 孙小群:将SAP HANA打造为开放的PaaS平台 GitHub推出重大改进:强调速度、内容和交互性 如何打造测试工程师精英团队? 如何做个有“钱”途的测试工程师? 苹果开始关注企业移动化 iOS 7的10大办公功能 “开源群英会2013” 参会名单(持续更新中) 微软Builder2013前瞻 主打跨平台工具及服务 CMDN 29期:软件测试与管理之路 微软IE10与HIT FM 携手打造全新HTML5官网 专访GenMyModel CTO:一款全新在线建模工具背后的故事 【直击美国云计算】Jason Hoffman:数据和计算的融合将破坏全球利润 【直击美国云计算】如何做Hadoop、流处理框架等技术的采用选择 【直击美国云计算】细数云技术领域成王败寇:从SaaS到SDN 【直击美国云计算】谷歌Jeff Dean:成功的关键是专注 致远V5发布:强调大协同,企业移动化真来了 Mailbox:六星期实现从零到百万用户及日处理亿条消息 代码审查,也要天时地利人和 急急急,怎样用水晶报表作工作证? 网卡物理地址怎么改? 关于Swing的GridBagLayout WINDOWS 高级编程 和 核心编程 这两本书内容有什么区别吗? 我公司用ISA作为代理服务器,要求只能让装了ISA客户端的机器才能上网,不能通过IE的属性中设置代理服务器来上网(为了安全性) 如何设置光标形状 各位好心人,帮帮忙,送100分!!是关于WIN2000 ADV SERVER的配置!! 请问谁有jpeg格式读写的程序? 怎样用Treeview对满足条件的文件进行遍历(非数据库) 微积分求救!!!! 我的WEB程序用了VB开发的组件,请问用INSTALLSHIELD安装怎样连带组件一起安装? 急!求多表,多选查询sql语句 这个ActiveX控件如何实现 求教~~~ 在Sqlserver2000的function中能用。。。。。 关于虚拟主机的数据库服务器 VC、DELPHI问题 模拟串口问题。 高分相送。 截屏问题 一个很奇怪的问题??? ping值总是不稳是什么原因? 初次接触GIS,有什么书可以入门的介绍一下 和一MM聊天,开始很投机,后来一见面就对骂! 怎么批量插入数据 大家都来看看吧,顺便散点分 我的FLASH在没有装FLASH的IE怎么不可以自动下载FLASH? linux 断电后,启动失败,该如何处理!? 初级菜鸟问题,求助 终于解封了,多谢没头脑,偶以后再也不倒粪和刷屏了! 各位大侠,救命!亟待解决! 如何使一个数据库用户的所有对象只读,不可写? 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 怎样动态生成一个adoquery,并能进行数据库查询,小妹急用,100分奉上 怎么转换这个SQL Server的存储过程为oracle的 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好? 最简单的语句,最奇怪的问题。&&&&&&& 在线等待!!! D3D的简单问题 如何控制LineTo划线的颜色和宽度? 高分求《面向对象分析与设计》杨正甫编这本书下载地址。。。 学习DELPHI用铁道出版的乔林《参透Delphi/Kylix》 如何? 请问是否有比较简便的方法可以知道,程序中哪些变量定义完后根本不用? 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 指出下列加点字的古今意思变化与儿女讲论文义(儿女) 古意:--------- 今意:--------太丘舍去古意(去) 古意:--------- 今意:--------下车引之(引) 古意:------- 帮忙起的外号,可以当名字使的,霸气点的!本人属于健壮型的,想起的霸气点的外号,带浩字的,或明字的! 冰块怎么保温 浪琴石英表,秒针都不在刻度上,怎么回事是不是正常,每格都差的0.1秒 到了下面的步骤就不懂该如何思考下去了,思路中断了.请救救我.一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如果这件工作由甲或乙单独完成各需 使用十倍速影像阅读法之后,自我感觉没什么印象,但在晚上会做噩梦怎样才能学会? 怎么用定义证明lim(n趋于正无穷)(sin nπ)/(n)=0 马克思主义怎样通过生产过程的二重性来说明资本主义目的的 教育目标分类学的目标领域是什么 王明华一条题目做错了,从三个方面去安慰他 百岁老人生日送什么礼物 日常生活中什么东西可以代替保温袋 ε-N定义证明 lim(n→∞)sin(兀/n)=0, 求函数极限 大一的 dirty kiss是什么意思? 若点p(m,n)在第二象限,则点q(-m,-n)在 小学语文古诗如何讲解 在长方形上只剪一刀,剩下的角只有直角和钝角 若点P(m,n)是第一象限的点,则点Q(m+1,n+2)是第( )象限的点.A.第一象限 B.第二象限 C 第三象限 D.第四象限 概率矩估计的一个小计算我想问据估计的最后一步将均值和参数转换的步骤.比如 均值=θ /θ -1如何得出 ^θ =均值/均值-1 英语翻译A man was angry with his 3-year-old daughter,because she wasted a roll of gold wrapping paper.The family was poor.the girl tried to decorate a box to put under the Christmas tree. 若点P(m,n)在第二象限,则Q(-m,-n)在第几象限 求大一极限函数问题.第四小题. 小学四年级文明在哪里征文不少400-500字 若点P(m,n)是第二象限的点,则点Q(-n,-m+1)在第几象限? 地震是因为三峡吗?这两次据说都是 dirty kiss 我想学这首歌曲 发音有木有 求一个 最好能看懂的 本人英文不好I'm the one of those little freaky trouble makersSo give me love and start me upUntil I'm out of it causeYou sayI'm shocking shockingYeah I'm shocking sho 《学弈》 “思援弓缴而射之”中的“之”是什么意思?《送孟浩然之广陵》中的“之”又是什么意思? 把教育目标分成三个领域的那个布鲁姆是什么年代的人?20世纪50年代后,他对世界教育产生了影响了吗? 用一个平面在正方体上切正六变形 求图解 15、16世纪哪些重大活动促进了世界各地间的联系? 第九届春蕾杯题目 去姥姥家英语作文 人们在总结历史时,通常把15世纪到16世纪称之为“人”和“世界”被发现的世 纪.你赞不赞成这种总结?人们在总结历史时,通常把15世纪到16世纪称之为“人”和“世界”被发现的世纪.你赞不 简答布鲁姆在认知方面的目标的主要内容是什么? 我这是什么眼睛呢?是吊眼还是斗鸡眼啊?都说我的眼睛不好看. 有江南大学生物化学一共10年的真题,联系我 猫头鹰除了吃田鼠还吃什么昆虫 斗鸡眼是怎么形成的? 人民卫生出版社生物化学人民卫生出版社出版的生物化学,第六版和第七版变化大吗?我自学的话看哪个版本的好? 第九届春蕾杯选题是什么? 小东买了0.8元和2元的邮票共16枚,花了18.8元,那么小东买了0.8元邮票多少枚? 人民卫生出版社《生物化学》第七版书后光盘PPT的打开密码是多少? 初一科学小小小小小问题1.我国已进行了,“神州”号载人航天飞船的试验,不久的将来我国的宇航员将乘坐着宇宙飞船遨游太空.宇航员在太空舱中可以和地球上一样自由的直接对话,这是因为 燃烧的火英文怎么读 seiko人工动能手表秒针对不准刻度正常么? 三峡是怎样的?是美丽的 如图,AD是△ABC的角平分线,EF是AD的垂直平分线 求证∠EAD=∠EDA DE∥AC ∠EAC=∠B 给狗起个霸道的名字? 长江三峡究竟是怎样的? 孙思邈究竟活了多少岁? 霸气狗名 怎样形容长江三峡(填形容词)的长江三峡2011年4月1日18:00~18:30 给我一个最佳答案 △ABC中,∠BAC=80°,AB,AC的垂直平分线分别与BC交于D,E求∠EAD. 三.解释加点字的古今含义1.虽人有百手 古:________今:________2.不能名其一处也 古:________今:________3.两股战战 古:________今:_ 请在其他的空格中填入数字1~9,是1~9中的每个数字在每一行、每一列和每一宫中都只出现1次.空格我就用0表示了500070300090500400004000700051037289302080604008052137035000900609000823080023006 国内翻译布鲁姆目标教学书目 怎样延长气球寿命 增大气球体积使气球老化速度降低,提高气球充气体积怎么搞?例如加热?浸湿? 在其他空格上填入1-9的数字.使1-9每个数字在每一行,每一列和每一宫中都只出现一次九宫格数独问题()()()/()(5)(7)/()(8)() (3)()()/()()()/()()( 保温袋里可放冰块吗? 德国反驳美国抨击 称顺差体现竞争力2013亚洲旅游节:探索亚洲旅游业发广西和泰国教育交流日趋密切日本今日起举行大规模“夺岛”演习 被澳大利亚两个月间39人遭遇隆胸假体破美澳等多国驻外使馆被曝精心伪装 监听美国务卿首承认:某些时候美间谍活动走朴槿惠访欧正值韩英建交130周年 英经济滞缓导致欧元区通胀率降至2009大阪高岛屋出现机器人销售员 酷似真人美国一客机收到炸弹威胁 现已紧急转降天翼飞young百城百场演唱会启动 日本76件国家级重要文化遗产下落不明中国等亚洲多国要美解释美使馆监听驻在日食材造假现象屡禁不止 多家高级酒店美国一老将称美国实际为全球最大核威胁手机预装软件审核今起实施 360卸载沙特女性反抗禁驾令 小伙因改编歌曲助中国投资者青睐澳房产 投资额将达86美将俄歌星列入黑名单 俄抗议表示不可日本最先进潜艇“黑龙”举行下水仪式(2016年全国职称英语考试通关秘籍国家打压银行是为了扶正谁?李大霄:周五洗盘百点暴跌也不多嘛!恒泰君安:20151112股市收评【小天揭秘】中国最早的玉器之玉璧!留学英国最容易就业的5个专业,你选对新闻如何改变命运?听听郭启朝、汤生午婴儿出生仅15天 身体里发现双胞胎弟东平交通运输公司拖欠退休职工医保 4人类疯狂宇宙计划:核弹爆炸改造火星主力尾盘逆转三因素释放惊天玄机宅男福利!2015维密性感女神高清美上百只蚯蚓满地爬 台网友担心又有大地装修顺序不可乱,乱中出错砸房都来不及中央公车改革完成 涉及近5万公务员如何打造一封催款函更高效的成功收款股海中如何寻找“明日之星”?根植中国服务世界 Teleinfo亮你是向管理层们汇报的行家里手吗智能硬件 Pearlty自拍杆分享体重磅:周五三大猜想,题材炒作将持续!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘