excel - 从 Excel 电子表格自动生成条件 Word 文档？

Question

我希望 Word 从电子表格 (Excel) 中获取数据并检查每个单元格的值。如果它的值是一个特定的值，那么 Word 会显示（打印、放入，无论你怎么称呼它）相应的段落。

我已经谷歌搜索了几个小时，但无济于事。据我所知，我需要的是一个向后的、有条件的邮件合并；一些可以从本质上从布尔值生成段落的程序。

Answer 1

您是否正在寻找这样的东西：

Option Explicit

Sub Test_ExcelCalcFromWord()

Dim oExcel                      As Excel.Application
Dim oBook                       As Excel.Workbook

Dim sString                     As String
Dim oParagraph                  As Word.Paragraph


Set oExcel = CreateObject("Excel.application")
Set oBook = oExcel.Workbooks.Open("U:/Book1.xlsx")
oExcel.Visible = True

sString = oBook.Sheets("Errors").Range("A1")

If sString = "Haha" Then
    Set oParagraph = ThisDocument.Content.Paragraphs.Add
    oParagraph.Range.Text = sString
End If

End Sub

您必须先引用 Microsoft Excel 对象库，然后才能调用 Excel 对象。
您可以根据需要进一步自定义此代码（创建更多段落对象，为其添加格式等...）