canlı döviz kurlarını excele aktarma

[mahmutcandan]

Merhaba,
https://sundoviz.com/ sitesinden döviz kurlarını excelde sol üst köşeye nasıl çekebiliriz.
Güncel verileri alacak şekilde
Teşekkürler..

 

[Haluk]

Sub getData()
'   Haluk - 15/08/2023

    Dim objHTTP As Object, strURL As String
    Dim HTML As Object, myTable As Object
    Dim i As Integer, j As Integer
 
    Range("A1:C7") = ""
 
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    strURL = "https://sun.portburda.com/widget_w_300.php"
 
    objHTTP.Open "GET", strURL, False
    objHTTP.send

    Set HTML = CreateObject("HTMLFILE")
    HTML.body.innerHTML = objHTTP.responseText
 
    Set myTable = HTML.getElementsByTagName("table")(0)
 
    For i = 0 To myTable.Rows.Length - 3
         For j = 0 To myTable.Rows(i).Cells.Length - 1
             Cells(i + 1, j + 1) = myTable.Rows(i).Cells(j).innerText
         Next
    Next
End Sub

.

 

[mahmutcandan]

Hocam tşkler..bu kodları nereye ekleyeceğim acaba

 

[Haluk]

Forumun "dershane" bölümüne bakın, orada anlatılıyordur herhalde...

.

 

[Korhan Ayhan]

İnceleyiniz.

https://www.excel.web.tr/threads/moduel-ekleme-resimli-anlatim.73353/

 

[mahmutcandan]

Kodları ekledikten sonra CTRL+S yaptım ama makro çalışmadı.. Neden acaba?

 

[Haluk]

Aşağıdaki linklerde anlatılanları da uygulayın...

(1) Sayfada Buton-Düğme Oluşturmak ve Makro Atamak-1 (Resimli Anlatım) | Excel WEB TR Forum - Excel, Excel Makro, Excel Fonksiyon, Excel Formül, Excel soru ve çözümleri

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak-2 (Resimli Anlatım) | Excel WEB TR Forum - Excel, Excel Makro, Excel Fonksiyon, Excel Formül, Excel soru ve çözümleri


.

 

[mahmutcandan]

Excele aktarılmış olarak paylaşım yaparsanız sevinirim sizden ricam.

Sun Döviz | KKTC'nin en güvenilir döviz kurları

 

[Haluk]

Ekli dosyayı inceleyin...

.

 

[mahmutcandan]

TEŞEKKÜRLER