如何从 Excel 检索数据并添加到 Word

Question

我有一个 Word 模板文件，它从 Excel 文件中检索数据以填充表单。

代码看起来像这样：

Dim myXL As Object
Set myXL = Getobject("myfile.xls")
myXL.Application.Visible = True
myXL.Parent.Windows(1).Visible = True

此代码在 Office 2010 和 2007 中运行良好，但当我在 2013 年尝试时，它给出 run time error 9，这是一个 array subscript error。当我检查 Windows 数组时，它有零个元素，所以错误是正确的。

如何在 2013 年取得同样的成绩？

下一段代码尝试访问 Worksheets("mysheet")，如果我跳过访问工作表的 Visible = True 行，则会给出 runtime error 1004.

如能帮助解决此问题，我们将不胜感激。

Answer 1

从 Excel

检索数据

一个例子是...

Option Explicit
Sub ExcelData()
    Dim xlApp As Object ' Application
    Dim xlBook As Object ' Workbook
    Dim xlSht As Object ' Worksheet
    Dim FilePath As String

    FilePath = "C:\Temp\Book1.xlsx"

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(FilePath)
    Set xlSht = xlBook.Sheets("Sheet1")

    With ActiveDocument
        .Content = xlSht.Range("A1").Value
    End With

    xlApp.Visible = True

    Set xlApp = Nothing
    Set xlBook = Nothing
End Sub

Answer 2

为了使代码在 Office 2013 上运行，我在尝试使 Window 可见之前添加了行 myXL.Activate。所以代码变成：

Dim myXL As Object
Set myXL = Getobject("myfile.xls")
myXL.Application.Visible = True
myXL.Activate
myXL.Parent.Windows(1).Visible = True

这修复了运行时间错误，代码恢复正常运行。

如何从 Excel 检索数据并添加到 Word

How to retrieve data from Excel and add to Word

excel

vba

ms-word

office-2013