Makro kaydet yetersiz mi kalıyor?

[irfancantr]

Herkese hayırlı günler dilerim,

Web sayfasından devamlı veri çekeceğim için bende " makro kaydet " yaparak işlemi kolaylaştırmak çabasındaydım. Kayıt işlemi sürerken herhangi bir sıkıntı yaşamıyorum. Verileri sayfaya alabiliyorum,

sorunum makroyu çalıştır dediğimde

Range("A3").Select
    [COLOR="Navy"][B]With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.sahibinden.com/search.php?b[search]=otomobil&b[sort_field]=date_first_activated&b[sort_order]=desc&c2=3545&c=3545&sKlasik=1&b[page]=1" _
        , Destination:=Range("$A$3"))[/B][/COLOR]
        .Name = _
        "search.php?b[search]=otomobil&b[sort_field]=date_first_activated&b[sort_order]=desc&c2=3545&c=3545&sKlasik=1&b[page]=1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """table_main_list"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

mavi yazılı alanı hata içerisinde gösteriyor.Sonuçta kodları excel kendisi hazırladı. Bunun nedenini öğrenebilir miyim?

ikinci olarak bu adres kısmını makro içerisinde Range("C1").Value diye gösterip
veri alınacak adresi C1 hücresi içerisinde ki adres olarak seçebilir miyiz?

Aslında yakalamak istediğim görüntü ikinci sayfada.

Yardımlarınız için şimdiden teşekkürlerimi sunarım.

 

[irfancantr]

İyi akşamlar ;

Daha farklı çözüm yolu varsa onuda uygulayabilirim, önemli olan sonuca ulaşabilmek...

 

[irfancantr]

Herkese hayırlı sabahlar.

Bu adresten farklı bir şekilde veri çekmem mümkün değil mi?

 

[Korhan Ayhan]

Merhaba,

İrfan bey,

Verdiğiniz link makro kaydet yönteminde ilk seferinde işlem yapıyor. Kodu hiç ellemeden tekrar çalıştırdığımızda veril almayıp hata veriyor. Sanırım ikinci bağlantıda bir sorun oluyor. Bu sebeple şimdilik bir çözüm üretemedim.

 

[irfancantr]

Sağlık olsun

Merhaba,

İrfan bey,

Verdiğiniz link makro kaydet yönteminde ilk seferinde işlem yapıyor. Kodu hiç ellemeden tekrar çalıştırdığımızda veril almayıp hata veriyor. Sanırım ikinci bağlantıda bir sorun oluyor. Bu sebeple şimdilik bir çözüm üretemedim.

Bu konuyu tekrar üst sıralarda görünce çok sevindim ama çözüm kısmı yok sanırım. Farklı alternatiflere yönelicem sanırım. Çok teşekkür ederim ilgi ve alakanız için sayın Korhan Ayhan , zahmet verdim.

Hayırlı günler dilerim.

 

[halit3]

kod

Sub giris()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "[URL]http://www.sahibinden.com/[/URL]"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("searchText").Value = Cells(1, 1).Value
IE.Document.forms(0).submit
End With
Do Until IE.ReadyState = 4: DoEvents: Loop
'Do While IE.Busy: DoEvents: Loop
Set html_tba = IE.Document.getElementsByTagName("Body")
adres = Replace(Replace(WorksheetFunction.Trim(html_tba(0).InnerText), Chr(13), ""), Chr(10), " ")
MsgBox adres
Cells(1, 3).Value = adres
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti  ")
End Sub

 

[halit3]

dosyayı güncelledim.

 

[Orion1]

6 nolu mesajdaki dosyayı güncelledim.

halit bey denedim çalışıyor.
Yeni bir ie explerer açıp oarada gösteriyor.
Peki uf üstündeki bir ie ' de nasıl gösterebiliriz.Uyarlayabilecenmi?
Teşekkürler.

 

[halit3]

halit bey denedim çalışıyor.
Yeni bir ie explerer açıp oarada gösteriyor.
Peki uf üstündeki bir ie ' de nasıl gösterebiliriz.Uyarlayabilecenmi?
Teşekkürler.

Evren bey herhalde yapılabilir bir örnek dosya ekleyin bakalım

anladığım kadrıyla url adresini aserformdan aldırmak istiyorsunuz.

 

[Orion1]

Evren bey herhalde yapılabilir bir örnek dosya ekleyin bakalım

anladığım kadrıyla url adresini aserformdan aldırmak istiyorsunuz.

Halit bey dosyayı ekte yolluyorum.
Kolay gelsin.

 

[halit3]

Halit bey dosyayı ekte yolluyorum.
Kolay gelsin.

Evren bey aşağıdaki linkdeki dosyada bir örnek var tabi url adresleri combobox un içinde

http://www.excel.web.tr/f128/nostalji-muzik-t90791.html

 

[Orion1]

Evren bey aşağıdaki linkdeki dosyada bir örnek var tabi url adresleri combobox un içinde

http://www.excel.web.tr/f128/nostalji-muzik-t90791.html

Teşekkür ederim.
Çalıştı.
Arşivime atayım barii.