将一些文本从站点复制到 Excel（运行时错误 462）

Question

程序有效（需要在 Excel 中显示的文本）。但之后 IE 停止工作并出现运行时错误 462（远程服务器机器不存在或不可用）。在互联网上搜索解决方案。 https://support.microsoft.com/en-us/kb/178510 。 我无法有效地更改代码。

   Sub extractTablesData1()
Dim IE As Object
Dim Data As Object
Dim xlApp As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlsh As Excel.Worksheet
Dim i As Integer
Dim elemCollection As Variant

Set xlApp = CreateObject("Excel.Application")
Set xlwb = xlApp.Workbooks("IESite.xlsx")
Set xlsh = xlwb.Worksheets("Data")

Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = False
    .navigate ("http://allscores.ru/soccer/new_ftour.php?champ=2404&f_team=406&tour=110")
    While IE.ReadyState <> 4
        DoEvents
    Wend
    Set Data = IE.document.getElementsbyTagName("table")(6).querySelectorAll("td.clr, td.clr_win, td.clr_draw, td.clr_loose")
    i = 1
    For Each elemCollection In Data
        xlsh.Cells(34, 1 + i).Value = elemCollection.innerText
        i = i + 1
    Next elemCollection
End With
IE.Quit
Set IE = Nothing

结束子

Answer 1

如链接中所述：

解决方案
若要解决此问题，请修改代码，以便对 Excel 对象、方法或属性的每次调用都使用适当的对象变量进行限定。

您正在使用：

ActiveWorkbook.Sheets(1).Cells(34, 1 + i).Value

这应该是：

Dim xlwb as Workbook
Dim xlsh as Worksheet

set xlwb = Workbooks("IESite")
set xlsh = xlwb.Worksheets("Data")

xlsh.Cells(34, 1 + i).Value = elemCollection.innerText

进一步的变化：

根据解决方案的要求，一切都需要定义。让我知道以下方式是否有效，如果可以，我将删除上面的代码。

别忘了定义 ElemCollection

Sub extractTablesData1()
    Dim IE As Object
    Dim Data As Object
    Dim xlApp As Excel.Application
    Dim xlwb As Excel.Workbook
    Dim xlsh As Excel.Worksheet
    Dim i As Integer
    Dim elemCollection as ... 'please define elemCollection as the type it is

    Set xlApp = CreateObject("Excel.Application")
    Set xlwb = xlApp.Workbooks("IESite.xlsx")
    Set xlsh = xlwb.Worksheets("Data")

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = False
        .navigate ("http://allscores.ru/soccer/new_ftour.php?champ=2404&f_team=406&tour=110")
        While IE.ReadyState <> 4
            DoEvents
        Wend
        Set Data = IE.document.getElementsbyTagName("table")(6).querySelectorAll("td.clr, td.clr_win, td.clr_draw, td.clr_loose")
        i = 1
        For Each elemCollection In Data
            xlsh.Cells(34, 1 + i).Value = elemCollection.innerText
            i = i + 1
        Next elemCollection
    End With
    IE.Quit
    Set IE = Nothing
End Sub