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

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

Windows 8和IE 10:如何保障视频播放? 云计算大会讲师秀之13:梁家恩,12年积累,构建永久免费的语音云平台 众望所归:智能手机芯片将为服务器所用 没有学位,他通过以下四步进入Google 谈谈Google Polymer以及Web UI框架的未来 保密入髓:前苹果员工揭示公司是如此善于保守秘密 调查显示:软件开发公司出现“人才荒” 三星拟6月20日在伦敦召开新品发布会 推手机新品Galaxy和ATIV 历届中国云计算大会PPT集萃(五):数据安全隐患解析与应对 搞趣网创始人:做不了阳春白雪 就做下里巴人 CMDN Club 28期:创业公司一定不要浪费资源 浅谈Lean UX:我们到底该怎么设计? 张艺谋今日正式加盟乐视 作品专区落户超级电视 WebKit华丽转身:欧朋浏览器8.0新鲜出炉 分析师称应出售Bing?除非微软倒闭,否则不可能卖Bing Go Mobile沙龙第二期:软硬整合与创客精神 专访西电黄宝林:《基于GPU的并行NMF网络聚类算法》获奖背后故事 友友姚宏宇:用C,C++和Java实现自主研发之后,放开心态迎“高朋” 新技术对传统学科的颠覆:系谱网使用大数据寻亲问祖 IDC:2015年全球平板电脑出货量将超PC Web开发者的福利 30段超实用CSS代码 库克出席D11科技大会:苹果公司没有陷入麻烦 千兆的带宽是不够的,最新研究将我们带入400G时代! 告诉你一个事实:移动互联网依然不大 一切才刚刚开始 戴尔的10亿美元云扩建计划到底是什么? iOS vs. Android,应用设计该如何对症下药? 扁平化设计五大原则 16种折磨开发者的方式 2013年度中国优秀开源项目征集活动正式启动 技术趋势:产品设计向“钱”看 服务器领域:旧时代已过 新时代正在降临 什么是水晶报表?干什么的呢?顺便问问外国网站那些动态文章怎么生成的? 难!!!用AdRotator控件,如何让多个实例,在只使用一个Ads.xml广告文件的情况下,不显示相同的广告? 什么软件可以修改.hlp文件 VS.net中, 一个关键的问题?各位高手请献计献策! 请问那里有ms exchange server2000正式企业版下载的?很急用,到处都找不到,请大家帮帮忙,谢谢! 如何得到正在编辑状态的一个列的值 谁有关于软件工程的英文文档? 如何判断哪个进程是我用程序打开的? 我的asp.net程序运行一段时间后,就会出现不能访问sql server的情况,好象说是缓冲区已满,不知如何解决? 如何利用串口来实现SNMP协议呢? 问中国球迷: 求一段从web页面通过提交插入sqlserver的源代码, 什么软件可以修改.hlp文件呢 谁有软件工程的英文文档? 请问如何给asp写成的系统打包成安装程序,我用了sql-server,难道连sql的设置之类的东东也一起打包吗? 请教PB高手,谁可以告诉我下段程序的功能 数据窗口中某字段为date类型,我希望新增记录是能自动将当天的日期附值给它 谁有 平衡二叉树的插入算法 的C源代码? 谢了 什么软件可以修改.hlp文件 id是怎么随机生成的?这是小弟我学asp.net遇到的疑惑 一个FLASH,,看看像不像自己。。。 谁有 平衡二叉树的插入算法 的C源代码? 谢了 请问那里有ms exchange server2000正式企业版下载的?很急用,到处都找不到,请大家帮帮忙,谢谢! Win2000辅助域控制器问题。无法建立辅助域控制器。谢谢! 什么函数能对CStringArray中的字符串按字母顺序排序? 请问数据窗口更新的问题。 请教有没有判断日期格式是否正确的函数? 各位高手,有人听说过PCI-7841,帮帮忙吧,拜托了 js可以修改xml里的数据吗? 如何知道某一台电脑的IP的子网掩码??急!!! 考试通过心情爽,开心、快乐的人请来!!! 什么地方有关于这个APACHE的安装,配置的讲解呀? 请教PB高手,谁可以告诉我下段程序的功能 神啊~~救救我吧~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 谁有没有好的方法将一条记录从表1中添加到表2(Ado连接)(在线等待)???? 如何判断鼠标是否移出一个窗口(广义上的窗口),且此窗口没有句柄 对delete 操作释放内存资源有些搞不清楚? SQL SERVER 中有没有计算余数的函数? 如何用vb开发web组件,比如说上传文件组件,发email组件,思路是什么?怎么样实现? 有谁知道哪里能下载我形我速,我找的网站下不下来,帮帮忙吧! 怎么让我的opengl程序link成static的,不想总是需要dll 为什么我的DBGRID不能用???? 来者有分!我想找一个能暂停一个程序并保存下来的软件。 100分的小问题,寻SQL语句,选出最小的记录? Dialog中能不能加ToolBar? ODBC参数绑定,为什么会失败,我已经试了最起码10次了,高手给我指教一下好吗,程序是这样的,谢谢! 请教一个数据库问题,大数据量时如何处理才能使速度不至于太慢,还望赐教! 我不明白,既然微软将C#定位在网络上,而且还大力支持ASP.NET,为什么在开发时还要大量借助于JavaScript呢? 怪事情更新表也会出现这种问题的吗?? 急!急!急!怎么不能注册com组件???? 怎样生成一个空文件,然后向里面写一些record数据? 蒸馒头碱面放多了怎么办 贪婪是什么词,现在是什么词(感情色彩) 电池中的碳棒有什么用?RT~还有,金属为什么会失电子? 铝泊沾水后变黑了,如何才能处理回白色?如题!我都糊涂了,我们现在是必须要去掉,不然的话,做成空调机也太难看了吧,白里带黑! 按照行政公文写作格式,求拟写一份表彰决定,某某市运动员在第十届某某省运动会上表现突出,夺得金牌和团体总分第一,请代市政府拟一份表彰决定. 一个电池和两个碳棒连在一起,碳棒连着酸碱水溶液或硫酸铜溶液里将一个电池和两个碳棒ab连在一起,b碳棒和电池的c极连在一起,a和电池的d及连在一起,ab插在硫酸铜溶液里其中b有红铜出现, 洗黑芝麻的水应该很黑吗?已经洗过五次了,我怀疑这种黑芝麻是否真的.敢吃否.(洗后仍是黑芝麻,咀嚼后无苦味) 贪婪的还义词 我国四纵四横高速铁路线客运网包括哪些路线? 为什么血压计要用水银的呢? 转换法和等效替代法有什么区别RT 我感觉好像差不多 金属钠和氢氧化钠能发生反应吗?生成什么? 家用臂式血压计可以和水银血压计一样准确吗? 如何鉴别伯、仲、叔卤代烷如(CH3)3CCl、CH3CHClCH2CH3、CH3CH2CH2CH2Cl三者怎么鉴别~ 想要制取金属钠,电解融触氢氧化钠能做到吗? 地主阶级具体指那种阶级,中国古代皇帝也算么? 纯水机的入水电导率有没有要求?高电导率的入水对膜寿命影响有没有具体关系?电导率 900μs/cm的进水行不行? 金属钠投入到氢氧化钠溶液中溶液质量会减轻吗?为什么? 封建帝王是也否属于地主阶级?就是封建皇帝 桶装纯净水电导率国家标准是多少 用科学记数法17970万平方千米与一千六百亿个与九亿 如何设置群里有等级?比如说团长地主皇上那些 新买电动车电瓶回题刚买没几天就发现电瓶用不了多久就没电,去问厂商说是还在磨合期,开几天就好了,有几点问一下懂行的人1:刚买的电动车(就是拿车时)电瓶是满电还是一半电,我的只 17970万平方千米用数字表示是? 在公文写作中,从报道内容上通讯的分类有哪几种?A.人物通讯 B.事件通讯 C.风貌通讯 D.工作通讯 E.故事通讯 (多选题) 把7.4gNa2CO3.10H2O和NaHCO3组成的固体混合物溶于水配成100ML溶液,其中C(Na+)=0.6mol/l则原固体混合物中Na2CO3.10H2O和NaHCO3物质的量之比为 不溶于酸的物质 硫酸钡和氯化银 能不能和酸溶液反应 能不能和碱溶液反应 社会各阶层对土地兼并的态度及原因地主,普通农民,帝王 把7.4gNaCO3.10H2O和NaHCO3组成的固体混合物溶于水配成100ML溶液,其中C(Na+)=0.6mol/l.若把等质量的固体混合物加热至恒重,残留固体的质量是---------3.18g 为什么 凡是能与酸或碱反应的物质是不是除了氯化银和硫酸钡以外所有的物质都可以?还有,不能与水生成对应酸(碱)的酸(碱)性氧化物有哪些?请分别列举 听说有个水银滑环的厂家,是专门做的啊?哪里的啊 公文写作求助我是本市经济发展改革委的工作人员,刚刚来到经济运行科,科长叫我写个函,大体就是两个企业因铁路发运滞后造成产品积压,给经发委写申请要求解决,而我需要将2个企业的申请 我的理想医生 水银滑环是做什么用的?如题 在北方高寒地区,人们用酒精温度计,这是因为水银比酒精凝固点低还是高? 一个用科学记数法表示的近似数精确到几位数是从哪里算起?如:9.6×10^6平方千米精确到哪一位?注:^...一个用科学记数法表示的近似数精确到几位数是从哪里算起?如:9.6×10^6平方千米精 水银导电滑环这个的厂家,有谁了解的呢? 通常情况下,测定物质密度所需要的基本器材是什么?(急) 36105.9万平方千米保留三个有效数字? 哪里买水银 什么是封建社会?从什么时候开始? 使用空气能热水器供暖是否可行?相对于空调取暖是否节能?徐州地区空气能热水器工作原理类似于空调制热,空气能热水器通过热交换把冷水加热,然后热水通过暖气片散热加热空气,相对于空 蛋白质纤维构成的网架结构是细胞骨架,这句话对植物与动物细胞都适合吗? 封建社会从什么时候开始的 氯化银(AgCl)和硫酸钡(BaSO4)这两种物质什么酸都不溶解吗 真核细胞中由蛋白纤维组成的网络结构称---- 什么是等效替代法?请举几个例子说明一下, 是作文要有我的理想医生要做什么不少80字 囊性纤维病和镰刀型细胞贫血症的形成,编码,蛋白质什么的,基因部分 小苏打和白醋产生的二氧化碳能闻吗 我的理想 医生准备怎样去实现自己的理想 怎样才能提高行政公文写作能力 金属钠和水反应生成什么,铁和水反应生成什么? 什么电池里有碳棒?我想要电解水,可是总是不见正极冒泡.听别人说正极材料不能用铜,于是我改用碳棒.但是拆了好几个电池都不见碳棒,请问那种电池里有碳棒,请详述. 行政公文写作的要求中最重要的一条是()A.为使各方面了解情况,可多发文件B.用语庄严、简明、通顺C.一文一事,中心明确D.符合国家的方针政策和法律法规 将Na2CO3·10H2O和NaHCO3组成的的混合物5.38g,溶于水配制成100mL溶液,其中Na+的浓度为0.4mol/L.若将等质量的该混合物加热至恒重,计算所得固体的质量. 电池的碳棒在哪 吃碱面馒头什么作用啊? 写信的格式 要有例文 普通的5号电池在家中被拆开了,把碳棒和粉状物清理了,但锌筒不见了,会对人体有危害吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘