https://www.wvds.it/wiki/ 2026-05-22T16:13:12+00:00 https://www.wvds.it/wiki/ https://www.wvds.it/wiki/lib/exe/fetch.php?media=wiki:dokuwiki.svg text/html 2026-01-29T15:12:52+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.wvds.it/wiki/doku.php?id=de:int:dbgway:anwender:vba:daten-lesen&rev=1769699572&do=diff 4.2 Daten lesen mit VBA Tabellendaten per REST-API abrufen. Komplettes Beispiel Sub LadeKunden() Dim http As Object Dim url As String Dim json As String url = "http://localhost:5000/api/v1/dsn/demo/tables/Customers?$top=10" Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.setRequestHeader "Accept", "application/json" http.send If http.Status = 200 Then json = http.responseText Debug.Print json Else M… text/html 2026-01-29T15:12:52+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.wvds.it/wiki/doku.php?id=de:int:dbgway:anwender:vba:daten-schreiben&rev=1769699572&do=diff 4.3 Daten schreiben mit VBA Datensätze erstellen, ändern und löschen. Neuen Datensatz einfügen Sub NeuerKunde() Dim http As Object Dim url As String Dim body As String url = "http://localhost:5000/api/v1/dsn/demo/tables/Customers" body = "{""Name"":""Neue Firma GmbH"",""Country"":""Germany""}" Set http = CreateObject("MSXML2.XMLHTTP") http.Open "POST", url, False http.setRequestHeader "Content-Type", "application/json" http.send body If http.Status … text/html 2026-01-29T15:12:52+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.wvds.it/wiki/doku.php?id=de:int:dbgway:anwender:vba:grundlagen&rev=1769699572&do=diff 4.1 VBA Grundlagen Datenzugriff per VBA-Code (Excel, Access, Word). HTTP-Anfrage Function GetData(url As String) As String Dim http As Object Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send GetData = http.responseText End Function text/html 2026-01-29T15:12:52+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.wvds.it/wiki/doku.php?id=de:int:dbgway:anwender:vba:start&rev=1769699572&do=diff 4. VBA