[Yardım]  Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e Almak

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

Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e Almak

İleti#1)  isoaltunay » 05 Nis 2016 16:47

Selamün aleyküm üstadlar kolay gelsin;
Sahibinden.com isimli siteden her ilanın bir id numarası var bunu arama yerine yazınca direk ilgili ilan karşımıza çıkıyor ben elimde ki 400 küsür id' yi "A" kolonuna yazıp tek tuşla ilgili ilanı açıp belirlediğim yerleri excele atabilirmiyiz?
En son Murat OSMA tarafından, 05 Nis 2016 17:32 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık düzeltildi.
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Web sitesinden istenilen yerleri excele atmak

İleti#2)  Ali ÖZ » 05 Nis 2016 17:02

Dosyayı inceleyin,kendi isteğinize göre uyarlarsınız.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 41
İleti: 10340
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Web sitesinden istenilen yerleri excele atmak

İleti#3)  isoaltunay » 05 Nis 2016 18:01

Ali ÖZ yazdı:Dosyayı inceleyin,kendi isteğinize göre uyarlarsınız.

Ali abi bu aramayı yapıp onu başlıklarını atıyor benim yapmak istediğim sahibinden.com'un arama yerine a kolonundaki değerleri girecek çıkan sonuçlardan istenilen yerleri kopyalaması ekte gönderdim bir bakabilir misin?
Zamanında google da aratma gibi a kolonunda yazanları google da arayıp linkini ve çıkan sonucu kopyalıordu.
Google arama kodları
Kod: Tümünü seç
    Sub XMLHTTP()

        Dim url As String, lastRow As Long
        Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object
        Dim start_time As Date
        Dim end_time As Date

        lastRow = Range("A" & Rows.Count).End(xlUp).Row
       
        Dim cookie As String
        Dim result_cookie As String
       
        start_time = Time
        Debug.Print "start_time:" & start_time

        For i = 2 To lastRow

            url = "https://www.google.co.in/search?q=" & Cells(i, 1) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)

            Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
            XMLHTTP.Open "GET", url, False
            XMLHTTP.setRequestHeader "Content-Type", "text/xml"
            XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
            XMLHTTP.send

            Set html = CreateObject("htmlfile")
            html.body.innerHTML = XMLHTTP.ResponseText
            Set objResultDiv = html.getelementbyid("rso")
            Set objH3 = objResultDiv.getelementsbytagname("H3")(0)
            Set link = objH3.getelementsbytagname("a")(0)
            If link.href <> "*facebook*" Or link.href <> "*youtube*" Then
            str_text = Replace(link.innerHTML, "<EM>", "")
            str_text = Replace(str_text, "</EM>", "")

            Cells(i, 2) = str_text
            Cells(i, 3) = link.href
            End If
            DoEvents
        Next
       
        end_time = Time
        Debug.Print "end_time:" & end_time
       
        Debug.Print "done" & "Time taken : " & DateDiff("n", start_time, end_time)
        MsgBox "done" & "Time taken : " & DateDiff("n", start_time, end_time)
    End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#4)  Ali ÖZ » 05 Nis 2016 18:22

İlan no yu girip arama butonuna tıklayıp ilgili sayfayı açma kısmını yaptım,geri kalan için vakit bulursam yardımcı olmaya çalışırım.

Kod: Tümünü seç
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
URL = "http://www.sahibinden.com/"
Set ie = CreateObject("InternetExplorer.Application")
With ie
  .Navigate URL
  .Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
For i = 4 To Range("a65536").End(3).Row
  aranan = Cells(i, "a").Value
  ie.Document.all("query_text").Value = aranan
  ie.Document.forms(0).submit
Next
End With
Set ie = Nothing
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 41
İleti: 10340
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#5)  isoaltunay » 05 Nis 2016 18:42

Eyvallah abi sağol bende uğraşaım bakalım birşey çıkarabilecekmiyim :P
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#6)  isoaltunay » 07 Nis 2016 10:14

Üstadlar selamün aleyküm cümleten hayırlı kandiller;
Yukarıda ki ilk örnekte böyle bir kod vardı bu kodlarla alakalı olarak sormak istediklerim var sizlere.
Ben burdaki kodları ali üstadın verdiği kodlarla ortaya bir karışık yapmaya çalıştım :) yanlış mı yaptım doğru mu yaptım bilmiyorum ama excele birşeyler kopyalıyor şu aşağıdaki a = 819 b = 820... değerlerini değiştirince kopyalanan veri de değişiyor bunlar neyi ifade ediyor?
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim evn As Object, i As Integer, a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer
Set evn = CreateObject("internetexplorer.application")
With evn
On Error Resume Next
[A2].Select
    .Navigate "http://www.sahibinden.com/fiat-linea-1.3-multijet-active-plus/dizel?pagingSize=50&pagingSize=50&pagingOffset=40&pagingOffset=40&a5_min=2012&a4_max=80000&sorting=date_desc&address_country=1#!"
    .Visible = True
        Do While .busy: DoEvents: Loop
        Do While Not .readystate = 4: DoEvents: Loop
   
a = 819
b = 820
c = 821
d = 822
e = 824
f = 828
g = 813

For i = 0 To 50
Range("A65536").End(3)(2, 1).Value = .document.all.Item(a).InnerTEXT 'yıl
Range("B65536").End(3)(2, 1).Value = .document.all.Item(b).InnerTEXT 'km
Range("C65536").End(3)(2, 1).Value = .document.all.Item(c).InnerTEXT 'renk
Range("D65536").End(3)(2, 1).Value = .document.all.Item(d).InnerTEXT 'fiyat
Range("E65536").End(3)(2, 1).Value = .document.all.Item(e).InnerTEXT 'tarih
Range("F65536").End(3)(2, 1).Value = .document.all.Item(f).InnerTEXT 'il/ilçe
Range("G65536").End(3)(2, 1).Value = .document.all.Item(g).InnerTEXT 'başlık
a = a + 19
b = b + 19
c = c + 19
d = d + 19
e = e + 19
f = f + 19
g = g + 19
Next i

.Quit
End With
Set evn = Nothing
End Sub
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#7)  isoaltunay » 08 Nis 2016 15:15

Üstadlar kolay gelsin;
konu güncel size zahmet cevap verebilcek varmı acaba?
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Ex

İleti#8)  isoaltunay » 11 Nis 2016 15:46

isoaltunay yazdı:Üstadlar selamün aleyküm cümleten hayırlı kandiller;
Yukarıda ki ilk örnekte böyle bir kod vardı bu kodlarla alakalı olarak sormak istediklerim var sizlere.
Ben burdaki kodları ali üstadın verdiği kodlarla ortaya bir karışık yapmaya çalıştım :) yanlış mı yaptım doğru mu yaptım bilmiyorum ama excele birşeyler kopyalıyor şu aşağıdaki a = 819 b = 820... değerlerini değiştirince kopyalanan veri de değişiyor bunlar yani 819, 820 ... neyi ifade ediyor?
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim evn As Object, i As Integer, a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer
Set evn = CreateObject("internetexplorer.application")
With evn
On Error Resume Next
[A2].Select
    .Navigate "http://www.sahibinden.com/fiat-linea-1.3-multijet-active-plus/dizel?pagingSize=50&pagingSize=50&pagingOffset=40&pagingOffset=40&a5_min=2012&a4_max=80000&sorting=date_desc&address_country=1#!"
    .Visible = True
        Do While .busy: DoEvents: Loop
        Do While Not .readystate = 4: DoEvents: Loop
   
a = 819
b = 820
c = 821
d = 822
e = 824
f = 828
g = 813

For i = 0 To 50
Range("A65536").End(3)(2, 1).Value = .document.all.Item(a).InnerTEXT 'yıl
Range("B65536").End(3)(2, 1).Value = .document.all.Item(b).InnerTEXT 'km
Range("C65536").End(3)(2, 1).Value = .document.all.Item(c).InnerTEXT 'renk
Range("D65536").End(3)(2, 1).Value = .document.all.Item(d).InnerTEXT 'fiyat
Range("E65536").End(3)(2, 1).Value = .document.all.Item(e).InnerTEXT 'tarih
Range("F65536").End(3)(2, 1).Value = .document.all.Item(f).InnerTEXT 'il/ilçe
Range("G65536").End(3)(2, 1).Value = .document.all.Item(g).InnerTEXT 'başlık
a = a + 19
b = b + 19
c = c + 19
d = d + 19
e = e + 19
f = f + 19
g = g + 19
Next i

.Quit
End With
Set evn = Nothing
End Sub

Rahatsizlik vermek istemem ustadlar ama cevap verebilecek kimse varmiydi?
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#9)  Ali ÖZ » 11 Nis 2016 16:51

O numaralar sayfanın kaynak kodlarındaki item numaralarıdır.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 41
İleti: 10340
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#10)  isoaltunay » 11 Nis 2016 17:36

Ali abi anlatmak istedeiğiniz yer burası değil dimi? Burasını denedim bir türlü olmuyor.
Kod: Tümünü seç
    Private Sub CommandButton2_Click()
    Application.ScreenUpdating = False
    URL = "http://www.sahibinden.com/"
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
      .Navigate URL
      .Visible = True
    Do Until ie.ReadyState = 4: DoEvents: Loop
    Do While ie.Busy: DoEvents: Loop
    For i = 4 To Range("a65536").End(3).Row
      aranan = Cells(i, "a").Value
      ie.document.all("query_text").Value = aranan
      ie.document.forms(0).submit
      Next
     
     
b = 450
c = 334
d = 356
e = 604
f = 622
g = 626
h = 719


Range("b65536").End(3)(2, 1).Value = .document.all.Item(b).InnerTEXT 'yıl
Range("c65536").End(3)(2, 1).Value = .document.all.Item(c).InnerTEXT 'km
Range("d65536").End(3)(2, 1).Value = .document.all.Item(d).InnerTEXT 'renk
Range("e65536").End(3)(2, 1).Value = .document.all.Item(e).InnerTEXT 'fiyat
Range("f65536").End(3)(2, 1).Value = .document.all.Item(f).InnerTEXT 'tarih
Range("g65536").End(3)(2, 1).Value = .document.all.Item(g).InnerTEXT 'il/ilçe
Range("h65536").End(3)(2, 1).Value = .document.all.Item(h).InnerTEXT 'başlık
b = b + 1
c = c + 1
d = d + 1
e = e + 1
f = f + 1
g = g + 1
h = h + 1


    End With
    Set ie = Nothing
    End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#11)  Ali ÖZ » 12 Nis 2016 11:56

Ahmet Bey,
Excelde web işlemleri zaman gerektiren işlemlerdir.Bu kadar zamanım maalesef yok.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 41
İleti: 10340
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#12)  isoaltunay » 12 Nis 2016 13:15

Eyvallah ali abi sıkıntı yok doğrudur dediğin yeterince zaten yardımcı oluyorsun Allah razı olsun ben biraz daha uğraşayım ufak küçücük sorularım olursa kusura bakmazsın inşallah :) :oops:
Kullanıcı avatarı
isoaltunay
Siteye Alışmış
 
Kayıt: 19 Oca 2016 12:44
Meslek: yok
Yaş: 42
İleti: 309
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#13)  tubidiks » 29 May 2021 02:36

Merhabalar bu konuyu yeniden aktifleştirmemiz mümkün mü???
Kullanıcı avatarı
tubidiks
 
Kayıt: 28 May 2021 20:06
Meslek: öğretmen
Yaş: 39
İleti: 1
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Sahibinden.Com Sitesinden İstenilen Yerleri Excel'e A

İleti#14)  necdet20 » 13 Eyl 2022 10:11

Herkese Merhabalar,
sahibinden.com emlak verilerini nasıl alabiliriz? ya da yukarda ki kodları nasıl düzenleyebiliriz emlakla ilgili olarak
Kullanıcı avatarı
necdet20
 
Kayıt: 15 Oca 2015 17:22
Meslek: Arş.Gör.
Yaş: 38
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Muğla


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

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

Bumerang - Yazarkafe