【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-用VB设计OFFICE软件的客户端程序 - 技术总结的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

第22卷第1期2004年2月石河子大学学报自然科学版JournalofShiheziUniversityNaturalScienceVol.22No.1Feb.2004文章编号:10077383200401007203用VB设计OFFICE软件的客户端程序高新奇梁斌石河子大学信息工程学院新疆石河子832003摘要:中文VisualBasic6.0简称VB是一种比较流行和实用的编程语言本文通过实例说明了VB访问Office软件的一种方法。

    关键词:VisualBasic6.0程序Word2000Excel2000中图分类号:TP311.56文献标识码:A中文VisualBasic6.0是一种面向对象的可视化编程语言我们在开发实践中发现:VB和Office软件的结合可以帮助我们在程序中解决一系列涉及文字排版、复杂公式计算等方面的问题即Office软件可作为后台服务端软件来弥补前台VB的不足从而在自己的程序中融合Office软件的功能。

    以下是VB调用Office软件功能的一种方法。

    1在VB中访问Word2000用VB访问Word2000可在自己编写的程序中嵌套入Word的功能即以Word2000作为后台服务支撑软件给前端运行的VB程序提供相应的需要的功能从而完成前后台应用程序功能的融合以简化VB程序的设计。

    要在前端的VB程序里调用后台的Word2000的功能首先需要在VB中进行引用的设置具体方法是:打开VB工程菜单中的引用项目则可以在引用对话框中找到MicrosoftWord9.0ObjectLibrary的引用库选中其左侧的复选框后单击确定就完成了前后台接口的设计。

    如图1所示当加入了引用后我们就可以定义2个类对象:Word.Application对象用来在VB应用程序中登录WordWord.Document对象用来创建一个Word文档。

    有了这2个对象我们就可以完美地访问Word下面的例子是对输入的英文进行Word中的拼写检查。

    图11.1设计应用程序的界面如图2所示窗体中有一个文本框和2个命令按纽。

    图2收稿日期:20030701作者简介:高新奇1974男讲师从事计算机软件的教学与研究。

    1.2在代码窗口中编写的程序OptionExplicitDimmywordAsNewWord.Application定义对象DimmydocAsWord.Document定义对象PrivateSubCommand1Click单击事件myword.VisibleFalse让WORD对象不可见运行于后台Setmydocmyword.Documents.Addmydoc.Activatemyword.Selection.TextText1.Textmyword.ActiveDocument.CheckSpelling调用拼写检查功能Text1.Textmyword.Selection.Text把检查后的文本赋给文本框myword.VisibleFalsemydoc.CloseFalseSetmydocNothingEndSubPrivateSubCommand2Clickmyword.QuitFalseSetmywordNothingEndSub这个VB程序的作用就是在文本框里输入一段英文按相应的按纽就可以实现对英文的拼写错误的检查实际上就是把Word2000的拼写检查功能移植到了自己的程序中这种调用组合是目前程序设计中流行的COM技术的具体体现。

    上述程序已在VB环境中调试通过。

    2在VB中访问EXCEL首先在VB的工程中引用MicrosoftExcel对象库然后定义一个基本的Excel对象。

    有了这个对象我们就可在自己的程序中使用Excel的功能Excel中包含了多种综合计算和数据分析工具它们能够极大地增强VB应用程序的功能。

    下面的例子就是用Excel中的财务函数为VB服务的。

    假设将1000以年利千分之五按月计息存入储蓄存款帐户中并在以后12个月的每个月初存入100则1年后该帐户的存款余额等于多少要解决该问题可以利用EXCEL中的财务函数公式FV来计算。

    2.1设计应用程序的界面界面如图3所示。

    图3图42.2在代码窗口里编写如下的程序OptionExplicitDimmyexcelAsExcel.ApplicationPrivateSubCommand1ClickDimjAsDoubleIfText1.Text????AndText2.Text????AndText3.Text????ThenSetmyexcelNewExcel.Applicationjmyexcel.WorksheetFunction.FVValText1.TextValText2.TextValText3.TextValText4.TextLabel1.CaptionjElseMsgBox数据不能为空vbOKOnly提示EndIfmyexcel.QuitSetmyexcelNothing73第1期高新奇等:用VB设计OFFICE软件的客户端程序Endsub该程序的作用就是在四个文本框中输入相应的数据调用Excel的函数功能求出所要的结果最后把服务端Excel中的结果传回自己的应用程序显示。

    3在VB中利用Excel生成报表图4是VB做的一个数据库录入界面。

    我们通过对后台Excel的调用把数据库中的数据输出到Excel中形成用户需要的报表相当于把Excel特有的电子表格功能移植到了自己的程序中从而简化了设计过程。

    该程序的代码编写如下:OptionExplicitDimmyexcelAsExcel.ApplicationPrivateSubCommand1ClickDimmyexcelAsExcel.ApplicationSetmyexcelNewExcel.Applicationmyexcel.VisibleTruemyexcel.Workbooks.Openf:gxq.xls其中:f:gxq.xls是事先做好的被调用的报表模版文件。

    myexcel.ActiveSheet.Rangec7Text1.Textmyexcel.ActiveSheet.Rangec8Text2.Textmyexcel.ActiveSheet.Rangec9Text3.TextEndSubPrivateSubFormLoadForm1.ShowText1.SetFocusEndSubPrivateSubText1KeyPressKeyAsciiAsIntegerIfKeyAscii13ThenText2.SetFocusEndIfEndSubPrivateSubText2KeyPressKeyAsciiAsIntegerIfKeyAscii13ThenText3.SetFocusEndIfEndSubPrivateSubText3KeyPressKeyAsciiAsIntegerIfKeyAscii13ThenCommand1.SetFocusEndIfEndSub通过以上具体的例子我们可以发现:利用VB可编写用途很广泛的Office客户端程序利用VB的这一技术我们可以完美地实现不同应用程序之间的通讯在编程中起到事半功倍的作用。

    参考文献:1MICROSOFT.VISUALBASIC开发指南M.北京:清华大学出版社1999.2MICROSOFT.VISUALBASIC程序员开发手册M.北京:清华大学出版社1999.DesigningClient??sProgramwithVBGAOXinqiLIANGBinInformationandEngineeringCollegeShiheziUniversityShiheziXinjiang832003ChinaAbstract:ChineseVisualBasic6.0VBisamorepopularandpracticaldesigningprogramlanguage.BygivingtheexamplesthepaperdemostratesanapproachofVBaccessibletothesoftwareofoffice.Keywords:VisualBasic6.0programWord2000Excel200074石河子大学学报自然科学版第22卷