Dış Kaynaktan (Linklerden) Veri Çekme

[dr.xpression]

Merhaba Excel' de bilindiği gibi link üzerinden web sayfasındaki SQL sorgu sonuçlarına ulaşabilmekteyiz, Lakin elimde 12.000 adet linkten sorgu yapıp bunu excele aktarmam gerekiyor, mevcut uyguladığım yönetemi aşağıda resimlerle göstermeye çalıştım. ama çoklu olarak yapamıyorum. yardımcı olurmusunuz

 

[dr.xpression]

aşağıdaki makro ile çözdüm.
ilgilenenlere teşekkür ederim.

Sub Veri_Al()
    Dim i As Long
    Cells.Clear
    For i = 1 To 100
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;http://siteadi.com/fmadty.asp?did=" & i & "", _
            Destination:=Range("a65536").End(3)(2, 1))
            .WebFormatting = 3
            .Refresh BackgroundQuery:=False
        End With
    Next i
    i = Empty
End Sub