VBA的学习方法.doc

观此文者必是先能熟练使用互联网搜索引擎，对象浏览器，本地窗口，注册表等基本技能者。就像吃饭必须认得什么是碗，哪个是锅，什么时候用筷子，什么时候该用汤勺。管中窥豹有两种截然不同的理解：一种是褒义的，意谓人们可以从观察到的事物的一部分来推测该事物的全貌。从字面上理解“管中窥豹”，那就是从“竹管”中透过视线来看到豹子，由于视线受到“竹管”圆孔面积的限制，而无法看到“全豹”，只能看到豹子身上极具豹子特征的斑点花纹，于是就此推论这就是一只豹子。这种思路是极具智慧的。“由一斑而见全豹”，“由一粒沙子看到世界”，“由一滴水了解大海”，这些话常常被用来赞颂那些以小见大，通过小事情了解大道理的聪明人。一种是贬义的：从竹管的小孔中看豹，只看到豹身上的一块斑纹。比喻只看到事物的一部分。有时可以和略见一斑连用，比喻比喻只看到事物的一部分，指所见不全面或略有所得。 这里指的是前者。观察到论坛上很多人是从VBA开始学编程的，大致步骤是这样的，了解一些VBA（VB）的语法、对象，深层次一点的就研究API。相对于VBA来说API近乎天书，学起来就一个字 “真TMD苦”，往往为了实现一个小目标，要写几乎一篇作文一样的代码。对于快速实现目的来说，在VBA 到 API之间还有一个中间过程被大家忽略了，就是对于Windows提供的一些对象的使用。有非常多的API实现的方法，可以通过引用对象的方式来简单的实现。windows中有很多dll、ocx等系统文件，相当多的部分是可以被VBA借用的，但目前还没发现哪一本书是介绍这些文件及对象的使用方法的。想要通过这些文件去了解用法，不现实，因为有些用不上，有些VBA根本无法引用。但是碰到了就不能错过，学习过程中经常能看到 Set obj = CreateObject(aaa.bbb) obj.xxxxobj.yyyy = zzzz类似这样的代码，大部分人都是直接复制使用，所知者仅限于xxxx方法和yyyy属性，下次看到 obj.cccc 于是惊呼 “太感谢了，原来obj还有cccc这个方法。”但善于学习者从看到Set obj = CreateObject(aaa.bbb) 时就会想方设法去了解这个obj对象的所有内容，于是他不仅知道有cccc方法，还知道obj的所有方法和属性。他还会把这个后期绑定的代码改写为前期绑定的代码，以提高效率，并扩展出其他VBA自身不能实现的方法。来吧，成为一个善于学习的人吧，自己端碗拿筷子吃饭。看个实例,如何做到 “窥一斑而知全豹”sub 设置默认打印机()Set obj = CreateObject(WScript.Network)obj.SetDefaultPrinter Epson Stylus COLOR 680 这个打印机名称请根据自己控制面板中打印机名称修改end sub2009-6-30 16:45 上传下载附件 (45.81 KB) 按F8单步运行在本地窗口可以看到 obj 对象的类型是 Variant/Object/IWshNetwork2现在知道obj.SetDefaultPrinter 方法，如果还想了解其他方法，在obj后面打个“.”，并不会出现代码提示框，因为这是后期绑定，编译器不能告诉你还有什么东西可用。要想前期绑定这个对象，就必须知道它存在于哪个文件中，这样才能进行引用，这要通过注册表进行搜索实现。（也可以编写代码用API函数 从 WScript.Network 字符串得到，这不是本文所要讲的，略过）开始-运行 输入 regedit 后确认，在注册表编辑器中选中 我的电脑，按ctrl+F 打开搜索框 输入 WScript.Network勾选数据后查找，2009-6-30 16:45 上传下载附件 (24.54 KB) 2009-6-30 16:45 上传下载附件 (26.51 KB) 十几秒后，找到了在 HKEY_CLASSES_ROOTCLSID093FF999-1EA0-4079-9525-9614C3504B74ProgID 看到默认值为 WScript.Network.1看看 HKEY_CLASSES_ROOTCLSID093FF999-1EA0-4079-9525-9614C3504B74 项下的两个值主项默认值：Windows Script Host Network Object 这个是引用窗口中将看到的名称。InProcServer32 下的默认值 ：C:WINDOWSsystem32wshom.ocx 这是所在的系统文件有这两个内容就可以进行引用了。VBE菜单栏 工具 -引用 打开引用窗口，但却找不到 Windows Script Host Network Object2009-6-30 16:45 上传下载附件 (43.74 KB) 这是因为VBE只默认加载dll文件，对于ocx需要通过浏览方式来指定。点击浏览按钮，默认打开C:WINDOWSsystem32文件夹找到wshom.ocx 文件 点击打开，这下引用窗口中多了一个 Windows Script Host Object Model 选择，勾上它确定，这个名称与在注册表中看到的有些不同，个人理解：这是VBA的VBE干的，很多一样的引用在不同的编程工具中所反映出来的名称都会有差异，最典型的就是IE浏览器对象（WebBrowser控件）在VBA中 显示 Microsoft Web 浏览器而在VB 6.0 中显示 Microsoft Internet Controls，但这仅仅是显示的文字而已，里面的东西还是一致的。现在引用成功了，再来编写一个前期绑定的代码，用New关键字来创建对象，但具体使用那个具体的类名称还不确定，需要通过对象浏览器来查找。找什么？就找SetDefaultPrinter方法，按F2 在所有库 下面输入 SetDefaultPrinter 回车2009-6-30 16:45 上传下载附件 (57.63 KB) 看图，“ IWshRuntimeLibrary.WshNetwork 的成员”刚才所引用的是IWshRuntimeLibrary类型库而 obj是 IWshRuntimeLibrary库中的WshNetwork类 SetDefaultPrinter则是WshNetwork类的一个方法。在对象浏览器中可以看到多个关于打印机的方法，如果认的几个英文，这些方法就相当于大白话。EnumPrinterConnections 枚举打印机连接 SetDefaultPrinter 设置默认打印机RemovePrinterConnection 删除打印机.不认的也不要紧，复制了上网找Google翻译去。输入 Dim obj As New后会自动弹出代码提示框（New后面有个空格），这下知道该如何“选”代码了Sub 设置默认打印机前期绑定() Dim obj As New WshNetwork Dim ptrs As WshCollection Set prts = obj.EnumPrinterConnections For Each n In prtsDebug.Print n Next obj.SetDefaultPrinter Epson Stylus COLOR 680End Sub当你研究完WshNetwork类的各种方法属性后，先别急，既然IWshRuntimeLibrary叫做类型库，那就不止一个类接着输