Как сделать Asyc подход

Question

Я новичок в XMLHHTP, и я только что сделал приведенный ниже код с некоторой онлайн-помощью от некоторых людей и понял, что мне нужно сделать его асинхронным, поскольку существуют сотни URL-адресов, которые необходимо посетить рабочей книге.

Я был бы очень признателен, если бы кто-то мог разобраться в этом и превратить его в асинхронный.

Sub GetInfo()

    Dim Http As New XMLHTTP60, Html As New HTMLDocument
    Dim lastrow As Long, i As Long
    Dim sdd As String
    Dim add As Variant
    Dim url As Range

    i = 2

    For Each url In Range(Cells(3, "J"), Cells(Rows.Count, "J").End(xlUp))
        With Http
            .Open "GET", url, False
            .send
            Html.body.innerHTML = .responseText
        End With

        On Error Resume Next
        sdd = Html.querySelector("span[itemprop='price']").getAttribute("content")
        i = i + 1
        Sheet1.Cells(i, "K") = sdd

    Next url


End Sub

Answer 1

Я получил ваш ответ, посмотрите это прохождение ...

http://dailydoseofexcel.com/archives/2006/10/09/async-xmlhttp-calls/

Надеюсь, это поможет.