vba - VBA：将excel数据读入word

Question

我正在制作一个简单的表格，从我的 Excel 表格中提取数据，例如姓名、出生日期和地址。并将它们插入到我的word表格中，我每次都做20-30张，所以我认为它可能能够节省复制和粘贴时间。

我尝试按照本教程进行操作：http: //www.makeuseof.com/tag/integrate-excel-data-word-document/ 并创建了一个带有简单标签的按钮，名称为m_name，用于成员名称。但它告诉我Compile error: User-defined type not defined。并在第 1 行标记。

我正在使用 Word 2003，（我无法按照指南的要求找到工具 > 参考）。我不确定它是否与此错误有关。

Private Sub CommandButton1_Click()
Dim objExcel As Excel.Application
Dim exWb As Excel.Workbook

Set exWb = objExcel.Workbooks.Open("U:\test.xls")
ThisDocument.m_name.Caption = exWb.Sheets("Member's Data").Cells(3, 3)

exWb.Close

Set exWb = Nothing

End Sub

Answer 1

是的，根据教程设置引用非常重要。

但是，更改这两行：

Dim objExcel As Excel.Application
Dim exWb As Excel.Workbook

到：

Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")

并且代码也应该可以工作。