Skip to main content

AccessTr.neT


Webten Veri Alma

Webten Veri Alma

Çözüldü #1
Merhabalar

http://www.wunderground.com/history/airp...atename=NA

Bu bağlantıda "Hourly Observations" başlığı altındaki verileri otomatik olarak almak istiyorum. Örnek bir şablon dosya ekledim. (Verdiğim bağlantıdaki "Hourly Observations" başlığı, grafiklerin altındadır.)

Amacım kendim belirleyeceğim iki tarih arasındaki verileri otomatik olarak almak. Bu işlemi manuel olarak yapıyorum ama verilerin girildiği ilk tarih 01.07.1996, son tarih ise 03.06.2010 yani bugün. 5000'den fazla günün verilerini manuel olarak almam lazım. Bu işi otomatik olarak yapmak istiyorum ama makrolar hakkında hiç bilgim yok.

Bu işi manuel olarak şöyle yapıyorum. Önce sayfanın başındaki "Daily Summary" başlığı altındaki tarihi ayarlıyorum sonrada view düğmesine tıklıyorum. Daha sonra "Hourly Observations" başlığına gidip verileri seçip kopyalıyorum ve excel'e yapıştırıyorum. Excel'de tarih sütunundaki tarihide son veriye kadar aşağıya doğru kopyalıyorum.

İlgilenen herkese şimdiden çok teşekkür ederim.
.xlsx Sıcaklık.xlsx (Dosya Boyutu: 15,14 KB | İndirme Sayısı: 19)
Cevapla
Çözüldü #2
Sn:utkub
Söylediğinizi en basit dış veri al ile yapabilirsiniz.Yada aşağıdaki kodu deneyiniz.

Kod:
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.wunderground.com/history/airport/LTBA/2010/6/4/DailyHistory.html?req_city=NA&req_state=NA&req_statename=NA" _
        , Destination:=Range("$A$1"))
        .Name = "DailyHistory.html?req_city=NA&req_state=NA&req_statename=NA"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "19"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=-15

OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
Sayın ogulcan92

Yardımınız için çok teşekkür ederim.
Cevapla
Çözüldü #4
teşekkürler
derer, 14-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task