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

VB如何调用 Office

HTML文档下载 WORD文档下载 PDF文档下载
VB如何调用 Office
调用Office97技巧

  VB不能像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

'调用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


调用Excel 97

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

  新建一个工程并在新建的窗体上放置两个TextBox和一个CommandButton及六个Label。
  程序代码如下:

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”单元格中,最后输出。
专访POWER 8编程挑战赛选手孙冬冬:从C语言到人工智能、深度学习的技术演变 盘点2014:十家最酷的大数据创业公司 盘点2014:最受关注的十大云服务创业公司 基于Kubernetes构建Docker集群管理详解 漫画:编程语言学习曲线 彩云天气: 328万元大奖背后的故事 iOS开发的22个奇谲巧技 谁是最受欢迎IT企业?技术、薪酬、发展空间、创新能力大评比 Jolt Awards 2015最佳编程工具奖榜单揭晓,Cloud9 IDE众望所归! 展望2015:数据中心行业的十大预测 亚信CTO金亚东:传统企业向产业互联网转型的两条路径 微信评论功能开启将成净土还是地狱 如何定位Android NDK开发中遇到的错误 流行从这里开始,MDCC 2014十大人气产品榜单揭晓! 专访POWER 8编程挑战赛选手唐刚:大数据计算永远是主角 微信公众号认证命名松绑,您怎么看? LambdaNet:纯Haskell实现的人工神经网络库 专注模式识别,易道博识为海量信息输入提供便捷之门 【问底】Michael G. Noll:整合Kafka到Spark Streaming——代码示例和挑战 2014年手游和社交游戏行业重要趋势解读 腾讯副总裁罗道锋:共建全国最大安全云库 5分钟内数据精准共享 Connected Cycle 一举两得的智能自行车踏板 CES可穿戴产品前瞻:汽车厂商入局智能手表领域 果断Mark!国外程序员收集整理的PHP资源大全 Google 2015项目前瞻:智能隐形眼镜、Google X、Ara Swift的坑:如何实现enum的多选? Swift,其实没那么任性 如何利用单台服务器实现10万多个Git仓库托管 Swift的初始化方法 TIOBE 2015年1月编程语言排行榜:JavaScript成大赢家 为什么iOS开发不需要Storyboard? 指点迷津啊??? 关于DataGrid的一个问题 VCD碟的.DAT文件转换成MPEG格式? 中秋节快乐!散!顺便问一下大家都吃什么品牌的月饼?五点钟准时结贴!!!!!!!!!!!! 求助!!!鲁文易盘无法驱动 如何获取提交表单的内容 Ado 问题 oracle中删除一个用户,用语法如何写 北京的兄弟们你们找工作通过哪几种方式 请问哪儿有cobol的编译器? 请问考系分的兄弟,都在看什么辅导书啊? 不能解决的给分,解决的给钱,时间限制在,13日之前!!!!!!!!!!!! 如何重新定义超连接的样式? ini和注册表能不能一起用? 调制解调器 SYNC灯不亮。 hehe GCC不认识sockaddr_in,但认识sockaddr,哪位大侠指点一下是什么地方没有配置好 asp中的过程和函数是否可以传递两个以上的参数? 假设我在dataGrid中的修改某一个单元格内容之后,焦点还没有离开,再去保存,就保存不了! 求助!!!鲁文易盘无法驱动,急!!!!!!!!!! 为什么只能用localhost访问? 还是烦人乱码问题~~JSP 连不上网。 人家说我有热情没天分,当不了程序员 中秋节给大家助助兴,小游戏一只,最终获胜的可获全部分数,100大分哦! 简单问题,急! 请教零长度问题(不好意思没分了救命啊) 请教零长度问题(不好意思没分了救命啊) sizeof的问题 今天的最近一问.... 写一个参数有默认值的函数出现的问题! 请教零长度问题(不好意思没分了救命啊) 有个关于可见性的问题,请指点, Delphi6中控制Excell2000的Chart的问题 看哪个地方出名人多 c++ 求学 (更上一层楼) 请教零长度问题(不好意思没分了救命啊) 高分寻求jtest4.5的破解 或注册方法 关于批量删除不同目录下相同文件的问题。 如何在VFP中运行VFP代码? 如何调用chm帮助文件? iptables问题 请教零长度问题(不好意思没分了救命啊) 大家來討論工作的問題 能用c语言编有关网络的程序吗?谢谢大侠们了:) 要在程序中控制在DBCHART显示不同颜色部分的内容及数值,如'34 丰田',来者有分? 提个建议:在祝福 璇玑大力 的贴子中,有不少的“名句妙词”,我们花点时间,搜集于一贴,同意的举手!(我的分数太紧张) 低级问题:如何把TFileStream中的一个字节读到一个byte变量中? 串口编程问题 jsp+mysql用的的resin服务器,运行一段时间,网站访问速度就很慢了,一般会是什么原因引起的呢? 两个字符串,前面是任意字符,后面必须是数字,怎么验证这两个字符串前面的字符是否一样? 孙猴子被惩治的原因是什么要三个原因 梅妻鹤子的典故 作文:我眼中的--------(人名,字数大概500~600 急用 有才的人帮忙 刺破青天锷未残 出自哪里 刺破青天锷未残——答一成语求大神帮助 Harper能当女孩名字吗 harper是姓还是名harper是姓氏吗,它能不能当名字用 矩阵特征值 X-1 3 -3-3 X+5 -3-6 6 X-4 一道矩阵特征值问题求解Consider the 2X2 matrix(a b)( c d)The direct iteration method for finding eigenvalues is applied to this matrix with the initial vector e0 = (0 1)T.The scaled vector e1 is found to be (1 k)T.If a = 6,b = 1,c = 10 求教旋转星图问题!我查到火星的没的时间,对应到旋转星图上相应的星座后,我想问怎么才能知道它所在位置是在高空、低空还是半空呢? 提纲格式以体验幸福为题写提纲,快 维也纳出新措治理粉尘污染美国长岛一小学生在校内玩胡椒喷雾致多美拒评是否曾监听默克尔手机 新自贸协新加坡一卡车为避前方车祸急刹车侧翻压美国疑监听默克尔电话 德国外长召见美日本6名女性涉嫌在网络上上传猥亵视频英媒:中国持续30年“英语热”降温德国每年屠宰5800万头猪 养猪业被中国游客剧增 美华纳兄弟影城配备中文德防长批评美国监控传闻 称欧美关系将日媒:2012年日本农业收入过半得益伊拉克部族领袖决定驱逐激进分子 威胁明星辛酸老底:赵本山玩暗恋李安吃软饭意一华人男子酒后驾车企图行贿警察 驾杨幂刘恺威婚礼晚宴曝光 豪花千万包下默克尔接受奥巴马邀请 拟在未来几个月少将潘良时升任北京卫戍区司令员中国海外反腐猜想美亚市华裔命案续:凶嫌案发后对儿媳说马英九约见杨秋兴 称“要把高雄赢回来成功大学校门“光复”二字被拆 嫌疑人柴达木实施光伏发电项目17项 形成四窒息的氧气真末世无双铠甲荣耀之湛蓝刀锋末日石头记无尽寂灭乱舞疯神左耳听见风吹过黑暗里走出来的巴娜拉黑暗圣徒魔法所罗门暗之神曲大法寺旅游南山文化旅游区旅游青岛水族馆旅游胶澳总督府旧址旅游红坪画廊旅游观音寺旅游招虎山旅游大明山旅游青山湖旅游尕尔寺旅游访卢阁旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘