Question

实际上，我不是初学者。我对它们一无所知，但我确实有一些编程背景。

这就是：我有几个Word文档和一个Excel电子表格。文档需要从电子表格中获取一些数据然后打印。每个电子表格行需要一个文档，它们需要一起打印。

我不是要求代码或任何东西;我只是想知道什么是适合这项工作的工具，如果有人能指点我的教程或参考资料。

这适用于Office 2003（或XP，我不确定）。

编辑：似乎有很多方法可以做到这一点，所以如果有人列出了每个解决方案的优缺点，那就太棒了。请记住，这是可以多次完成的事情，一旦编程/录制/对于非程序员的人来说应该很容易使用。

Answer 1

哈维尔，

无法找到一个好的教程，但这样的事情可以帮助你开始：

如果开发人员工具栏不可用于Word选项，则可以启用它。然后，单击Visual Basic按钮并添加可以从文档中调用的过程或函数或Word UI中的命令按钮。

展示一些超级基本 Excel集成的示例：

Public Function GetValue()

    Dim myExcel As Excel.Application
    Dim myWorkbook As Excel.Workbook
    Dim myWorkSheet As Excel.Worksheet

    Set myExcel = CreateObject("Excel.Application")
    Set myWorkbook = myExcel.Workbooks.Open("c:\temp\myworkbook.xlsx")


    Set myWorkSheet = myWorkbook.Worksheets(1)

    Dim cellValue As String

    cellValue = myWorkSheet.Cells(1, 1).Value

    GetValue = cellValue

End Function

这将要求您从Excel开发人员IDE中添加对Excel对象库（类型库）的引用。

Answer 2

您可以在ADODB中通过VBA加载Excel电子表格，并逐行读取ADODB。

How To Use ADO with Excel Data from Visual Basic or VBA

Answer 3

您可以使用Word中的内置邮件合并功能来完成此操作。在Word 2003 here

中有一个如何使用它的演练

编辑：进一步查看注释中的问题，一旦设置了邮件合并文档，就可以将其保存完整，并附带指向数据源的链接。这意味着当再次打开文档时，用户只需要对合并的数据选择说“是”。

用户也可以（独立地）选择显示邮件合并工具栏。单击“邮件合并”工具栏上的“合并到新文档”按钮将导致生成合并的字母。如果未显示工具栏，则需要转到Tools＆gt; Letters and Mailings＆gt; Mail Merge并使用向导完成工作

Microsoft Office宏的初学者

3 个答案: