Sadece Hissenin Adını Yazın, Excel Tüm Tarihsel Veriyi Getirsin! (TL / USD)
Автор: Uraz Hoca
Загружено: 2025-10-26
Просмотров: 14839
Faydalı olduğunu düşünüyorsanız beğenmeyi, abone olmayı ve yorum yapmayı ihmal etmeyiniz.
Mail adresinizi yorum olarak eklerseniz dosyayı sizlere mail olarak iletebilirim.
Link: https://www.isyatirim.com.tr/tr-tr/an...
Excel (Query) Formüller:
= Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content]{0}[Hisse]
= Date.From(Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content]{0}[BaslangicTarihi])
= Date.From(Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content]{0}[BitisTarihi])
Excel Query Gelişmi Düzenleyici Kod:
let
// 1) Parametreler tablosunu tek sefer al
Param = Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content],
// 2) İlk (ve tek) satırdan alanları çek
// (Sütun isimlerin Parametreler tablosundaki başlıklarla birebir eşleşmelidir)
Hisse = Text.From(Param{0}[Hisse]),
BasTarihDate = Date.From(Param{0}[BaslangicTarihi]),
BitTarihDate = Date.From(Param{0}[BitisTarihi]),
// 3) Tarihleri istenen formata çevir
BasTarih = Date.ToText(BasTarihDate, "dd-MM-yyyy"),
BitTarih = Date.ToText(BitTarihDate, "dd-MM-yyyy"),
// 4) Dinamik URL oluştur
URL = "https://www.isyatirim.com.tr/_layouts..."
& Hisse & "&startdate=" & BasTarih & "&enddate=" & BitTarih,
// --- (Geçici test adımı: URL'in doğru oluşup oluşmadığını görmek istersen burayı çıktıya al)
// TestURL = URL,
// 5) Web'den JSON'u çek
Kaynak = Json.Document(Web.Contents(URL)),
value = Kaynak[value],
#"Tabloya Dönüştürüldü" = Table.FromList(value, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Genişletilen Column1" = Table.ExpandRecordColumn(#"Tabloya Dönüştürüldü", "Column1",
{"HGDG_HS_KODU", "HGDG_TARIH", "HGDG_KAPANIS", "HGDG_AOF", "HGDG_MIN", "HGDG_MAX", "HGDG_HACIM",
"END_ENDEKS_KODU", "END_TARIH", "END_SEANS", "END_DEGER", "DD_DOVIZ_KODU", "DD_DT_KODU",
"DD_TARIH", "DD_DEGER", "DOLAR_BAZLI_FIYAT", "ENDEKS_BAZLI_FIYAT", "DOLAR_HACIM", "SERMAYE",
"HG_KAPANIS", "HG_AOF", "HG_MIN", "HG_MAX", "PD", "PD_USD", "HAO_PD", "HAO_PD_USD", "HG_HACIM",
"DOLAR_BAZLI_MIN", "DOLAR_BAZLI_MAX", "DOLAR_BAZLI_AOF"},
{"HGDG_HS_KODU", "HGDG_TARIH", "HGDG_KAPANIS", "HGDG_AOF", "HGDG_MIN", "HGDG_MAX", "HGDG_HACIM",
"END_ENDEKS_KODU", "END_TARIH", "END_SEANS", "END_DEGER", "DD_DOVIZ_KODU", "DD_DT_KODU",
"DD_TARIH", "DD_DEGER", "DOLAR_BAZLI_FIYAT", "ENDEKS_BAZLI_FIYAT", "DOLAR_HACIM", "SERMAYE",
"HG_KAPANIS", "HG_AOF", "HG_MIN", "HG_MAX", "PD", "PD_USD", "HAO_PD", "HAO_PD_USD", "HG_HACIM",
"DOLAR_BAZLI_MIN", "DOLAR_BAZLI_MAX", "DOLAR_BAZLI_AOF"})
in
#"Genişletilen Column1"
Excel Otomatik Yenileme Makrosu için Kod:
If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
Application.EnableEvents = False
ThisWorkbook.RefreshAll
Application.EnableEvents = True
End If
------------ ABONE OLMAYI UNUTMAYIN--------------
Borsa
Hisse
Tarihsel Veri Excele
#excel #excelborsa #borsa #bilanço #excelhisse
Excelde tarihsel veri
Excel veri getirme
Excel işyatırım veri çekme
Excel işyatırım tarihsel veri getirme
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
