EPDK web sitesinden sorgu

[alirizapekbilir]

Enerji piyasası düzenleme kurumunun web sitesinden her gün akaryakıt fiyatlarını alıyorum.

Web sorgusu ile makro kaydederek bir kod oluşturdum fakat sorguda günü seçemiyorum.
Ayrıca çektiğim bilgilerin hangi tarihe ait olduğunuda yazdıramıyorum.
Nasıl yapabilirim örnek kod aşağıda yardımcı olursanız yönlendirirseniz memnu olurum.

Örnek Dosya ekliyorum.
Şimdiden teşekkürler


Sub Makro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://bildirim.epdk.org.tr/bildirim-portal/faces/pages/tarife/petrol/yonetim/bultenSorgula.xhtml" _
, Destination:=Range("$A$1"))
.Name = "bultenSorgula.xhtml"
.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 = "6"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

 

[Haluk]

Koddaki aşağıdaki satırı;

.WebTables = "6"

bununla değiştirin....

.WebTables = "5,6"

Not: Alınan verilerin biçimini düzeltmeniz gerekiyor tabii

Düzgün bir şekilde ve verileri daha hızlı bir şekilde alacak dosya hazırlanmasını isterseniz, özel mesajla bana ulaşabilirsiniz...



.

 

[subutayı]

haluk hocam elindeki dosyayı paylaşırsan sevinirim. teşekürler

 

[Haluk]

haluk hocam elindeki dosyayı paylaşırsan sevinirim. teşekürler

Emeğin karşılığını ödemeyi düşünüyorsanız olur tabii....

.

 

[alirizapekbilir]

Hocam galiba baya ihtiyacı olan var bu dosyaya

 

[subutayı]

benim ihtiyacım yok haluk hocam. benim ki merak. bir gün lazım olur diye

 

[alirizapekbilir]

Desene yanlız kaldım benimki devlet işi