• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

  • MÜJDE!!!! EXCEL WEB TR Adminlerinden Online EXCEL Seminerleri

    Online eğitimlere başlamadan önce sizlerin görüşlerini almak istiyoruz. Lütfen aşağıdaki konuda görüşlerinizi paylaşır mısınız... TEŞEKKRÜR EDERİZ

    ONLİNE EĞİTİM ANKETİ

İNTERNETTEN VERİ ÇEKME

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
216
Excel Vers. ve Dili
excel 2007
Ben bir kişinin benim sıkıntıma yardım edeceğine eminim.
 
Katılım
20 Şubat 2012
Mesajlar
87
Excel Vers. ve Dili
office2007
Kod:
Sub Dongu()

Do
    Call Doviz
    Application.Wait (Now + TimeValue("0:15:00"))

Loop
End Sub
Sub Doviz()
On Error Resume Next
Dim IE

 Columns("A:A").Select
 Selection.ClearContents
 Range("A1").Select

   Set IE = CreateObject("InternetExplorer.Application")
   IE.navigate "https://www.doviz.com/"
   Do While IE.readyState <> READYSTATE_COMPLETE
    Application.StatusBar = "Loading website…"
    DoEvents
   Loop

sat = 1
For Each htmlElement In IE.document.getElementsByTagName("span")
 Range("A" & sat).Value = Replace(htmlElement.innerText, ",", ".")
 sat = sat + 1
Next
End Sub
 

Asri

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
3,325
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Loop içinde DoEvents kullanılması yararlı olabilir.
 

yunus788

Altın Üye
Katılım
5 Ocak 2020
Mesajlar
48
Excel Vers. ve Dili
2007
Ustalarım https://www.doviz.com/ isimli internet sitesinde üst taraftaki yatırım araçlarının anlık fiyatlarını ve değişim oranlarını
excel sayfamda ki ilgili hücrelere (her 15 dakikada bir güncellenecek şekilde) almak istiyorum. Yardımcı olabilir misiniz?
Yukardaki dosyanın doğru dosya olduğuna eminmisiniz? bana ilgisiz gibi geldi.
 
Üst