Word VBA代码有运行时错误1004每隔一段时间运行

我已经创build了下面的简单代码，以便将Word文档中的表导出到Excel文件中。 我正在寻求将这个概念应用到一个更大的项目。 代码运行良好的初始时间，但每隔一段时间都有运行时错误1004。 debugging被取消后，它再次运行良好。 任何帮助将不胜感激。

读取object'_Global的方法'Cells'失败

Sub tableexport() Dim oExcel As Excel.Application Dim Word As Document Set Word = Documents("Comps extraction from reports") Dim i As Long Dim j As Long Dim RowWord As Long Dim ColWord As Long Dim oWB As Workbook Set oExcel = New Excel.Application Set oWB = oExcel.Workbooks.Open("C:\Users\chris\Desktop\TABLE EXPORT.xlsx") oExcel.Visible = True RowWord = Word.Tables(1).Rows.Count ColWord = Word.Tables(1).Columns.Count With Word.Tables(1) 'copy cell contents from Word table cells to Excel cells For i = 1 To RowWord For j = 1 To ColWord Cells(i, j) = WorksheetFunction.Clean(.Cell(i, j).Range.Text) Next j Next i End With End Sub 

Answer 1

如果您正在使用Word VBA，则需要正确限定对Excel模型的任何引用。 特别是行

 Cells(i, j) = WorksheetFunction.Clean(.Cell(i, j).Range.Text) 

应该

 oWb.Sheets(1).Cells(i, j) = oExcel.WorksheetFunction.Clean(.Cell(i, j).Range.Text) 

另外，我怀疑这一点

 Dim oWB As Workbook 

应该

 Dim oWB As Object 

Word VBA不知道WorkBook对象（虽然也许你已经包含了一个引用？）