vba - 将特定数据从 Excel 导出到 Word

Question

我正在尝试找到一个宏，它将在一个相当大的 Excel 文件中查找特定列，并将它们各自导出/复制到一个新的 Microsoft Word 文件中。

例如，假设我想要 Excel 文件中的列H、I、J和O，每个都有自己的 Microsoft Word 文档（希望文档被命名为每列的第一个单元格数据）。

我通常使用 Microsoft Word 宏，但 Excel 似乎有点棘手。

Answer 1

如果您愿意编写宏，则需要使用 Reference Microsoft Word x.x Object Library。然后您可以使用Word.Application类型来控制 Word。

例如，这将打开和关闭 Word 的一个实例：

Dim w As Word.Application
Set w = CreateObject("Word.Application")
w.Visible = True ' if you want the user to see the window
w.Quit

要从所需列中的单元格访问数据，您需要使用Worksheet.Cells表格。例如，要读取 H 列（H 是第 8 列）：

Dim i As Integer
Dim s As String
i = 1

Do
    s = ActiveSheet.Cells(i, 8)
    If s = "" Then Exit Do
    MsgBox s
    i = i + 1
Loop

我相信你可以从这里开始。