[Yardım]  Çoklu sayfa'dan veri alma

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

Çoklu sayfa'dan veri alma

İleti#1)  bhcn » 16 Şub 2018 18:44

Merhabalar,
https://www.tarimziraat.com/tarimsal_firma_rehberi/tohumculuk_firmalari/?page_id=0 sayfasında aşağıda görüntüde olduğu gibi 10 sayfalık bir liste var.
Web'den veri al yöntemi ile tek sayfa alabiliyorum.

Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.




Macro ile tüm sayfaları tek bir tablo olarak alma imkanım varsa, desteğinizi rica ediyorum.
Teşekkürler.
Kullanıcı avatarı
bhcn
Yeni Başlamış
 
Kayıt: 20 Nis 2015 15:28
Meslek: analist
Yaş: 36
İleti: 82
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Çoklu sayfa'dan veri alma

İleti#2)  hemso41 » 16 Şub 2018 21:43

Bir tane makro tanımlayınız ve aşağıdaki kodu içine yapıştırınız.
Kod: Tümünü seç
Range("a1").Select
For i = 0 To 9
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.tarimziraat.com/tarimsal_firma_rehberi/tohumculuk_firmalari/?page_id=" & i _
        , Destination:=ActiveCell)
       
        .Name = "?page_id=" & i
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveCell.Offset(26, 0).Select
Next
Range("a1").Select
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 334
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: Çoklu sayfa'dan veri alma

İleti#3)  bhcn » 17 Şub 2018 13:06

Çok teşekkür ederim. şkşk
Kullanıcı avatarı
bhcn
Yeni Başlamış
 
Kayıt: 20 Nis 2015 15:28
Meslek: analist
Yaş: 36
İleti: 82
 
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 2 misafir

Bumerang - Yazarkafe