Siteden Ürün Fiyatı Çekmek

[CrAzY_4343]

Üstadlarım Selam...

Elimdeki bir ürün listesine göre sitemden fiyat çekmek istiyorum.
Ürün isimlerine göre aratıp ilgili ürünün fiyatını getirmeli. Getiremiyorsa hata vermeden boş bırakmalı. Bunun için nasıl bir makro uygulanmalı. Site ismini çalışmanın içinde verdim.

Yardımınızı bekliyorum.

 

[CrAzY_4343]

Üstadlarım sorum halen güncel. Değerli cevaplarınızı bekliyorum.

 

[CrAzY_4343]

@Necdet Yeşertener ve @Korhan Ayhan hocam...Özellikle sizlerden bir cevap bekliyorum.

 

[Erdem Akdemir]

Merhaba,

Web işlemleri genelde ücretli yapılan işlemlerdir.
TCMB'den kur almak dışında diğer işlemler ekstra kod bilgisi gerekir.
İsterseniz aşağıdaki kullanıcı ile iletişime geçerek çözüm arayabilirsiniz.

http://www.excel.web.tr/member.php?u=225044

 

[CrAzY_4343]

Merhaba,

Web işlemleri genelde ücretli yapılan işlemlerdir.
TCMB'den kur almak dışında diğer işlemler ekstra kod bilgisi gerekir.
İsterseniz aşağıdaki kullanıcı ile iletişime geçerek çözüm arayabilirsiniz.

http://www.excel.web.tr/member.php?u=225044

Bununla ilgili bir kural var mı site dahilinde? Eğer varsa konu kapatılsın. Ancak burası bir paylaşım platformu ise burada yardım edebilecek insanlar da vardır...Amacımız öğrenmek sonuçta... Acaba yanlış mı düşünüyorum?

 

[TEGCreative]

Merhaba sayın Crazy_4343 ; gördüğüm kadarıyla siteniz Proticaret altyapısı kullanıyor. Excel Ürün Entegrasyonu denen bir sistem var orda. Ve ürün bilgilerinizi Excel olarak alabiliyorsunuz. Bu şekilde bir yöntem ile çözüm arayabilirsiniz.

 

[CrAzY_4343]

Merhaba sayın Crazy_4343 ; gördüğüm kadarıyla siteniz Proticaret altyapısı kullanıyor. Excel Ürün Entegrasyonu denen bir sistem var orda. Ve ürün bilgilerinizi Excel olarak alabiliyorsunuz. Bu şekilde bir yöntem ile çözüm arayabilirsiniz.

Teşekkür ederim ancak aradığım şey o değil. Ki sistemsel bazı hatalar gereği o sistemi kullanamıyoruz şuan. İstediğim şey aslında listedeki kelimeleri aratıp ilgili ürünün fiyatını karşısına yazdırmak. Hızlı sonuç alabilmek adına istiyorum bunu.

 

[TEGCreative]

Sayın Crazy_4343 ; http://www.excel.web.tr/f48/nternet-sayfasyndan-deoer-deoi-tirerek-bilgi-alma-t158569.html bu sayfadaki halit3 üstad'ın vermiş olduğu cevaptan yola çıkarak belki birşeyler yapılabilir. İncelemenizde fayda var.

 

[askm]

Aşağıdaki kodları bir module yapıştırın. Çalıştırın istediğiniz gelecektir.
Application.Wait Now + TimeSerial(0, 0, 10) kısmı 10 saniye bekletiyor. İnternet hızınıza göre bunu değiştirebilirsiniz. Web Sayfası yükleme çok geç olduğu için bu şekilde yaptım.

Sub Fiyat_Getir()
Dim IE As Object, URL As String
Dim ürün As String
Dim fiyat As String
Set IE = CreateObject("InternetExplorer.Application")
With IE

.Visible = True

.navigate "http://www.refsan.com.tr/" ' Buraya internet adresinin adını yazınız.
Application.Wait Now + TimeSerial(0, 0, 10)
'Do While .Busy: DoEvents: Loop
' Do Until .readyState = 4: DoEvents: Loop
For i = 2 To [B65536].End(3).Row
ürün = Cells(i, 1).Value
.document.getElementById("txtSearch").Value = ürün
.document.getElementById("btnSearch").Click
' Do While .Busy: DoEvents: Loop
' Do Until .readyState = 4: DoEvents: Loop

Application.Wait Now + TimeSerial(0, 0, 6)

Cells(i, 3).Value = IE.document.getElementById("ctl05_dlGalery_ctl00_Label37").innerText

Next
.Quit
End With
MsgBox "İşlem Tamamlandı", vbInformation, "Kullanicinin dikkatine..."
'End If 'şifre dolu ise
GoTo SafeExit:

ErrHandler:
MsgBox "Bilgi bulunamadi veya internet erisimi yetersiz ...", vbCritical, "Kullanicinin dikkatine..."

SafeExit:
Columns(1).AutoFit
Set HTML_Body = Nothing
Set HTML_Tables = Nothing
Set MyTable = Nothing
Set HTML_TableRows = Nothing
Set HTML_TableDivisions = Nothing
Set IE = Nothing
'IE.Quit
End Sub

 

[CrAzY_4343]

İşte budur. Çok teşekkür ederim.. Elinize emeğinize sağlık.

 

[askm]

Rica ederim. Kolay gelsin.

 

[Erdem Akdemir]

Bununla ilgili bir kural var mı site dahilinde? Eğer varsa konu kapatılsın. Ancak burası bir paylaşım platformu ise burada yardım edebilecek insanlar da vardır...Amacımız öğrenmek sonuçta... Acaba yanlış mı düşünüyorum?

Ben size öneri sunmak istedim sadece.
Zaten konuya cevap almışsınız.