如何解決定位文件中的錯誤？

我想打開它給出以下錯誤的文件的位置。在調試過程中，我在以下位置找到了錯誤。我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

來源

2017-07-17 Pratheek P Manangi

邊注：請始終嵌入的代碼作爲文本代碼塊（而不是圖像），所以人們可以很容易地複製和修復它。 –

@Peh感謝您的反饋。我也添加了代碼。我只想顯示我發現錯誤的位置以及錯誤框。請讓我知道這個更正是否可以幫助我解決我的問題。 :) –

wrdApp不創建加new它的定義或更高版本設置爲新的，但使用前它。

來源

2017-07-17 11:28:21

謝謝@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(...)

來源

2017-07-17 11:28:54

謝謝它幫助我解決這個錯誤。但是現在我又遇到了一個錯誤。「Microsoft excel正在等待另一個應用程序完成OLE操作」 –

在猜測它掛在打開文檔 - 你確定你有正確的路徑和文件名？移動

wrdApp.Visible = True

的「設置Wdoc ......」前行，並檢查文件是否被打開

來源

2017-07-17 15:00:48

是的。 @老爸爸。位置是正確的。我試過你的建議。但它顯示爲「用戶定義類型未定義」。編譯錯誤 –

當它給出編譯錯誤時突出顯示哪行？ –

我已經進一步工作，並得到了這個結果。你能看看這個問題嗎？ https://stackoverflow.com/questions/45275980/how-to-insert-data-copied-from-an-excel-sheet-to-the-table-existing-in-the-word –

如何解決定位文件中的錯誤？

回答

相關問題