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

我想要Word从电子表格（Excel）中获取数据并检查每个单元格的值。 如果它的价值是一个特定的，那么Word提出（打印，放入，不pipe你喜欢称之为）相应的段落。

我一直在谷歌search几个小时，无济于事。 据我所知，我需要的是一个向后的，有条件的邮件合并单词; 一些程序，可以从本质上布尔值生成一个段落。

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 

在调用Excel对象之前，必须引用Microsoft Excel对象库。
你可以进一步自定义这个代码（创build更多的段落对象，添加格式等等）