Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 21-04-2017, 11:41   #1
mstfscl
 
Giriş: 13/03/2017
Mesaj: 15
Excel Vers. ve Dili:
Android
Varsayılan Siteden farklı sayfalardaki verileri çekme

Merhaba arkadaşlar bir siteden veri çekicem ama sürekli olucak yani farklı sayfalarındanda aynı veri türlerini çekicem.Linkte tarih var o tarih geriye alarak sürekli alt alta çekmesini istiyorum internetten bulduklarımla sadece 1 sayfayı çekebildim.Kod aşağıda saygılarımla.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub çek()
'
' çek Makro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://data.goaloo.com/1x2/Companyhistory.aspx?id=281&company=Bet 365&matchdate=2017-04-20" _
        , Destination:=Range("$A$1"))
        .Name = "Companyhistory.aspx?id=281&company=Bet 365&matchdate=2017-04-20"
        .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
    Range("A1:M12").Select
    Range("M6").Activate
    ActiveWindow.SmallScroll Down:=-15
    Cells.Select
    Selection.ColumnWidth = 12.57
    Range("I9").Select
End Sub
matchdate=2017-04-20 yazıyor mesela bu 19-18-17-16 diye azalıcak bunu bulamadım for döngüsü diye bir şey buldum ama kafa ileri gitmiyor.
mstfscl Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 14:07   #2
mstfscl
 
Giriş: 13/03/2017
Mesaj: 15
Excel Vers. ve Dili:
Android
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
http://www.excel.web.tr/f48/web-adresindeki-linkden-sayfalary-cekmek-t163575.html
burada gösterilmiş ama tarih olarak nasıl geri alıcağım bilemedim
mstfscl Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 14:20   #3
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 958
Excel Vers. ve Dili:
2010-2016
Varsayılan

O örnekde tarih kısmı yok. Sizin kullandığınız yöntemden farklı.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 15:51   #4
mstfscl
 
Giriş: 13/03/2017
Mesaj: 15
Excel Vers. ve Dili:
Android
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
O örnekde tarih kısmı yok. Sizin kullandığınız yöntemden farklı.
hocam ben excellde 2010 kadar ki linkleri yaptım bunu direk yapabilirmi
mstfscl Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:56


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - invest in turkey - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden