使用宏将数据从 Excel 复制到 Word 时收到错误(运行时错误 "5097" 和取消时间错误 "4198" )

Question

我试图使用宏将数据从excel复制到word，但当我尝试时，我得到以下错误。我使用的是微软office标准2016版。如何解决这个问题?

错误:Runtime error "5097": word遇到问题

运行时错误"4198": Command Failed

和下面是代码

Sub ExcelToWord()
Dim wordApp As Word.Application
Dim mydoc As Word.Document
Set wordApp = New Word.Application
wordApp.Visible = True
Set mydoc = wordApp.Documents.Add()
ThisWorkbook.Worksheets("sheet1").Range("A1:g20").Copy
mydoc.Paragraphs(1).Range.PasteExcelTable LinkedToExcel:=False,_ 
WordFormatting:=False, RTF:=False    << getting error as runtime 
error"5097" word encountered a 
problem>>
mydoc.SaveAs "MyDoc.docx"
mydoc.Close
CutCopyMode = False
End Sub

Answer 1

兄弟，尝试mydoc.Paragraphs(1).Range.PasteExcelTable False, True, False如果没有帮助，也许是系统出了问题。Excel有时会产生无法解释的错误，可以通过重启系统来修复。

Answer 2

Sub ExcelToWord()
Dim wordApp As New Word.Application
Dim mydoc As Word.Document

Set mydoc = wordApp.Documents.Add
wordApp.Visible = True

ThisWorkbook.Worksheets("Sheet1").Range("A1:G20").Copy
mydoc.Paragraphs(1).Range.PasteExcelTable False, True, False
mydoc.SaveAs "MyDoc.docx"
mydoc.Close
CutCopyMode = False
End Sub

这个工作-似乎是用。add()你添加了一个空白的文档数组。