Power Query Dyn. Quelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kili,
Fast. Du darfst nicht die Power Query Anweisung und die Parameter-Wert vermischen.


let
Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
Json = Json.Document(Web.Contents(Quelle{0}[Column1]))
in
Json

sollte eher passen. Dafür steht in A1 nur noch
https://api.binance.com/api/v1/klines?symbol=DOTUSDT&interval=1d&limit=100
Es wird gemekert, dass eine Anmeldung erforderlich sei. Einfach "anonym" anklicken.
Man kann auch komprimieren:


let
Quelle = Json.Document(Web.Contents(Excel.CurrentWorkbook(){[Name="Pfad"]}[Content]{0}[Column1]))
in
Quelle

Oder Schritt für Schritt auseinander:


let
Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
Column1 = Quelle{0}[Column1],
Json = Json.Document(Web.Contents(Column1))
in
Json

VG
Yal

Hi all
Wertfrei im Sinne einer weiteren Spielart (mit pivotieren):
- Index über alle Zeilen hinzufügen.
- Mittels benutzerdefinierter Spalte werden die Listen in Tabellen umgewandelt und im gleichen Schritt ein Index für jede Liste hinzugefügt.
- Listen in Zeilen extrahieren
- Pivotieren
- Die Typenkonvertierung und Umbenennung der Spalten habe ich mir gespart


let
Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
Json = Json.Document(Web.Contents(Quelle{0}[Column1])),
#"In Tabelle konvertiert" = Table.FromList(Json, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Hinzugefügter Index" = Table.AddIndexColumn(#"In Tabelle konvertiert", "Index", 0, 1, Int64.Type),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Hinzugefügter Index", "Benutzerdefiniert", each Table.AddIndexColumn(Table.FromList([Column1], Splitter.SplitByNothing(), null, null, ExtraValues.Error),"Index",1)),
#"Entfernte Spalten" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"Column1"}),
#"Erweiterte Benutzerdefiniert" = Table.ExpandTableColumn(#"Entfernte Spalten", "Benutzerdefiniert", {"Column1", "Index"}, {"Benutzerdefiniert.Column1", "Benutzerdefiniert.Index"}),
#"Pivotierte Spalte" = Table.Pivot(Table.TransformColumnTypes(#"Erweiterte Benutzerdefiniert", {{"Benutzerdefiniert.Index", type text}}, "de-CH"), List.Distinct(Table.TransformColumnTypes(#"Erweiterte Benutzerdefiniert", {{"Benutzerdefiniert.Index", type text}}, "de-CH")[Benutzerdefiniert.Index]), "Benutzerdefiniert.Index", "Benutzerdefiniert.Column1")
in
#"Pivotierte Spalte"

cu
Chris

Sub Runna() Dim burl As String Dim endpoint As String Dim dataquery As String Dim keys As keys Dim signature As String Dim url As String Let burl = "https://api.binance.com" Let endpoint = "/api/v3/order" Let dataquery = "symbol=BNBTRY&side=BUY&type=LIMIT&timeInForce=GTC&quantity=0.004&price=4500&recvWindow=>20000&timestamp=" & DateDiff("s", "1/1/1970 00:00:00", Now() - 1 / 24) Let keys.akey = "your_api_key_here" Let keys.skey = "your_secret_key_here" Let signature = HMACSHA256(dataquery, keys.skey) Let url = burl & endpoint & "?" & dataquery & "&signature=" & signature Set m_x = New cXMLHTTPEV With m_x.MyXMLRequest Call .Open("POST", url, True) Call .setRequestHeader("X-MBX-APIKEY", keys.akey) Call .send End With End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

73 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Power Query Dyn. Quelle

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

73 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread