İnternetten Veri Alma

[mekist]

@pitchoute hocam merhaba
Eksik ifade etmiş olabilirim, bu alandaki tarihin hafta sonuna denk gelmemesi ve seçilebilir alan olmasını ifade etmiştim

baslangicTarihi = Date.ToText(Date.AddDays(Date.From(DateTime.LocalNow()), -30),"dd-MM-yyyy"),  // Bugüneden geriye doğru istediğimiz tarihe gidiyoruz
    bitisTarihi = Date.ToText(Date.AddDays(Date.From(DateTime.LocalNow()), -2),"dd-MM-yyyy"),  // Bugüneden geriye doğru istediğimiz tarihe gidiyoruz

 

[mekist]

Hafta sonuna denk gelecek kısım için verdiğiniz kısmı aşağıdaki gibi düzenledim, burada sorgu çalışıyor, sadece tarih alanı seçilebilir olmadı

Verdiğiniz giriş tarih date alanı, sorgu text olarak istiyor, texte çevirince aşağıdaki gibi hata verdi

let
    baslangicTarihi = Date.ToText(Date.AddDays(Date.From(DateTime.LocalNow()), -5),"dd-MM-yyyy"),  // Bugüneden geriye doğru istediğimiz tarihe gidiyoruz
    bitisTarihi = if Date.DayOfWeek(DateTime.LocalNow(),Day.Monday) > 4 then Date.ToText(Date.From(Date.AddDays(DateTime.LocalNow(), - (Date.DayOfWeek(DateTime.LocalNow(), Day.Monday) - 4 ))),"dd-MM-yyyy") else Date.ToText(Date.From(DateTime.LocalNow()),"dd-MM-yyyy"),
    //Date.ToText(Date.AddDays(Date.From(DateTime.LocalNow()), -3),"dd-MM-yyyy"),  // Bugüneden geriye doğru istediğimiz tarihe gidiyoruz
    sektor = null,
    endeks = "09",
    hisse = "AKSA",
    PayLoad = Text.FromBinary(Json.FromValue([
        baslangicTarih = baslangicTarihi,
        bitisTarihi = bitisTarihi,
        sektor = sektor,
        endeks = endeks,
        hisse = hisse
    ])),
    Kaynak = Web.Contents("https://www.isyatirim.com.tr/_layouts/15/IsYatirim.Website/StockInfo/CompanyInfoAjax.aspx/GetYabanciOranlarXHR",
        [
            Headers = [#"Content-Type" = "application/json; charset=UTF-8"],
            Content = Text.ToBinary(PayLoad)
        ]
    ),
    KaynakMetin = Text.FromBinary(Kaynak),
    TemizMetin = Text.Replace(KaynakMetin, "{:null}", ""),
    JsonYaniti = Json.Document(TemizMetin),
    #"Tabloya Dönüştürüldü" = Record.ToTable(JsonYaniti),
    #"Genişletilen Value" = Table.ExpandListColumn(#"Tabloya Dönüştürüldü", "Value"),
    #"Genişletilen Value1" = Table.ExpandRecordColumn(#"Genişletilen Value", "Value", {"__type", "HISSE_KODU", "PRICE_TL", "YAB_ORAN_START", "YAB_ORAN_END", "DEGISIM", "ETKI", "HISSE_TANIM", "HISSE_TANIM_YD"}, {"Value.__type", "Value.HISSE_KODU", "Value.PRICE_TL", "Value.YAB_ORAN_START", "Value.YAB_ORAN_END", "Value.DEGISIM", "Value.ETKI", "Value.HISSE_TANIM", "Value.HISSE_TANIM_YD"}),
    #"Kaldırılan Sütunlar" = Table.RemoveColumns(#"Genişletilen Value1",{"Name", "Value.__type", "Value.HISSE_TANIM", "Value.HISSE_TANIM_YD"})
in
    #"Kaldırılan Sütunlar"