我需要将工作表“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 中,但不会复制列布局。复制所有内容的其他解决方案也被接受。我只需要确保复制每列的所有数据。
迈克的答案已编辑:
Range("A1:C40").Copy
appWD.Selection.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True
最佳答案
当您使用 WORD 应用程序(AppWD)时,有一个更好的功能:
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
关于excel - 将 Excel 工作表复制到 Word,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5537362/