布拉德·琼斯于2017年8月25日更新。

在你的工作周里，可能有很多次你会发现自己从microsoftexcel复制并粘贴信息到Word中，或者反过来。

这就是人们通常根据电子表格中积累和更新的数据生成书面报告的方式。Excel是一个很好的程序，从创建专业的图表，到建立项目管理跟踪程序，但当涉及到编写报告时，Word是一个更好的工具。

在本文中，我们将深入研究后台VBA脚本，它允许您实际编程存储在Excel文件中的数据与生成报表的Word文档之间的连接。

一旦您知道如何添加正确的引用，以及如何布局后台VBA代码的语法，那么将microsoftexcel数据集成到microsoftword中就非常容易了。

设置电子表格

在这个例子中，我将从一个相当简单的Excel电子表格开始。实际上，Excel文件可以由多个包含大量数据的电子表格组成—这无关紧要。

只要您知道在电子表格中的哪里可以找到数据，就可以使用VBA访问并获取数据。

下面是我的示例电子表格。这是一份全年计算的费用总额清单。

设置word文档

假设你有一个经理，他希望看到一个格式很好的报告来描述费用，像项目一样分组在一起，并以一种更美观的布局来呈现信息。

您可以通过将文本框和标签等对象合并到Word文档中来实现这一点。在Word中，只需单击Developer菜单选项卡，然后在Controls部分选择“设计模式”。使用传统工具下拉图标将各种不同的元素**到文档中。

使用此菜单**标签。

一旦将标签放置在文档中您想要的位置（并不总是一项简单的任务），就可以对数据提要进行编程了。但首先，您需要命名标签，以便VBA能够识别它。右键单击标签并进入属性。找到（Name）字段并将其命名为您将记住的名称。

现在，从相同的旧工具下拉列表中添加一个命令按钮，然后双击它以打开VBA编辑器。当您的代码以后工作时，您可以修改它，使代码在Document Open（）事件上运行。您将在编辑器窗口的对象下拉框中看到。

使用vba

要开始将Word连接到Excel，您需要确保可以在VBA中引用后者。

准备excel数据导入

单击“工具”，然后单击“引用”。向下滚动列表，直到看到Microsoft Excel 16.0对象库并将其选中。

完成这些之后，剩下的工作就是编写一个极其简单的VBA脚本，从Excel电子表格中提取数据，并用数据自动更新标签标题。

代码如下：

Private Sub CommandButton1_Click() Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Set exWb = objExcel.Workbooks.Open("C:\Users\Brad\Desktop\expenses.xlsx") ThisDocument.total_expenses.Caption = exWb.Sheets("Sheet1").Cells(12, 2) exWb.Close Set exWb = Nothing End Sub

看到了吗？“exWb”Excel应用程序对象按您提供的路径打开microsoftexcel文件，它将直接进入特定的工作表和单元格编号，提取数据，并将其放入我命名为total\u expenses的标签的Caption属性中。您需要在脚本中编辑的只是文件路径和标签名。

测试宏

要测试命令按钮，请保存文档，记住指定需要启用Word宏的文档，以便代码正常工作。

下面是VBA宏的作用。

集成excel标签

在Word中处理标签最困难的部分是，有时很难将标签与句子结尾或其他文本对齐。

克服这一问题的一种方法是在VBA代码本身的数据旁边加入一些文本。正如您在这里看到的，在创建标签本身时，我将静态文本放在了标题中。

现在，您所要做的就是在用VBA脚本更新标签时包含该文本，并将microsoftexcel文件中的数据附加到该文本的末尾。

下面是那种代码的样子。

Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook Set exWb = objExcel.Workbooks.Open("c:\Users\Brad\Desktop\expenses.xlsa") ThisDocument.total_expenses.Caption = exWb.Sheets("Sheet1").Cells(12, 2) ThisDocument.total_hotels.Caption = "Hotels: " & exWb.Sheets("Sheet1").Cells(5, 2) ThisDocument.total_dining.Caption = "Dining Out: " & exWb.Sheets("Sheet1").Cells(2, 2) ThisDocument.total_tolls.Caption = "Tolls: " & exWb.Sheets("Sheet1").Cells(3, 2) ThisDocument.total_fuel.Caption = "Fuel: " & exWb.Sheets("Sheet1").Cells(10, 2) exWb.Close Set exWb = Nothing

可以使用字符串串联“&”符号将静态文本与从Excel工作表中提取的数据连接起来。以下是更新后的Word文档中的最终结果：

更进一步

如果你想测试你的能力，为什么不进一步自动化你的报告呢？只需运行数据更新脚本，就可以从microsoftword文档中删除这个丑陋的灰色命令按钮文档。打开（）-整个过程将在幕后进行。

这意味着在许多情况下，您可以创建一次初始文档，然后再也不必创建它了。你所要做的就是打开它，所有的标签将自动更新为你的数据从更新的微软Excel文件。只需单击“打印”，然后将报告提交给您的经理。一份30分钟的工作变成了一分钟的打印输出！

你能想到使用VBA的这种数据集成技术还有什么好的用途吗？在下面的评论部分分享你自己的一些想法和想法。

图片来源：Punyaphat Larpsomboon viaShutterstock.com网站