将单元格值从 Excel 拉入 Word（运行时错误 429）

Posted 2023-02-19

【中文标题】将单元格值从 Excel 拉入 Word（运行时错误 429）

【英文标题】：Pulling cell values from Excel into Word (Runtime error 429)

【发布时间】：2015-10-15 08:57:34

【问题描述】：

我在从 excel 中获取单元格值并在 word 宏中使用它们时遇到了麻烦（我正在尝试在 word doc 中的各种书签处插入来自工作表单元格的字符串值）。现在我只是想能够访问单元格值，但我想出了一个错误 429（ActiveX 组件无法创建对象）。任何有关如何从 excel 中提取值并在 word 中使用它们的帮助/建议将不胜感激。

Dim objExcel As New Excel.Application
Dim exWbs As Excel.Workbooks
Dim exWb As Excel.Workbook
Dim strWbName As String
Dim cisInfo As CIS

Sub PopulateDoc()
    Set exWb = New Excel.Workbook
    exWb = exWbs.Open("CIS.xlsx")
    exWb.Sheets("Property Information").Cells(2, 8).Value = "test"
End Sub

【参考方案1】：

您不能改为创建WorkBook 的New 实例：

Set exWb = objExcel.Workbooks.Open("CIS.xlsx")

（您还需要添加对Microsoft Excel XX 对象库的引用）

【讨论】：

我现在在该行收到错误 91（未设置对象变量）