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

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资料 自己的IE——用VB制作浏览器 VB6制作Win98风格的工具栏 VB实现窗口的弹出式菜单 用VB做个漂亮的进度条 Cool 3D 浮動按鈕的模擬作法-VB资料 VB 5.0中实现鼠标拖放 VB5.0下工具条的制作 VB5.0中基于桌面的屏幕技巧 VB5.0中实现字体闪烁效果 VB5实现窗口图像缩放、滚动技巧 VB6.0动态加载ActiveX控件漫谈 VB编程步步高-表单篇 VB编程常见问题 VB编程中如何锁定鼠标 VB创建位图菜单 VB实现按钮浮动效果 VB应用程序中的工具提示和状态显示 VB中处理长列表框项的两种方法 VB中多级下拉列表的实现 VB中防止将重复项目添加到列表框控件中 VB中实现菜单分割 VB中实现带预览的对话框 VB中实现同一窗口的多个实例及控件的动态增减 VB中阴影字体的实现 VB自定义数据结构的传输转换 Visual Basic 窗体背景花纹的实现 Visual Basic 中的界面设计原则和编程技巧 Visual Basic 中文本框处理技巧集萃 Visual Basic 中字符淡出淡入的实现 Visual Basic窗体背景花纹的实现 有点搞不懂了!! switch的简单问题 在哪里添加全局函数 两个asp.net问题,请高手一定解答! 关于Treeview的几个问题? 怎样才能实现按返回按钮以后,自动刷新刚刚提交的页面!代码如下,请帮我改改! HELP!!! 请问VB关闭WINDOWS下面的所有窗口的命令是什么?谢谢 数据移植问题,多帮忙呀! 问来问去,也没问出个所以然来。干脆再简化一下问题吧。 如何制做帮助文件? 一个XML绑定数据集的问题? 多层数据库一问!!!!!!!!!!!!!!!!!!!!!!!!!! 关于winvnc(在线等待) 请问“数据结构”这门课主要是学什么的? 这个毛病是什么原因?(加急,肯请赐教) 在线等候?自定义控件问题? 请问知道进程的ID值和句柄,能否控制程序窗口的大小? 多层数据库疑问!!!!!!!!!!!!!!!!!!!!!!!!!!! 关于IBM AS/400 DB2数据库编程 怎么从_streamptr 中恢复 recordset? 与数据库建立联接的后续问题 早上偶然看见前女友从眼前走过,突然有种莫名的感动 歌词和音乐同步问题?winnap的歌词插件基于什么样的原理做出来? 一个菜鸟的苦恼!! 用命令行配置IIS的命令是什么? 看看这个程序到底错在哪? 查找点对象问题,各位进来帮我看看 各位朋友一定请帮忙,关系到我工作问题(不是很难) 用ASP和Javascritp或Vbscript配合将SQL Server里的数据在客户端转换成EXCEL文件 Application的问题,急 谁能告诉我《银色幻想》在哪里有得下,万分感谢!!给分多多 新開一貼,sql語句請教,急,給分!!! 局域网内指定IP出现“该静态IP地址已经使用”,原理如何,如何编程实现。 一个语句的写法,up者有分 关于数据汇总的精典SQL语句求教! 有奖捉疵 50分 怎么打*****号部分的代码总不执行啊? 请问如何列举当前打印机支持的纸张信息? 歌词和音乐同步问题?winnap的歌词插件基于什么样的原理做出来? 急救!!!关于对话框中编辑框重画问题 小问题。。。。只想知道为什么。。。。 转载(贫富悬殊的中国) !!!用ASP能否实现一次上传一整个目录下所有的文件(子目录不算)?高手请答复! TreeView专题讨论 j2me中请问如果将textField中的内容写入到moto388手机的记事本中? 在vc中调用其他的exe include 另外一个jsp文件时,能向那个文件传参数吗?不能的话,有其他办法吗?谢谢 系统不能识别DaysBetween,如何处理 请问如下通过web连续下载图片,只是第一张要提示,以后每张就不再提示了? 关于ADO驱动MDAC版本的疑问 兄弟要工作了,是不是只要见到领导都要打次招呼? 有关SPSS中ARIMA模型的输出解读输出结果如图所示,请问模型的参数估计结果是什么,就是把模型帮我写出来, 梵高的星空介绍解说或赏析《星空》 玉龙雪山好玩么?我不知道怎么说呢听朋友 说丽江玉龙雪山很美,那有什么好玩的呢?是否有朋友说的具体些. WHO来说说含参不等式的解法啊.当参数a在2次项系数前的时候~怎么讨论~当参数a不在2次项系数前的时候~怎么讨论~.最后一问`为什么有的时候讨论△有的时候讨论参数捏~我不要其他地方转的,那 中国近代国学大师有哪些 高一化学除杂质的问题写出除去下列杂质(括号内为杂质)所需要的试剂的化学式.1)NaCl(NaCO3)2)CO2(CO)3)N2(O2)4)CuCl2(CuSO4)5)CaCO3(CaCl2)6)O2(CO2) 含参不等式与参变量关系ax^2+ax+1>0,求a的取值范围没说恒等,这才是我发愁的问题 为什么梵高和几米都画过《星空》啊?有区别吗我想买电影《星空》的同款拼图 可是发现梵高和几米的都有肿么回事哈 高一化学如何除杂质 含参数的不等式1.a(x-1)/(x-2)>2(a≤1)2.x^2-(a^2+a)x+a^3<0 中国著名的国学大师简介 机械能守恒定律是什么? 含参不等式..解关于x的不等式,ax+b>cx+d 变量与常量之间有关系吗?注意不是自变量与因变量 在平面上用18根火柴首尾相接围成等腰三角形,这样的等腰三角形一共可以围成多少个? 摩擦力 的一个疑问水平面上放一个B木块,上面放一个A木块,用绳子拉动B木块(1)匀速运动,A和B保持相对静止,那么它们之间有没有静摩擦力?(2)加速运动,A和B保持相对静止,那么它们之间有 二次项系数含参不等式讨论比如ax^2-(a+1)x+1<0讨论的是a>1 零一之间什么的.那怎么知道是以一为界限分段讨论的?而不是讨论大于2 大于3怎么求这个一? 赏析梵高的《星空》赏析这幅图……要大概200字左右……http://image.baidu.com/i?ct=503316480&z=0&tn=baiduimagedetail&word=%E8%F3%B8%DF+%D0%C7%BF%D5&in=14546&cl=2&cm=1&sc=0&lm=-1&pn=5&rn=1&di=663445721&ln=522 怎样求出圆柱的体积?横截面直径为2厘米的一根钢柱,横截成两段后,表面积和为75.36平方厘米.这根钢柱原来的体积是多少立方厘米? 求这三个图形的周长和面积? 中国国学大师是谁?我想知道中国国学大师是谁? 圆柱的体积是怎么样算出来的?在就是体积=容积吗?能一样给个公式吗? 关于水井,什么叫“取水深度”静水位 到 井底的距离么?那么取水层厚度呢?就是滤水管的长度? 第三次科技革命给人们带来哪些深刻影响? =SUMIF(表1!B3:B1000,B3,表1!F3:F1000) 在单元格中设置以上公式下拉后我想变成=SUMIF(表1!B3:B1000,B4,表1!F3:F1000)在下拉变成=SUMIF(表1!B3:B1000,B5,表1!F3:F1000)也就是说固定区域B3:B1000只改变条件B5 cosx的4次方 和5次方的不定积分是好多 好像有个公式样 顺便说说sin的单和双次方的不定积分 有什么规律不 大概是这个样子的cosx^4=3/4*1/2*PAI/2 梵高《星空》的英文介绍200词左右 如何使用SUMIF函数将一个表中的价格引用到另外一个表中呢 一瓶葡萄糖等于多少水?就是医院里挂水的那种. 请问“国学”的具体定义和主要内容都是什么吗?中国的国学大师都有谁呢? 我想问一下这是什么东西? 地下探矿用的金属探测仪,探测深度10米左右的,大概多少钱?推荐一下 水平地面上的物体在水平方向受到一拉力和地面对他的摩擦力的作用.在物体处于加速状态的条件下.说法对的A,当F增大时,f也随之增大 B当F 增大时,f保持不变 c F与f 是一对作用力与反作用力 D 我想问一下这是什么语 如何测量汽车玻璃尺寸 在现代光栅光谱仪中,为什么用闪耀光栅代替平面透射光 请问EXCEL怎么用=SUMIF的公式,算出参数C和D 的总数是多少. A B 为竖列 A 3 B 1 C 2 D 2 C 5 D 8单个参数我知道, 比如要算出一共C有多少, 可以用=SUMIF(A:A,"C",B:B)但是我想知道怎么算C和D一起共有多少. 怎 “薄纱”的“薄”应该读“bao”还是“bo”?请给我有权威, 关于气压的题目,某题"要尽快排出较封闭房间内的烟雾,可以在排气扇下方的地面上":点燃一较大的蜡烛..有两个疑问 1.蜡烛所在不是应该气温高.那么气压不应该相应是小的,为什么热空气会上 两个固定的等量同种电荷,在它们连线的垂直平分线上有a、b、c三点,a点在连线中点,b点在a点上面,c点上面,比较a b c三点的电场大小 亚显微结构是什么?那些细胞器是? 国内有没有哪一家做分光光栅比较好的?光谱仪上用的! 对一组数据用matlab做傅立叶变换,我这里有一组数据,左边的是原函数x轴上的,右边的y轴上的.现在要对这组数据做傅立叶变换,并输出图像.大家看看用matlab怎么办呢?85\x052106.65355285.1\x05781.83087758 薄.简单说明什么时候读bo,什么时候读bao 水是弱电解质,但是它作溶剂后,某些溶液比如蔗糖溶液,为什么就是非电解质溶液了呢? 求阴影面积, 已知Sn是数列{an}的前n项和,点(n,Sn/n)(n∈N*)均在函数y=3x-2的图像上.求{an}的通项公式用S(n+1)减Sn怎么算,我总是算到a1=1和an=6n+1 两物体叠加在地上,当两个物体开始受不同的拉力时,那它们对相互的摩擦力是多少 excel表格公式的问题:=SUMIF($D$2:$AS$2,"销量",D3:AS3)和=SUMIF($D$2:$AS$2,"销量",D3:BE3)对于上面这两个公式,为什么我用第二个公式计算的时候到了AS列以后的数值累加不了!只能累加AS列之前的数值啊? 剥字什么时候读bao?什么时候读bo? 两个叠加的物体,对上面的物体施加拉力,物体静止两物体之间有摩擦力吗?如果2物体匀速运动,拉下面物体,上面物体不受摩擦力那谁给他的力让他前进呢 SUMIF(A$28:A94,A94,D$28: 跪求sin(t+30度)的拉普拉斯变换 硫酸钡销售有几种原料 SPSS时间序列模型ARIMA,专家建模为什么输出的预测结果全部一样为什么我后面输出的预测结果全部是一样的,用的时间定义是 1分钟. 求sin t 的绝对值的拉普拉斯变换RT~~ 有关压强的题目矗立在天安门广场上的人民英雄纪念碑,碑身高37、94米,由413块花岗石石块砌成.碑心石是一块完整的花岗石,长为14、7米,宽为2、9米,厚为1米,上面刻有“人民英雄永垂不朽”.若 利用SPSS做arima拟合,如何根据最后得到的各种参数还原出公式.比如parameter estimates里的AR1 MA1 constant对应着公式里哪些参数? 薄什么时候读bo什么时候读bao急 有关压强的题一辆坦克过大坑,履带一半在地面,一半在空气袋上(气囊),气囊上的压强应该用坦克总重力除以气囊面积还是用一半重力除以面积?为什么? 安倍对俄采取\"温和路线\" 称普京美德拟签署“无间谍协议” 美国内整改美无人机飞行员“压力山大”:生命操控中国企业完成非洲最高建筑地下桩基础工小布什远离公开辩论 私底下担心茶党崛日本政府出资设国营公司 支援企业竞标1500件纳粹窃据艺术品被发现 价值埃及法老图坦卡蒙死因新解:或死于“车美国回应巴基斯坦指责 称与塔利班和谈阿富汗吸毒人数剧增 农村吸毒率达到3美国两架小飞机高空相撞 跳伞员及驾驶朴槿惠出席法国韩剧派对 当地民众热情为防抗议者干扰 埃及当局更改穆尔西受太阳马戏团在美拉斯维加斯表演时再发摔阿富汗吸毒人数剧增 农村吸毒率达到3小布什远离公开辩论 私底下担心茶党崛韩国十字会组织集体俯卧撑活动 为朝鲜为防抗议者干扰 埃及当局更改穆尔西受韩国总统访问欧洲 称日本应向德国学习如何绕开Google SSL故意泄露11家品牌奶粉入驻北京药店 专家称价全市宣传文化系统学习哲学社会科学工作全市统战系统举行关爱孤残儿童志愿服务我市发布今年首个暴雨预警信号全国“三夏”大规模麦收陆续展开驻马店 突出重点 把握关键 有序推进第十九届中国农加工洽谈会筹备工作全国新华短波 中方强烈不满日本主办G7峰市淮河大道京广铁路下穿引道工程正加紧汝南县妇联帮助留守妇女寻找致富门路全市纪检监察机关“两学一做”学习教育上蔡交警破获重大逃逸案 获数万网友点张昕:做好试点工作 为经济社会发展增我市2016年第二轮巡察工作动员会召戚存杰:狠抓落实 确保学习取得良好效克明面业打造农产品加工链条市人大组织开展“人大代表之家”建设观快乐庆“六一” 让爱伴成长市人大常委会组织视察中心城区城建重点市慈善总会举行贫困儿童大病救助善款发情系儿童健康成长驻马店市中心医院组织专家开展义诊活动
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘