将特定数据从Excel导出到Word

Question

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

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

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

Answer 1

如果您愿意编写宏，则需要使用参考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

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