API auslesen

Pieter · 2023-02-20T07:40:59+00:00

Hey, ich möchte eine API *https://datenservice.tradinghub.eu/XmlInterface/getXML.ashx?ReportId=PricesEnergyImbalance&Start=01-10-2021&End=31-10-2021* gerne in meine Datenbnak speichern, wie mache ich das am geschicktesten. Sprich, jeden Tag soll die API aktuallisiert werden und alle noch nicht enhaltene Daten in die Datenbank. Hab dazu leider noch keine Vorstellung - bitte um Hilfe merci

Hi
Also gut...
Wenn es unbedingt SQL sein soll, hier ein Beispiel.
Die XML-Datei wird wie beschrieben über eine Webabfrage gelesen und in die Excel-Datei Tabelle1 importiert.
Excel-Tabelle1 wird gelesen (SELECT *)
Weil ich keine SQL-DB zur Hand habe, habe ich es in eine Access-Datei übertragen. Bedeutet der Connection-String muss für die SQL-DB modifiziert werden.
Den Tabelleninhalt der Access Tabelle lösche ich zuerst komplett.
Danach erfolgt ein zeilenweiser Übertrag, wobei ich nur die ersten 3 Felder übertrage (muss noch ergänzt werden).
Es zeigt einfach die Möglichkeiten, speziell ADODB (für SQL) auf. Ob man es so oder anders machen will, ist ein anderes Thema.
cu
Chris

Sub t()
Dim objConQuelle As Object, objConZiel As Object
Dim objRsQuelle As Object
Set objConQuelle = CreateObject("ADODB.Connection")
objConQuelle.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0 Xml;HDR=YES';"
Set objRsQuelle = objConQuelle.Execute("SELECT * FROM [Tabelle1$]")
Set objConZiel = CreateObject("ADODB.Connection")
objConZiel.Open "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=C:\Pfad\Database1.accdb"
objConZiel.Execute ("DELETE FROM Tabelle1")
objRsQuelle.MoveFirst
Do Until objRsQuelle.EOF
    objConZiel.Execute ("INSERT INTO Tabelle1 ([Gasday],[PositiveEnergyImbalancePrice],[NegativeEnergyImbalancePrice]) VALUES ('" & objRsQuelle.Fields("Gasday").Value & "'," & objRsQuelle.Fields("PositiveEnergyImbalancePrice").Value & "," & objRsQuelle.Fields("NegativeEnergyImbalancePrice").Value & ")")
    objRsQuelle.MoveNext
Loop
objRsQuelle.Close
Set objRsQuelle.ActiveConnection = Nothing
objConQuelle.Close
Set objConQuelle = Nothing
objConZiel.Close
Set objConZiel = Nothing
End Sub

Hi
Man könnte einfach die XML-Datei archivieren. Hierzu schlägt ChatGPT folgenden Code vor:

Sub SaveUrlAsXml()
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://datenservice.tradinghub.eu/XmlInterface/getXML.ashx?ReportId=PricesEnergyImbalance&Start=01-10-2021&End=31-10-2099", False
    http.Send
    
    Dim resp As String
    resp = http.responseText
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim file As Object
    Set file = fso.CreateTextFile("C:\Users\CH00LNC\Desktop\file.xml", True)
    file.Write resp
    file.Close
    
    Set file = Nothing
    Set fso = Nothing
    Set http = Nothing
End Sub

Oder du nutzt die Webabfrage und kopierst das Ergebnis, damit es von der Datenverbindung "entkoppelt" wird:

wksQuelle.ListObjects("Tabelle-Abfrageresultat").Range.Copy wksZiel.Range("A1")

cu
Chris

Forumthread: API auslesen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

API-Daten automatisiert in Excel und SQL integrieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)