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

VB5.0调用Office97技巧

HTML文档下载 WORD文档下载 PDF文档下载
VB5.0调用Office97技巧
作者:袁津生
Visual Basic 5.0具有简单、易学等特点,深受初学者的欢迎,但也有一些不如人意的地方。例如,不能像Word 97那样进行拼写检查,不能像Excel 97那样具有很多的函数。如果我们能将Word 97和Exce l97的功能使用在Visual Basic 5.0中,就可以使VB达到锦上添花的目的。

  我们知道所有Office 97 应用程序都提供了ActiveX对象,我们可以在Visual Basic 5.0中使用它们。

  调用Word 97

  要想在VB中调用Word 97,首先要打开VB的“工程”菜单中的“引用”项目,并在该项目对话框中选定“Microsoft Word 8.0 Object Library”就可以了。

  下面我们举例说明调用Word 97中的“拼写检查”和“单词统计”功能。首先新建一个工程并在窗体上放置一个TextBox控件和两个CommandButton控件,然后添入如下的代码:

   Option Explicit

   Dim Doc As New Document

   Dim Visi As Boolean

  图1 调用Word 97

   ′拼写检查

   Private Sub Command1-Click()

   Form1.Caption = “拼写检查"

   Doc.Range.Text = Text1

  ′确定范围

   Doc.Application.Visible = True ′将Word 97变为可见

   AppActivate Doc.Application.Caption

  ′激活Word 97

   Doc.Range.CheckSpelling

  ′拼写检查

   Text1 = Doc.Range.Text

   Text1 = Left(Text1, Len(Text1) - 1)

   AppActivate Caption

   End Sub

   ′统计单词数

   Private Sub Command2-Click()

   Dim Dlg As Word.Dialog

   Doc.Range = Text1.Text

   Set Dlg = Doc.Application.Dialogs

   (wdDialogDocumentStatistics)

   Dlg.Execute ′统计单词和字符

   Form1.Caption =“单词数:" & Str(Dlg.Words) & “词"

   & Str(Dlg.Characters) & “字符" ′显示统计结果

   End Sub

   Private Sub Form-Load()

   Form1.Caption =“调用Word 97"

   Text1.Text = “"

   Command1.Caption = “拼写检查"

   Command2.Caption = “统计单词"

   ′使应用程序可见

   Visi = Doc.Application.Visible

   End Sub

   ′关闭应用程序

   Private Sub Form-Unload(Cancel As Integer)

   If Visi Then ′关闭文件

   Doc.Close savechanges:=False

   Else

   Doc.Application.Quit savechanges:=False ′关闭 Word 97

   End If

   End Sub

   运行中的窗体如图1所示。



  图2 调用Excel 97

  调用Excel 97

  使用Excel Sheet对象的技术可以处理可变数量的数据,并将结果最后送到你的Visual Basic 应用程序中。例子如下:

  新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。

  程序代码如下:

   Option Explicit

   Private Sub Command1-Click()

   Dim xObject As Object

   ′调用Excel 97

   Set xObject = CreateObject(“Excel.Sheet")

   Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet

   xObject.Range(“A1").Value = Text1.Text ′将数值送入Excel 97的A1单元格

   xObject.Range(“A2").Value = Text2.Text ′将数值送入Excel 97的A2单元格

   xObject.Range(“A3").Formula = “=MAX(A1,A2)" ′将最大值送入A3单元格

   xObject.Range(“A4").Formula = “=ATAN(A1/A2)*180/PI()" ′将反正切值送入A4单元格

   ′显示计算的结果

   Label1.Caption = xObject.Range(“A3").Value

   Label2.Caption = xObject.Range(“A4").Value

   Set xObject = Nothing

   End Sub

   Private Sub Form_Load()

   Text1.Text = “"

  Text2.Text = “"

  Label1.Caption = “"

  Label2.Caption = “"

  End Sub

  该程序的作用是:首先在两个文本框(Text1和Text2)输入数值并分别将输入的数值送入Excel 97的“A1”和“A2”单元格中,然后用Excel 97中的“Max()”函数将计算的结果送入“A3” 单元格中;用反正切函数“ATAN()”进行计算并将结果送入“A4” 单元格中,最后输出。
昆仑游戏总裁张益豪:做好中国游戏的海外代理 游族首席运营官陈礼标:重点打造全球化IP 我是怎么利用微信月收入三万以上的! 我的Y Combinator黑客马拉松之感! 最炫HTML5 JavaScript框架Famo.us融资2500万美元 看板先驱David J. Anderson:看板方法拉动互联网时代敏捷变革 《近匠》增强现实开发团队LegendTech:AR技术现已加入15元豪华午餐 微软新技术:简单修改,手机摄像头摇身变3D深度相机 Black Hat USA安全隐患盘点及黑客奥斯卡颁奖 MDCC免费展位报名火热!数量有限,征集进行中 迪游信息科技CEO张晓雷:中日游戏面面观 百余款智能电视创意类应用参赛角逐 Top13 App新鲜出炉! 微信公众平台开发——如何保证access_token长期有效? 拼的就是速度!超快HTML5 2D渲染引擎Pixi.js 一周消息树:百度“涉黄”遭警告,网盘内容审核的四种方式 微信开发商现状调查:接口限制成主要困扰 行业需求多样是最大难点 小米:海外扩张需谨慎,信息安全或成最大掣肘 AMD FX系荣耀归来 或成大众新宠! 脑洞大开:《80天环游地球》同名游戏诞生记 2014微信开发者大会 最后30个参会名额! 林仕鼎创业产品“云校”正式上线:让教育个性化、多元化、均衡化 14岁少年开发者:伍兴云的智能家居“梦” Xcode 6 Beta 6发布闹乌龙,着重改进Swift语言 当API遇到云平台,开发者面临的新抉择! 《近匠》欧朋流量宝,工具类应用开发之道 《近匠》Bmob:免费无限制的公有云服务 MDCC应用征集最新动态:3D手游成热点、硬件种类丰富 闪迪Ultra II SSD:采用TLC闪存,最低价为79.99美元 现有技能不浪费!基于Titanium的跨平台游戏引擎Platino 跳过开发者,专注补Bug的iOS 8 Beta 6悄然发布 集群管理可以很简单,Google又放大招 在WEBLOGIC5.1上发布EJB1.1的一个小问题 请教,如何用jbuilder 写midas的服务器, 我们公司一个程序员的头式太难看了,我每次见他就恨不得拿剃头的推子给他剃光光! 寻最好的ftp软件 autoCAD的问题 找本站里面《程序员测试软件》的注册码 刚毕业的不能报? .lib 文件到底是怎么回事?如何查看它的内容? 请问,下面的警告提示什么意思(关于sybase) 那位可以给我描述一下“代表”? 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 高分请教!!!! 一定加分!!!1111111 在打印或打印预览前如何获取报表页数 求助.希望有人帮忙!! 我用ACTIVE REPORT出了问题....相教 请问如何获得硬盘的序列号? 请问各位,有什么好的方法来为用户分配权限,要多少分就给多少? 我有一个www.cnjava.com,有没有人愿意要这个域名? 请问Delphi中关于fropro数据库的软删除问题!急用!谢谢! 当两个表用主键关联时,删除主表的一条记录,关联表对应的记录能不能自动删除(不用代码)? 大家来谈谈各自在制作网页时的css于inc的运用吧 小弟对Java及C#的一点看法-请大家指正! 高手请进,帮我看看这是什么意思?感谢非常 基于组件的三层应用程序怎么打包?200分相赠!!! 如何执行带OUT参数的ORACLE的存储过程 有谁做过矩阵奇异值分解的程序? 讨论:爱需要表白吗? 请教各位大侠:我用TNMStrm控件发送数据时,怎样实现定时连续发送?我现在发送一次成功,紧接着第二次发送就不行了,出现蓝屏. 某工人三天做完一批零件,第一天做了84个,第二天做了余下的2/7,第三天和前两天做总数一样多,这批零件有几算式 工程队用了2天修了一条路,第一天完成全程的百分之50还多72米,第二天修的相当于第一天修的5分之3,这条路全长多少? 一个工程队计划3天修完一条水渠,第一天修了200米,第二天修了全长的五分之二,第三天修了前两天总和的一半,这条水渠长多少米? 小王三天做完一批零件,第一天做了总数的1/4,第二天比第一天多做了5个,第三天做了25个这批零件有多少个 工程队用两天时间修完一条路,第一天完成全程50%多72米,第二天修的是第一天修的3/5,这条路长多少米?不要方程 工程队计划三天修完一条公路,第一天修了全长的百分之六十,第二天与第三天修的长度比是3:5.已知第二天比第一天少修45米.这条公路有多长? 王师傅用3天共加工零件1200个,他第一天加工了总数的3分之1,第二天加工了余下的8分之3,第3天加工多少个 工程队修一条路每天修72米,28天可以修完,如每天修96米,多少天能修完?以---为等量关系,设X天修完,方程是: 工程队计划3天修完一条路,第一天修了200米,第二天修了全长的2/5,第3天修了前两天总和的一半.这条路有几米? 某工人1月份生产某零件1200个 修路队用两天时间完成一条公路,第一天修了全程的50%还多72米,第二天修的相当于第一天修的1/3这条公路长多少米(方程) 甲队计划3天修完一条水渠.第一天修200米,第二天修全长的2/5,第三天修全长的一半.这条 水渠长多少米? 某车间原计划加工1200个零件,实际第一天完成了原计划的3/8 ,第二天完成了原计划的5/12,第三天加工的是前两天的和,实际超过原计划的几分之几? 工程队修一条路,第一天修了全长的5分之2,第二天修了全长的百分之25,还剩154米没修,这条路全长多少米? 一个工程队计划修一条水渠,第一天修了九分之二,第二天修了二分之一,还剩200米没修完,这条水渠长多少米 修路队修一条公路,第一天修了这路的1/4,第二天修了余下的2/3,两天共修了1200米,这条路全长多少米?的解方程的详细过程 王师傅要加工一批零件,第一天完成计划的58 ,第二天完成计划的712 ,实际完成的超过原计划的几分之几?怎怎么做 工程队修一条路,第一天修5分之1,第二天修4分之1,第二天比第一天少修25米这条路有多少米?工程队修一条路,第一天修总路程的5分之1,第二天修总路程的4分之1,第二天比第一天少修630米这条路 修一条公路,第一天修了全长的1/4,第二天比第一天多修20米 还剩100米 两天共修了全长的几分之几 红旗车间三天生产了一批零件,第一天生产了总数的 ,第二天比第一天多生产20个,第三天生产了55个.这批零 工程队修一条路,第一天修了全长的5分之1,第二天与第一天所修的长度比是4比3,这时还剩下600米没修,这条路全长多少? 先不加分,等回答完加 修一条1200米的路,第一天修了全长的3分之1,第2天修了4分之1两天共修了几分之几,两天修了多少米 红旗车间三天生产了一批零件,第一天生产了总数的七分之二,第二天比第一天多生产了20个,第三天生产了55个这批零件宫有多少个? 工程队已修了一条路的3/8,还剩下1000米没修,要修的这条路长多少米? 李师傅三天完成一批零件的加工任务.第一天加工的零件数与总零件数的比是2:9,第二天加工了180个零件,前李师傅三天完成一批零件的加工任务。第一天加工的零件数与总零件数的比是2:第 李师傅计划三天内运完一批货物,第一天运了42吨,占这批货物的五分之二,第二天与第三天的运货量之比是4:3.李师傅第二天运货多少吨. 工程队修一条路,第一天修了全长的8分之3,第二天修了剩下的5分之2,第三天比第二天多修640米,这条路长多少米 李师傅3天完成一批零件的任务.第一天加工的零件数与总零件数的比是2:9,第二天加工了180个零件,前两天加工的零件数正好占总零件数的2—.李师傅第一天加工了多少个零件?3 搬运工计划三天内运完一批货物,第一天运了42吨,占这批货物的5分之2,第二天与第三天的运量比是4比3,第二天运多少吨 某工程队修一条路,第一天修了全长的5/27,第二天修了余下的3/11,第三天修了第二天余下的5/6,第四天修8千米, 李师傅三天完成一批零件的加工任务,第一天加工的零件数与未加工零件数的比2:7,第二天加工180个零件,前两天加工的零件数正好占零件总数3分之2,李师傅第一天加工了多少个零件?容易看懂~ 青年运输队计划3天运完一批货物.第一天运480吨,占这批货物的40%.第二天运的和第三天运的比是3比5.问:第三天的货物有多少吨? 工程队修一条路,第一天修了240米,第2天修了余下的40%,其余的第2天修完,已知第三天修的与全长的比是1:3.这条路有多少米 小李四天做完一批零件,第一天和第二天共做了54个,第二天,第三天,第四天共做90个,已知第二天做的个数占这批零件的五分之一,这批零件有多少个? 某建筑队计划3天修完一条公路,第一天修了全长的五分之二,第二天修的是第一天的百分之八十,第二天比第一天少修120米问这条路长多少米?第三天修了多少米?怎么列式谢谢 某工程队修一条路,第一天修了全长的27分之15第二天修了余下的11分之3,第三天修了第二天余下的6分之5,第四天修了8千米,正好修完,求这条路的长度. 小李四天做完一批零件,第一天和第二天共做了54个,第二,第三和第四天共做了90个,已知第二天做的个数占这批零件的5分之1,这批零件一共有多少个? 修路队计划修一条长1500m的公路,第一天修了全长的五分之二,第二天修了全长三分之一,还剩下多少米 工程队两天修完一条路,第一天修了5分之3千米,比第二天多修了8分之1千米,这条路 小李四天做完一批零件,第一天和第二天共做了54个,第二天、第三和第四工共做了90个,已知第二天做的个数占这批零件的5分之一,这批零件共有多少个? 市公路管理计划修一条全长200千米的公路,第一天计划修全长的五分之二,余下的第二修完,第二天计划修多少千 某工程队修一条路,第一天修了全长的27分之5,第二天修了余下的7分之3,第二天修了8千米,求这条路的长度.尽量用算术法,不然我不懂,也可以用方程, 张师傅四天做完一批零件,第一天和第二天共做了54个,第二、第三、第四天共做了90个,已知第二天做的占这批零件的五分之一.这批零件共有多少个? 王师傅计划3天内运完一批货物,第一天运了42吨,占这批货物的2/5,第二天与第三天的重量比是4:3第二天运货多少吨(要有详细的算式) 工程队修完一段公路,第一天修了全长的30%,第二天修了150米,第三天修了全长的2/5,第三天正好完成,这段公路长多少米 王师傅3小时制作了48个机器零件,照这样计算,制作80个零件,需要多少小时? 码头上有一批货物,计划三天运完.第一天运走了全部的五分之三,第二天运走了五分之三吨,第三天还要运四分之三吨.第二天和第三天共运了多少吨?第二和第三天共运的是这批货物的几分之几? 工程队修公路,第一天修全长的4分之1,第二天修150米,第三天修8分之1,三天完成,这段公路长多少米 王师傅4小时制作了96个机器零件,照这样计算,制作72个零件需要多少小时?(用方程解) 王师傅计划3天内运完一批货,第一天运了42吨,占这批货的5分之2,第二天与第三天运的重量比是4:3,第二天运多少吨?(上下接着的)急, 工程队修公路,第一天修了公路全长的8分之1,第二天修了后已修的长度与未修的比是3:5,工程队第二天公路修了全长的几分之几?(用比例来列)2.一个零件长2cm,它的长度与模型的长度比是1:5,模 两台机器生产同一种零件,第一台3分之一小时生产20个零件,第二台每小时生产80个零件.两台机器同时生产70两台机器同时生产70个零件需要几小时. 某工人计划在3天内加工完一批零件,第一天加工480个,占这批零件的40%,第二天与第三天加工零件数的比是2: 某个工程队修一条路,第一天修了全长的3分之一.第二天修了全长的4分之一 某车间计划加工一批零件,第一天加工了计划总数的1/4,第二天比第一天多加工1/3,第三天比第一天少加工1/3某车间计划加工一批零件,第一天加工了计划总数的1/4,第二天比第一天多加工1/3, 某工厂计划在3天内加工完一批零件,第2天加工了480个,占这批零件的五分之二,第二天与第三天加工的个数比是3比5,第二天加工了几个? 工程队修一条公路,第一天修了公路全长的1/8,第二天修了后,已修的长度与未修的比是3:5,工程队第二天公路全长的几分之几?(用比例解) 工人师傅加工一批零件用了3天,第一天加工的零件时零件总数的5分之2,第二天加工的零件时零件总数的7分之2第3天加工的零件时零件总数的几分之几? 某工程队修一条路,第一天修了全长的5/27;第二天修了某工程队修一条路,第一天修了全长的5/27,第二天修了余下的3/11,第三天修了第二天余下的5/6,第四天修了8千米,正好修完.求这条路全长多 某工程队修一条公路,第一天修了全长的5分之1,第二天修了全长的8分之3,___________.这条公路长多少千米1、第一天修了3.2千米.列式:.2、两天一共修了9.2千米.列式:.3、第二天比第一天多修2.8
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn