HexaDecimal'i Decimal'e Çevirmek

Aslında bu işlemi Excel'in yerleşik fonksiyonlarındaki =HEX2DEC fonksiyonu ile de yapabilirsiniz, ama ben bu işlemi Excel ile Web Sayfalarından Veri Alma yoluyla yapmak istedim.
 
[img] [/img]

■ Gerekli olan kodlar bunlardır.

Sub Hex_to_Decimal()
    Dim Evn As Object, i As Integer
    Range("E7").Value = "Lütfen Bekleyiniz..."
    Set Evn = CreateObject("internetexplorer.application")
        With Evn
        .navigate "http://www.binaryhexconverter.com/hex-to-decimal-converter"
        Do While .busy: DoEvents: Loop
        Do While Not .readystate = 4: DoEvents: Loop
            For i = 2 To Range("H65536").End(3).Row
                .document.getelementbyID("tabin").Value = Cells(i, "H")
                .document.all.Item(52).Click
                Application.Wait Now + (TimeValue("00:00:02"))
                Cells(i, "I") = .document.getelementbyID("resulttxt").innertext
            Next i
        .Quit
    End With
    Range("E7").Value = "Tamamlandı..."
    Set Evn = Nothing: i = Empty
End Sub

Hoşça kalın !