vba电子表格内容写入word（VBA案例Excel写入Word文档）

经常有人问怎么样使用 VBA 实现将 Excel 工作表导出到 Word 文档中，下面的程序给出了一个范例，其功能为将工作簿中的所有工作表中的内容导出到 Word 文档：

要在工程中引用WORD，勾选自己对应版本就行

Excel的sheet1

Excel---sheet2

在Excel的模块中写入如下代码：

代码截图

运行后生成Word如下：

生成的文档

---------------------------------------------------代码-----------------------------------------------------

Sub ExcelToWord() Dim wd As Word.Application Dim wdDoc As Word.Document Dim wks As Worksheet Application.ScreenUpdating = False Set wd = New Word.Application Set wdDoc = wd.Documents.Add For Each wks In ActiveWorkbook.Worksheets wks.UsedRange.Copy wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste Application.CutCopyMode = False wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter If Not wks.Name = Worksheets(Worksheets.Count).Name Then With wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range .InsertParagraphBefore .Collapse Direction:=wdCollapseEnd .InsertBreak Type:=wdPageBreak End With End If Next wks Set wks = Nothing With wd.ActiveWindow If .View.SplitSpecial = wdPaneNone Then .ActivePane.View.Type = wdPrintView Else .View.Type = wdPrintView End If End With Set wdDoc = Nothing wd.Visible = True Set wd = Nothing Application.ScreenUpdating = True End Sub