将Excel工作表复制到Word

我需要将工作表'GreatIdea'导出到Word文档。 “GreatIdea”分为多个页面，我的列以这些页面为基础。

A – C包含目录，D – F包含第1章，…

Sub test() ' Open LOL.docx' Dim appWD As Word.Application Set appWD = New Word.Application Dim docWD As Word.Document Set docWD = appWD.Documents.Open("C:\Users\TOM\Desktop\LOL.docx") docWD.Activate Sheets("Sheet1").Select ' Copy from GreatIdea to LOL.docx' Range("A1:K40").Copy appWD.Selection.PasteSpecial appWD.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "/" & "OEF_OFFERTE" appWD.ActiveDocument.Close appWD.Quit Set appWD = Nothing Set docWD = Nothing End Sub 

这将所有内容复制到Word中，但不复制列布局。 其他解决scheme复制一切也被接受。 我只需要确保每一列的所有数据都被复制。

迈克的回答编辑：

  Range("A1:C40").Copy appWD.Selection.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True 

Answer 1

正如你在一个WORD应用程序（AppWD）中，有一个更好的function：

 expression.PasteExcelTable(LinkedToExcel, WordFormatting, RTF) 

尝试其中之一

 AppWD.Selection.PasteExcelTable False, True, True ' aequivalent to PasteSpecial As RTF AppWD.Selection.PasteExcelTable False, False, True ' keeps Excel formats AppWD.Selection.PasteExcelTable False, False, False ' aequivalent to PasteSpecial As HTML 

祝你好运 – MikeD