[Yardım]  Bir den çok siteden veri çekme hk.

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

Bir den çok siteden veri çekme hk.

İleti#1)  bhcn » 17 Arl 2021 10:56

Merhabalar,
Aşağıdaki vba kodu ile tek sayfadan istediğim veriyi çekebiliyorum.
Bir den fazla siteden veri çekmek istediğimde koda nasıl bir ekleme yapmam gerektiğini bilemedim.
Desteklerinizi rica ediyorum.

Kod: Tümünü seç
Sub dataExtraction()
Dim ie As InternetExplorer
Dim ht As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = False
ie.navigate "https://www.yatasbedding.com.tr/orthopedic-support-pocket-yayli-seri-yatak-40180"
Do Until ie.readyState = READYSTATE_COMPLETE And ie.Busy = False
DoEvents
Loop
Application.Wait (Now + TimeValue("00:00:03"))
Set ht = ie.document
Cells(2, 2).Value = ht.getElementsByClassName("product-detail-info-price-right")(0).innerText
ie.Quit
End Sub


Örneğin; aşağıdaki site ve elementleri de eklemek istiyorum.

Kod: Tümünü seç
https://www.vivense.com/frido-kose-koltuk-ekru-sol-kose-modeli.html
Cells(3, 2).Value = ht.getElementsByClassName("new-price not-allowed-coupon")(0).innerText


Kod: Tümünü seç
https://www.enzahome.com.tr/Kose-Takimlari/Merlin-Kose-Takimi
Cells(4, 2).Value = ht.getElementsByClassName("fright newPrice")(0).innerText
Kullanıcı avatarı
bhcn
Siteye Alışmış
 
Kayıt: 20 Nis 2015 15:28
Meslek: analist
Yaş: 40
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Bir den çok siteden veri çekme hk.

İleti#2)  bhcn » 23 Arl 2021 11:13

Bir haftadır bende araştırmalarıma devam ediyorum konuyla ilgili ancak hala çözüm bulamadım.
Aslında bir döngü bile işimi görür. her seferinde internet explorer açıp kapatmadan, sırayla siteleri yazıp verileri aldıramaz mıyım?
Kullanıcı avatarı
bhcn
Siteye Alışmış
 
Kayıt: 20 Nis 2015 15:28
Meslek: analist
Yaş: 40
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe