Soru Web’den eksik data sorunu

[beratb]

Merhabalar Office 365 Üzerinden Web'den Fiyat Çekimi Yapıyorum Selenyum İle. Her şey sorunsuz çalışıyor Ancak Office 2016 İle Aynı Dosyayı çalıştırmak istediğimde stok gibi bilgileri çekiyor ancak fiyatları çekmiyor. VbaProject Ayarları İki Office'de Aynı
Sorun Nerden Kaynaklanıyor ?

 

[askm]

Kodlarınızı ya da dosyanızı paylaşırsanız 2016 da deneyip çekmeme nedenini kontrol edebiliriz.

 

[beratb]

Kodlarınızı ya da dosyanızı paylaşırsanız 2016 da deneyip çekmeme nedenini kontrol edebiliriz.

North_Sofrware_V12_5.xlsm - 341 KB

 

[askm]

VBA Şifresi mevcut.

 

[beratb]

VBA Şifresi mevcut.

1234

 

[askm]

İlgili kodlar selenium kodları değil. XMLHTTP ile çekiyor. https://www.trendyol.com/philips/55...u-alicili-4k-ultra-hd-smart-led-tv-p-34578692 linki için stok adedi nerede yazıyor. Bulamadım. Koddaki "stck-msg no-variant" classı sayfada mevcut değil.

 

[beratb]

İlgili kodlar selenium kodları değil. XMLHTTP ile çekiyor. https://www.trendyol.com/philips/55...u-alicili-4k-ultra-hd-smart-led-tv-p-34578692 linki için stok adedi nerede yazıyor. Bulamadım. Koddaki "stck-msg no-variant" classı sayfada mevcut değil.

Benim için önemli olan fiyat kısmı onu çekemiyorum 2016 versiyonunda nasıl bir yol izlemem lazım

 

[beratb]

güncel

 

[beratb]

Güncel

 

[askm]

Aşağıdaki şekilde Sepet Fiyatını alıp yazabilirsiniz.

Set linkSEPET = HTMLDoc.getElementsByClassName("product-price-container")(0)
Sheets("Trendyol").Range("AD" & i) = linkSEPET.innerText

 

[beratb]

Aşağıdaki şekilde Sepet Fiyatını alıp yazabilirsiniz.

Set linkSEPET = HTMLDoc.getElementsByClassName("product-price-container")(0)
Sheets("Trendyol").Range("AD" & i) = linkSEPET.innerText

Teşekkürler çalıştı sepette indirim yazısıyla beraber çekiyor sadece sayısal çekmek için nasıl düzenleme yapabiliriz