如何解决定位文件中的错误？

问题描述：

我想打开它给出以下错误的文件的位置。在调试过程中，我在以下位置找到了错误。我newbee的VBA有人可以帮助我如何解决定位文件中的错误？

我的代码是

sub findBearingCopyFromExcel() 
    Dim i As Integer 
    Dim aCell As Range, rng As Range 
    Dim SearchString As String 
Set rng = Range("A750:A1790") 
SearchString = "(248_R), 38,7 %" 

For Each aCell In rng 
    If InStr(1, aCell.Value, SearchString, vbTextCompare) Then 
     ActiveSheet.Range(Cells(aCell.row + 4, 1), Cells(aCell.row + 9, 6)).Copy 
Exit Sub 
     Else: End If 
    Next aCell 
End Sub 
Sub bearingDataFromExcelToWord() 
Dim wrdApp As Word.Application 
Dim wdoc As Word.Document 
Set wdoc = wrdApp.Documents.Open("E:\ShareDrive_Ruehl\full-flexible-MBS-models_report\example-report\FullFlexibleGearbox - Copy.docx") 

wrdApp.Visible = True 
With wdoc 
.Application.Selection.Find.Text = "(248_R), 38,7 %" 
.Application.Selection.Find.Execute 


.Application.Selection.MoveDown Unit:=wdLine, Count:=1 
    .Application.Selection.EndKey Unit:=wdLine 
    .Application.Selection.EndKey Unit:=wdLine 
    .Application.Selection.MoveRight Unit:=wdCharacter, Count:=1 
    .Application.Selection.EndKey Unit:=wdLine 
    .Application.Selection.MoveDown Unit:=wdLine, Count:=6, Extend:=wdExtend 
    .Application.Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend 
    .Application.Selection.Paste 
    End With 
End Sub

边注：请始终嵌入的代码作为文本代码块（而不是图像），所以人们可以很容易地复制和修复它。 –

@Peh感谢您的反馈。我也添加了代码。我只想显示我发现错误的位置以及错误框。请让我知道这个更正是否可以帮助我解决我的问题。 :) –

答

wrdApp不创建加new它的定义或更高版本设置为新的，但使用前它。

谢谢@Nathan_Sav。现在我收到另一个错误。 “Microsoft Excel正在等待另一个应用程序完成OLE操作”。你能检查它是什么吗？ –

答

您需要创建wrdApp的实例。

Dim wrdApp As Word.Application 
Set wrdApp = New Word.Application 
    wrdApp.Visible = True 

Dim wdoc as Word.Document 
Set wdoc = wrdApp.Documents.Open(...)

谢谢它帮助我解决这个错误。但是现在我又遇到了一个错误。 “Microsoft excel正在等待另一个应用程序完成OLE操作” –

答

在猜测它挂在打开文档 - 你确定你有正确的路径和文件名？移动

wrdApp.Visible = True

的“设置Wdoc ......”前行，并检查文件是否被打开

是的。 @老爸爸。位置是正确的。我试过你的建议。但它显示为“用户定义类型未定义”。编译错误 –

当它给出编译错误时突出显示哪行？ –

我已经进一步工作，并得到了这个结果。你能看看这个问题吗？ https://stackoverflow.com/questions/45275980/how-to-insert-data-copied-from-an-excel-sheet-to-the-table-existing-in-the-word –

如何解决定位文件中的错误？

相关推荐