• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Webten Veri Çekmek

Creaviser

Yeni Üye
Katılım
17 Haz 2019
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
46
Konum
İstanbul
Ad Soyad
Gökhan Viser
herkese merhaba

haremaltin.com web sitesinde bulunan has altın alış ve satış fiyatlarını cekmek istiyorum.

istediğimde de güncellenebilirsede iyi olur.

yardımcı olan arakadaşlara şimdiden çok teşekkür ederim.
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
Deneyiniz.:)
A2:C2 aralığına yazıyor.:)
Kod:
Sub veri_59_web()
Set IE = CreateObject("InternetExplorer.Application")
Range("A2:C2").ClearContents
IE.Navigate "https://www.haremaltin.com/"
Do While Not IE.readyState = 4: DoEvents: Loop
Do While IE.busy: DoEvents: Loop
Set t = IE.Document.GetElementbyId("table1").all(0)
For i = 0 To 1 't.Rows.Length - 1
    For j = 0 To t.Rows(i).Cells.Length - 1
        Cells(2, j + 1) = t.Rows(i).Cells(j).innertext
    Next
Next
Set t = Nothing
IE.Quit
MsgBox "bitti"
End Sub
 

Ekli dosyalar

  • webten veri al.xlsm
    16.7 KB · Görüntüleme: 10
Son düzenleme:

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
Böylede olur.:cool:
Kod:
Sub veri_59_web2()
Set IE = CreateObject("InternetExplorer.Application")
Range("A2:C2").ClearContents
IE.Navigate "https://www.haremaltin.com/"
Do While Not IE.readyState = 4: DoEvents: Loop
Do While IE.busy: DoEvents: Loop
Set t = IE.Document.GetElementbyId("table1").all(0)
    For j = 0 To t.Rows(1).Cells.Length - 1
        Cells(2, j + 1) = t.Rows(1).Cells(j).innertext
    Next
Set t = Nothing
IE.Quit
MsgBox "bitti"
End Sub
 

Creaviser

Yeni Üye
Katılım
17 Haz 2019
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
46
Konum
İstanbul
Ad Soyad
Gökhan Viser
Böylede olur.:cool:
Kod:
Sub veri_59_web2()
Set IE = CreateObject("InternetExplorer.Application")
Range("A2:C2").ClearContents
IE.Navigate "https://www.haremaltin.com/"
Do While Not IE.readyState = 4: DoEvents: Loop
Do While IE.busy: DoEvents: Loop
Set t = IE.Document.GetElementbyId("table1").all(0)
    For j = 0 To t.Rows(1).Cells.Length - 1
        Cells(2, j + 1) = t.Rows(1).Cells(j).innertext
    Next
Set t = Nothing
IE.Quit
MsgBox "bitti"
End Sub
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
Bu dosya bende çalışıyor.:cool:
 

Ekli dosyalar

  • webten veri al.xlsm
    16.9 KB · Görüntüleme: 12

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
Acaba makrolarımı etkinleştirmediniz!
Ondan çalışmıyor olabilir.:cool:
 

Creaviser

Yeni Üye
Katılım
17 Haz 2019
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
46
Konum
İstanbul
Ad Soyad
Gökhan Viser
Acaba makrolarımı etkinleştirmediniz!
Ondan çalışmıyor olabilir.:cool:

etkinleştiriyorum.. sonra butona tıklıyorum.

ama sonuç lar - olarak geliyor. herhangi bir rakam bile gelmiyor

arasanız da uzak bağlantı ile bir baksanız çok memnun olurdum
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
Makroları etkinleştirdikten sonra exceli kapatıp tekrar açın.
Temveawer için benim uzaktan bağlanma yetkim yok.
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
Bu dosyayı deneyin.:cool:
 

Ekli dosyalar

  • webten veri al.xlsm
    17.2 KB · Görüntüleme: 12

Creaviser

Yeni Üye
Katılım
17 Haz 2019
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
46
Konum
İstanbul
Ad Soyad
Gökhan Viser
Bu dosyayı deneyin.:cool:

Merhaba

dosyayı indiriyorum
makroları etkinleştiriyorum
butonlara tıkladığımda screenshot1 deki durum oluyor

butonun üzerine sağ tık makro ata dediğimde
screenshot3 gorunuyor

düzenle dediğimde
screenshot2 gorunuyor
 

Ekli dosyalar

  • Screenshot_1.jpg
    Screenshot_1.jpg
    150.2 KB · Görüntüleme: 14
  • Screenshot_2.jpg
    Screenshot_2.jpg
    177.4 KB · Görüntüleme: 13
  • Screenshot_3.jpg
    Screenshot_3.jpg
    105.3 KB · Görüntüleme: 12

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
128
En iyi yanıt
4
Puanları
28
Yaş
63
Konum
Emekli
Yapabileceğim bir şey yok.
Bende çalışıyor , altın değerini getiriyor çünkü.:cool:
 
Üst Alt