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

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”单元格中,最后输出。
VB修改注册表一特例 VB与VC混合编程中处理消息的方法 VB中的进制转换是怎样的? VB中调用带参数存储过程的实现(数据库) VB中感叹号“!”与圆点“.”的用法差异 VB中如何实现注册表的读写 VB中实现“擦视”技术 Visual Basic 2000年问题 Visual Basic 的未来 Visual Basic 命令分类表 Visual Basic三级跳 Visual Basic使用技巧 Visual Basic中的子类处理技术 Visual Basic中软件封面技术探秘 VisualBasic 软件设计中的几个问题 Windows 95/NT 运行了多长时间 -VB资料 Windows 的登录资料库 -VB资料 把回车键变成TAB键-VB资料 把文件置入到Text或RichText中 -VB资料 避免按 [ENTER] 回车键产生的“嘀”声 -VB资料 避免使用全局变量-VB资料 避免装载多份应用程序-VB资料 不定个数的参数 -VB资料 不在任务栏中显示,只能在Ctrl+Alt+Del对话框中显示或者干脆什么也不显示数 -VB资料 处理 Dropdown List型 Combo的录入问题-VB资料 VB创建和删除快捷方式 从程序中生成 exe 文件 -VB资料 打开和关闭CD-ROM 驱动器 -VB资料 打开和关闭其他应用 -VB资料 打开一个超连接 -VB资料 当前操作系统的语言集-VB资料 如何计算cpu和memory的一般的使用上限 在delphi中使用什么报表控件打印的报表效果较好 谁知道db或dbf头文件的格式? 急急 NMFtp中我想从ftp服务器下载指定文件扩展名的文件,该怎么办? 初始化页面的时候,如何使TextMode="Password"的asp:textbox有默认值显示? IBM软件清库存(大优惠) 又是可恶的乱码问题 struts与数据库!在线等待! 如何开发asp.net程序(基于vb) vc++的链接错误 如何用程序动态的获得activex控件的方法属性事件信息 请教:使用web.xml做资源约束时如何由自己的程序来做用户验证 请问:怎样编程来来虚拟网卡? 急!创建LOOKUP的问题 如何计算cpu和memory的一般的使用上限 新问题请教! 老问题:从Excel文件里把数据导入导数据库中 有汇编玩的非常牛的人吗??? 字符串操作的简单问题 学习J2EE需要装什么软件? >>有关记录的问题??<< 请高手指教:出现“ORA12663:服务器未提供客户机要求的服务”问题,怎么解决? 大侠救我! 动态sql问题请教,谢谢 填充combobox的问题 windowsxp不能创建拨号连接 怎樣轉換時間格式 ACCESS问题 Linux下上网问题?在线等待!急!急!急! 终极讨论:从Excel文件里面导入数据 winsock的问题 关于WINDOWS下邮件程序编写问题 Solaris下的Makefile问题 在lan里面的两台主机之间怎么配ppp连接,没有modem 我的SQL数据库安装的是实例,好象有问题哦! 高分求票据、合同套打代码! 事务问题,请大家帮忙,在线等待,50分相送!!!! xml解析的问题? 关于CRuntimeClass,请指教。 100分求解(在线等待) 终极讨论:从Excel文件里面导入数据 CString怎样转换为char * 类型? 有关爱情与事业的讨论! replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")是什么意思? 非常简单的问题!!! 看看这个portal做的怎么样? 如何去掉word中的页码 兄弟们,帮忙推荐一本powerDesigner的中文书籍,电子书籍也可以,在线等待!thanks! 动态sql问题请教,谢谢 为什么我的OnTimer不响应呀 为什么javabean能连到oracle而jsp调用这个bean却连不上。 人寒冷的感觉是怎样造成的? doing是什么意思 久别重逢怎么造句 怎样才能给人一种冰冷的感觉 已知a,b为非零向量,函数f(x)=(xa+b)(a-xb),则使f(x)的图像为关于y轴对称的抛物线的一个必要不充分条件是A.a⊥bB.a平行bC.|a|=|b|D.a=b 南美白对虾、罗氏沼虾与中国对虾生活习性的对比 英语翻译Poligono Industrial Baix Ebre H STREET PLOT 79/80 形容一个人出门便要打扮漂亮,而家中乱得如垃圾堆一般的词语 英语翻译a telecommuting work force can help business-owners substantially curtail the overhead costs,such as the costs of rent and utilities 如图,四边形ABCD中,AD平行BC,点E在CD的延长线上,连接DE,交AB于点F,连接DB,∠AFD=∠DBE,且DE方=BE乘CE,(1)求证:∠DBE=∠CDE,(2)当BD平分∠ABC时,求证:四边形ABCD是菱形. 爱因斯坦的最大失误怎么样 两阶段法求线性规划问题maxz=10x1十15x2十12x3{5x1十3x2十x3=0并指出属哪一类解 英语翻译llacer ramirez lerardo laguia numero 49 alzira 46600西班牙巴伦西亚的一个地址。请注明那个是街道什么的 最好能翻译成中文的地址 仲永从幼年的天资过人却落得个“泯然众人”的结局,这个故事给了你哪些启发呢?请你从不同角度思考.(1)从仲永的经历来看(2)从仲永父亲的行为对仲永的影响来看 大虾和小虾有嘛区别?大虾比小虾大嘛. 英语翻译CALLE MARIA DE GUZMANNUM 58 Piso BJ 28003 MADRID 罗氏沼虾名字的由来 IT项目管理中线性规划的方法? 英语翻译街道:Avda,fuenlaburad65 地区:leganes Madrid Espana 韶山冲的读音“韶山冲”的“韶”怎么读?急用! 英语force;yenilated翻译什么 喜阴的农作物有哪些? 毛泽东的老家湖南省湘潭市韶山冲,“冲”是指什么?是行政单位吗? 英语翻译whose strength is proportional to the product of the objects' masses and inversely proportional to the square of the distance between them看了十分头昏… 在北方什么农作物喜阴 “韶山冲”中“冲”的意思是 光子为何能受到万有引力的吸引?这是困扰了我高三一年的问题.光子是能量体,不具有质量,根据万有引力定律,可以知道光子是不会受到黑洞的吸引的,可是为什么还说光子逃逸不了黑洞?除非光 什么作物喜阴 韶山冲为什么那么出名?韶山冲的“冲”是什么意思?湖南省湘潭市下辖的韶山市,有一个地方叫韶山冲,在全中国都很出名.一个小地方为什么那么有名气呢?韶山冲的“冲”是什么意思? 蝉的生命意义是什么, 兵的故事;”但此刻,他肯定是最感寒冷的一个人“?这句话和故事的结局有什么关系? 韶山冲的冲是什么意思 高柳乱蝉嘶上句是什么 有什么喜阴的作物啊?我想种在我家的大树下! 我就是L音不准,怎么发音, 那久别重逢造句 为什么说“但此刻,他肯定是最感寒冷的的一个人”?这句话和故事的结尾有什么关系?《兵的故事》天黑了.暴风雪呼啸得更加(愤怒 狂怒).一辆客车已经被暴风雪困在公路上六七个小时.车上 人有悲欢离合,月有阴晴阳缺,此事古难全,但愿人长久,千里共蝉娟, 一个正方形,它的周长等于它的面积吗? 《兵的故事》中为什么说"但此刻,他肯定是最感寒冷的一个人”?这句话和故事的结局有什么关系?” 但愿人长久,千里共蝉娟. 面积为121平方厘米的正方形的周长是多少厘米?11乘11等于121 11这数字从哪来的? 为什么说但此刻,他肯定是最感到寒冷的一个人?这句话和故事的结局有什么关系天黑了.暴风雪呼啸得更加(愤怒 狂怒).一辆客车已经被暴风雪困在公路上六七个小时.车上二十几名乘客中,有 但愿人长久,千里共蝉娟. 正方形的周长等于圆的周长,那么它们的面积 中华人民共和国第十一届全国人民代表大会第二次会议是什么时候开的 但愿人长久,千里共蝉娟.的意思? 代表拼音“xi ji”的文字是什么? 第十一届全国人民代表大会第四次全体会议什么时候召开? 祈祷的音怎么读 我想去外国读高中,但是英语不好,家境也一般,去国外读高中哪个国家便宜一点,需要哪些准备? 第十一届全国人民代表大会什么时候开始,什么时候结束? 但愿人长久,千里共蝉娟!这句话的正确解释是什么? 弃捐勿复道 努力加餐饭. 喜阴的菜有哪些 方仲永从神童到“泯然众人”,这种变化的根本原因是用原文回答 “L”的发音不准怎么办 理一理,连句成段.只写序号【】这个八边形的''藻井,还是古代的木质扬声器呢【】最典型的戏台 绍兴柯桥区塘乡的宾舍戏台距今已有400多年的历史.【】藻井壁间画着八仙过海的故事.【】在 方仲永由神通到泯然众人矣的三个原因是什么 发音不准(了.来)的音说不好怎么办?那位亲知道发音不准怎么治疗.了来说不好 上医院看了有的说要割舌系带有的说割了没用 .不知道怎么办了唉 韩承诺彻查干涉选举丑闻 被视为朴槿惠翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽男子纽约杀表兄家5人世界“最高男”终觅真爱斯诺登曝美国一月内监听西班牙6000美议员:欧洲应“感激”监听保安全格副总理当选总统鸟叔诉苦称进军海外压力大:两首歌走了叙提交化武销毁计划亲戚行凶 纽约华人母子五人被害英国发明“验精棒”可测精子是否达标埃及前总统穆尔西将受审 拒绝审判无人金华00后女生溜冰场结识男子 旷课5迈克尔杰克逊私人医生刑满出狱 欲再获55岁女子带出骗婚小团队 8个男人相拆反美海报 伊朗要与美国和好?国家公务员考试报名审查结束 浙江8万浙江省质监局:8家桶装水企业连续两次金华8890便民平台开通首日呼入电话安倍窜访土耳其 搅局土中军购“抗衡中国说”凸现安倍“同盟困境”杜绝大医院“赶大集”净水机:选购安装“四注意”山东9企业召回1.6万件儿童玩具齐鲁水墨名家日本邀请展本周六亮相济南马努:若伤痊愈定会为国出战看多派:房价下跌?没那回事儿!哪里会堵 不妨提前看看重刑犯“轻松”逃脱,应问谁失守学科分流后,更容易出“全能生”路遇车祸警民合力掀车救人老城“泉水人家”成济南新名片有亮点欠磨合美没收韩前总统部分家族财产英格兰小胜球迷不捧场他在篮球场不打球专盯篮架下的财物“服务西部计划”招募第二批志愿者郑洁无缘美网女双4强初秋快时尚精选浙商皮革城,向五星级标准进发华商基金:“价值搭台成长唱戏”格局或高考变革力除沉疴
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘