Webden İban Öğrenme

[5353]

http://subesizbankacilik.vakifbank.com.tr/Subesiz2/IbanOgren.aspx

Vakıfbank sayfasına Excel de A1 hücresine yazdığım değer; internetsayfasında "Bankomat / Elektron / Maestro Hesap Numaranız :" bölümüne otomatik yazılsın ve İBAN öğrene tıklanmış gibi çıkan İBAN sonucu Excelde B1 hücresine gelsin..
Forumda aradım ama bu şekilde olana rastlamadım.
Teşekkürler.

 

[5353]

Private Declare Function InternetCheckConnection Lib "wininet.dll" _
Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, _
ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function Murat_OSMA Lib "user32" Alias _
"ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub CommandButton1_Click()
Dim URL As String, IE As Object, Tablo As Object
Dim c As Integer, j As Integer
Application.ScreenUpdating = False
Range("A2:C100").ClearContents
URL = "http://subesizbankacilik.vakifbank.com.tr/Subesiz2/IbanOgren.aspx"
If (InternetCheckConnection(URL & "/", &H1, 0&) = 0) Then _
MsgBox "internet bağlantısı yok": Exit Sub
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Murat_OSMA .hwnd, 2
Do While .Busy: DoEvents: Loop
Do Until .ReadyState = 4: DoEvents: Loop
.Document.all.barkod.Value = Range("H2").Value
.Document.forms(0).submit
basla = Timer: bekle = 2
Do While (Timer - basla) < bekle: Loop
On Error Resume Next
Set Tablo = .Document.getelementsbytagname("TABLE")
For Each Rky In Tablo
For Each tr In Rky.all.tags("TR")
c = c + 1
For j = 0 To tr.all.tags("TD").Length - 1
Cells(c, j + 1) = tr.all.tags("TD").Item(j).innertext
Next j
Next tr
Next Rky
End With
Columns.AutoFit: IE.Quit
Application.ScreenUpdating = True
Set IE = Nothing: Set Tablo = Nothing
Set Rky = Nothing: URL = "": c = Empty: j = Empty
End Sub

Murat beyin PTT Kargo sorgulama için yaptığı sisteme benzer bir sistemle olabilirmi.. A1, A2, A... hücrelerine yazılan hesap numarası B1, B2, B... hücrelerine ibanı sayfadan alıp yazabilecek...