利用VBA实现Excel与Word的交互（上）

案例

如下图所示，如何将Excel的指定表格，写入到Word文档里，同时在Word内自动剔除掉没有发生额的记录呢？

要导入的Excel表格

Excel VBA代码和详细注释

Sub 将筛选后的Excel表格写入Word()
    '创建Word应用程序对象
    Dim wApp As Object
    Set wApp = CreateObject("Word.Application")
    'Word应用程序设置为可见
    wApp.Visible = True
    '新建文档
    Dim doc As Object
    Set doc = wApp.documents.Add
    '输入表格标题行
    wApp.Selection.TypeText (Range("A1").Value)
    '筛选复制表格内容，并黏贴至Word
    For i = 2 To 12
        If Range("B" & i).Value <> "" Or Range("C" & i).Value <> "" Then
            Range("A" & i & ":C" & i).Copy
            wApp.Selection.Paste
        End If
    Next
    '保存在同一路径下，并命名
    doc.saveAs2 (ActiveWorkbook.Path & "\自定义文档名.doc")
    '关闭文档
    doc.Close
    '释放资源
    Set doc = Nothing
    Set wApp = Nothing
End Sub

导入到Word后的表格