Я копирую таблицу HTML с веб-страницы, чтобы преуспеть. Данные вставляются во временный лист, добавленный в рабочую книгу. При вставке в Excel отображается сообщение об ошибке «Не удается войти в режим прерывания в это время», что не позволяет мне двигаться дальше. Я получаю эту ошибку, когда отлаживаю код, но когда я играю это, он непосредственно показывает код ошибки 91. Я ищу слово на веб-странице и пытаюсь скопировать эту таблицу в Excel, но он копирует всю страницу на моем временном листе и выдает это сообщение об ошибке. код:
sub sample()
Dim XMLHTTP As Object, html As Object
Dim Clipboard As Object
Dim Tabl_name As IHTMLElement
last_lin1st = Worksheets("sheet1").Columns(2).Find("Sum").Row
val_nci = Worksheets("sheet1").Range("B" & i).Value
With ThisWorkbook
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "temp"
End With
Set ie = Nothing
Set IeDoc = Nothing
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
strHTML = "webURL"
ie.navigate strHTML
Set IeDoc = ie.document
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
msg = ie.document.Body.innerhtml
For x = 0 To tables.Length
If tables(x).innerText Like "*End Analysis*" Then
Set Clipboard = New MSForms.DataObject
clipboard.SetText tables(x).outerHTML
Clipboard.PutInClipboard
Worksheets("temp").Cells(1, 1).PasteSpecial
End If
Next x
End Sub