Excel - 将单元格数据导出到 Word 文档的 VBA 代码

Question

我在使用一些 VBA 代码时遇到了一些问题。我想要做的是从 Excel 单元格中导出代码并将它们导入到文本字段中的 Word 文档中。

这是我的代码。

Sub test()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    objWord.Documents.Open "C:\Users\Acer Windows 7\Desktop\test.docx"
    With objWord.ActiveDocument
      .Text1.Value = ws.Range("A1").Value
      .Text2.Value = ws.Range("B1").Value
      .Text3.Value = ws.Range("C1").Value
    End With
End Sub

此代码采用静态单元格并将它们导出到 Word 文档中。我需要的是每行上的链接或按钮，它将从所述行中导出该代码并将它们放入 Word 文档中。

例如，如果我单击第 4 行上的链接/按钮，它将从 C4、E4、F4 获取数据

这可能吗？我不知道该怎么做。

Answer 1

如果有很多行，为每行添加一个按钮可能会有点麻烦。我建议只使用 1 个按钮来导出所选行。所以你只需要维护 1 个按钮/sub 而不是很多。

Cells(Row, Column)可以在这里使用。

Sub test()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    objWord.Documents.Open "C:\Users\Acer Windows 7\Desktop\test.docx"
    With objWord.ActiveDocument
      .Text1.Value = ws.Cells(Selection.Row, 1).Value
      .Text2.Value = ws.Cells(Selection.Row, 2).Value
      .Text3.Value = ws.Cells(Selection.Row, 3).Value
    End With
End Sub

上面的代码总是使用被选中的单元格行。因此，首先选择要导出的行，然后按下运行 test() 的按钮。