UserForm Güncel Döviz Kuru

[TRmajor]

Alternatif kod
Aşağıdaki kodu bir userforma ekleyin ayrıca Userforma 1 adet listbox nesnesi,1 adet CommandButton ekleyin ve komut düğmesine tıklayın

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub CommandButton1_Click()

ListBox1.ColumnHeads = False
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "50;50;50"
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie

ie.Navigate "http://www.tcmb.gov.tr/yeni/tablolar.php"

ie.Visible = 1
apiShowWindow ie.hwnd, 2   BURDA SUB or USER NOT DEFINED HATASI VERİYOR , yardımcı olabilirmisiniz
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop

Set tbl = ie.document.GetElementsByTagName("table").Item(3)
k = 0
For i = 2 To tbl.Rows.Length - 1
ListBox1.AddItem
For j = 0 To tbl.Rows(i).Cells.Length - 1
ListBox1.List(k, j) = tbl.Rows(i).Cells(j).innertext
Next
k = k + 1

Next
ie.Quit: Set ie = Nothing
End With
MsgBox "işlem tamam"
End Sub