Web sayfasından excel' e bilgi aktarma hk.

[tb]

Arkadaşlar merhaba. Sorum http://www.poas.com.tr/fiyat/fiyathesap.htm adresinde günlük akaryakıt fiyatları var bunların excel' e bir makro yada vb. komutlarıyla aktarabilmek. Ancak sorun şuki sayfaya girdikten sonra bulunduğunuz ili seçip sorgula butonuna basmanız gerekiyor ve gerekli veriler ondan sonra açılıyor. Excel' e böyle bir aktarım yapılabilirmi. Eğer yapılabiliyorsa günlük olarak excel' e girdikten sonra eski verilerin altına kayıt yapılabilirmi. İlgilenen arkadaşlara teşekür ederim.

 

[Seyit Tiken]

"Dış Veri Al"ma diye forumda aratırsanız belki bir şeyler bulursunuz.

 

[alibildir]

Şöyle bir baktım sayfa asp ile hazırlanmış ve sorgula butonu ile gönderilen parametreleri tespit benim bildiğim kadarıyla yok... ama umarım biri çözüm bulur.. kolay gelsin

 

[serdenm]

asagidaki kodu deneyin:

Sub ser()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.poas.com.tr/html/fiyatlistesi/htmlversion/fiyatust.asp", _
Destination:=Range("A1"))
.Name = "fiyatust_1"
.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 = """table1"",""table1"",""table1"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

 

[tb]

Sayın serdenm, cevabınız için teşekür ederim ancak kodları çalıştırdığımda sadece üst başlıkları excel' e yazdı. İl seçimi ile ilgili ve akaryakıt fiyatları ile ilgili herhangi bir çalışma olmadı. Örnek olarak İzmir' in ilçelerene ait fiyatlar gelmedi. Yada ben yanlış yaptım. Daha başka bir işlem yapılabilirmi ?