vba抓取网页数据(VBA信息获取与处理教程中第十五个专题(组图))

　　vba抓取网页数据(VBA信息获取与处理教程中第十五个专题(组图))

　　大家好，今天我们来讲解《VBA信息获取与处理》教程第十五题《将Excel数据信息传输到WORD应用程序》第一节，《在EXCEL界面打开和校验WORD文档》，本题是一个很有用的知识点，希望大家能够掌握和使用。本教程将提供支持的程序文件。

　　大家好，在当今时代，信息的传递非常重要。我们题目的内容是将EXCEL的数据信息传输到OFFICE应用的WORD中。在下一个主题中，我们还将解释传输到 PowerPoint。至于其他Office应用程序，传递给Office Access和Outlook的内容，我在其他教程中已经详细讲解过，这里不再赘述。

　　第一段实现EXCEL界面中WORD文档的打开和校验

　　关于EXCEL数据信息转WORD的问题，我在很多内容中都有说明。今天的内容只是总结和复现几个关键知识点。我们先总结一下如何在EXCEL界面打开和验证WORD文档。测试。

　　1 使用后期绑定方案在 EXCEL 中打开 WORD

　　关于在EXCEL中打开WORD，我在本套书的第一个话题中也有说明，这里使用了一个非常典型的后期装订方案来完成。所谓后期绑定方案，就是在代码中实现绑定，通过CreateObject语句来完成，比如下面的具体实现语句：

　　…………。

　　将 myWdA 调暗为对象

　　将 MyDocument 调暗为对象

　　RR = WordIsOpen("E:\NZ\文章\06 VBA信息获取与处理\001 激活WORD中的EXCEL.docm")

　　If Not RR Then '创建一个 Word 对象

　　设置 myWdA = CreateObject("Word.Application")

　　myWdA.Visible = True '打开指定的文档

　　Set MyDocument = myWdA.Documents.Open("E:\NZ\文章\06 VBA信息获取与处理\001 激活WORD中的EXCEL.docm")

　　……。

　　上述代码中，使用后期绑定的方法打开Word文件。同样，我们也可以使用早期绑定方案。

　　2 使用早期绑定方案在EXCEL中打开WORD

　　使用早期绑定的解决方法是在VBE窗口中点击工具的菜单，找到引用，进行如下检查：

　　

　　这样就实现了早期绑定的解决方案。我们可以直接在代码中使用 Word.Applicatio。我们来看一下早期绑定的标准代码：

　　sub mynz() '打开和关闭字，早期绑定方案

　　将 objApp 调暗为 Word.Application

　　将 objDoc 调暗为 Word.Document

　　设置 objApp = New Word.Application

　　objApp.Visible = True

　　设置 objDoc = objApp.Documents.Open(Filename:=ThisWorkbook.Path& "\015WordTest.docx")

　　'在这里做点什么

　　objDoc.关闭 False

　　objApp.Quit

　　设置 objApp = 无

　　设置 objDoc = 无

　　结束子

　　代码截图：

　　

　　代码说明：

　　1)上面的代码会打开一个“015WordTest.docx”文件，当然是在早期绑定的基础上

　　2) objDoc.Close False 关闭文件而不保存

　　3) objApp.Quit 退出字

　　3 如何查看打开的WORD文档

　　在操作的时候，我们经常会打开多个文档，如何查看这些文档呢？比如要找到我们需要的word文档，就需要使用GetObject语句，它可以返回已经打开的word文档的信息。关于这句话的解释，我在本系列书的第一个专题中已经讲过，不再赘述。让我们仍然看一下使用该语句检查已打开的 word 文档的标准代码：

　　Sub mynzA() '查看打开的word文档

　　将 objApp 调暗为对象

　　将 objDoc 调暗为对象

　　出错时继续下一步

　　设置 objApp = GetObject(, "Word.Application")

　　objDoc.Application.Visible = True

　　如果 objApp 什么都不是，那么

　　MsgBox "当前未检测到打开的 Word 应用程序！"

　　别的

　　对于每个 objDocInobjApp.Documents

　　Debug.PrintobjDoc.Name

　　下一个 objDoc

　　万一

　　设置 objApp = 无

　　设置 objDoc = 无

　　结束子

　　代码截图：

　　

　　代码说明：以上代码使用GetObject语句来获取已经打开的word文档。并在即时窗口反馈所有打开文档的名称。

　　我们来看看代码的实现效果。这时，我的窗口已经打开了word文档。接下来，我要实现捕获。

　　

　　这样就实现了信息的输出。

　　回到本节的知识点：

　　1 CreateObject语句的意义是什么？

　　② GetObject 语句的作用是什么？

　　③ WORD的早期绑定和后期绑定如何实现？

　　本讲代码参考文件：015 worksheet.xlsm

　　

　　块编程思想的内涵：

　　在我的系列书中，我一直在强调“积木”的编程思想，这也是学习使用VBA的主要方法，尤其是对于专业人士来说，采用这种方案是很有必要的。其主要内涵：

　　1 不要自己输入所有代码。你要做的就是把块放在正确的地方，然后修复代码，一定要复制它，从你的构建块库中复制它，然后修复代码并利用时间来有效地思考。

　　2 建立自己的“块库”。平时在学习的过程中，把自己觉得有用的代码放在一起，多积累，随时用。您在构建块库中拥有的信息越多，您的编程思想就会越广泛。

　　

　　VBA应用定义及学习教程：

　　VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对 VBA 的应用程序定义。在取代OFFICE的新办公软件出现之前，谁能在数据处理上做到极致，谁就是王者。技巧的巅峰莫过于VBA！

　　记得20年前第一次学VBA的时候，当时资料很少，只能看源码搞清楚，真的很难。二十年过去了，为了不让学VBA的朋友重复我之前的经历，我结合自己多年的VBA实践经验，推出了六篇VBA专题教程。

　　第一组：VBA代码解法是对VBA中各个知识点的讲解。总共147课，涵盖了大部分VBA知识点。提供的程序文件是难得的代码宝库，适合初学者和中级人员使用。必要的教程；本套教程提供的当前版本是修订后的第二版，程序文件已经过32位和64位OFFICE系统的测试。

　　第二套：VBA数据库解决方案 数据库是专业的数据处理工具。教程中详细介绍了使用ADO连接ACCDB和EXCEL的方法和示例操作，适合中级学习。目前本套教程提供了修改后的第一版教程，程序文件已经过32位和64位OFFICE系统的测试。

　　第三套：VBA数组和字典解决方案数组和字典是VBA的精髓，字典是提高VBA代码水平的有效手段，值得深入研究，是初级和中级人员学习的一种手段改进代码。本教程的当前版本是修改后的第一个版本，程序文件已经在 32 位和 64 位 OFFICE 系统上进行了测试。

　　第四套：VBA代码解法视频是给初学者的视频讲解，可以快速上手，更快掌握这个技能。本套教程为第一套教程（修订版1）的视频讲解，更易听元音。这套教程将另外提供已经在 32 位和 64 位 OFFICE 系统上测试过的程序文件。

　　第五套：VBA中类的解释与利用这是一门进阶课程，讲解类的虚无和肉身的程度。虽然类的使用较少，但认真学习可以促进自身VBA理论的提高。对这套课程的领悟，主要是读者的领悟，对一种佛教哲学的领悟。本教程的当前版本是修改后的第一个版本，程序文件已经在 32 位和 64 位 OFFICE 系统上进行了测试。

　　第六套教程：《VBA信息获取与处理》，这是一个高级教程，涵盖范围更广，实用性更强，面向中高级人员。教程共有20个主题，包括：跨应用信息获取、随机信息的使用、邮件发送、VBA上网数据抓取、VBA延时操作、剪贴板应用、Split功能扩展、工作表信息等应用交互、FSO的使用对象，获取工作表和文件夹信息，获取图形信息，以及自定义工作表信息功能等。程序文件在32位和64位OFFICE系统上进行了测试。

　　以上教程的学习顺序：1→3→2→6→5或4→3→2→6→5。提供的程序文件是一个庞大的代码库供读者使用，如有需要，微信：NZ9668

　　

　　学习VBA是一个过程，也需要体验一下枯燥的感觉

　　“百鸟齐飞，孤云孤。相见不厌，唯听亭山独。” 学习的过程也是修心的过程，修心平和。在码字的世界里，心静，心情好，身体自然就好。当心平静时，它是正义的。心中没有那么多的邪见邪见，也没有那么多的妄想。利益他人就是利益自己。我的教程可以帮助有困难的朋友。

　　“水无争，万物皆好。” 学习也是如此，知道自己需要什么，不蜷缩在世界的一小块认为自己是天堂的地方，以及自欺欺人的言论直到年老。努力提高自己，以充满活力的精神把握现在，这就是进步。越有意义的事情，就越难。意愿决定一切，智慧决定成败。无论遇到什么，都是风景。看不起纠纷，看不起得失。学习时是渺小而无声的，使用时是巨大而汹涌的。“路漫漫其修远兮，我必上上下下探寻”

　　每一次收获都是成长的记录。怎么可能没有证据？正是这种执着，让晨曦绽放出灿烂的光芒。最后，给致力于VBA学习的朋友一句话，让大家感受一下枯燥而执着的学习过程：

　　乌云掠过，暗语无声，

　　只有微风，惊动了梦中的莺。

　　看星星，疏散北斗七星，

　　钦奈将与过去的鹅一起去。

　　陌生人，昏暗的灯光，

　　忍着长亭。

　　多少VBA人，

　　在漆黑的夜里，静静地寻找梦想，期待黎明。

　　多么不合理！

　　分享我多年工作实践经验的成果，把这些有用的东西分享给真正需要使用VBA的同路人。回顾以往学习和使用VBA的经历，感慨万千。我想用这些话来纪念，