Excel & VBA

Seit Excel 2013 gibt es die Funktion WEBDIENST(URL). Der Parameter sagt es schon: Es wird einfach die Adresse verwendet, von der die Daten geholt werden sollen. Direkt in den Klammern muss die Adresse in Anführungszeichen stehen; es kann jedoch auch ein Bezug zu einer Zelle mit der Adresse verwendet werden.

Die empfangenen Inhalte müssen den Excel-Konventionen entsprechen - insbesondere natürlich, was die zulässige Länge des INhalts einer Zelle betrifft. Und es sollte natürlich auch Sinn machen - =WEBDIENST("http://google.de") würde den Quelltext der Google-Website ausgeben, was wahrscheinlich eher niemand brauchen kann.

Mit dieser Formel können Sie testen:

=WEBDIENST("https://joerglorenz.de/demos/webdienst.php?Name=Müller&Vorname=Hans&Stra�e=Berliner Allee")

Sie können in der Adresse die GET-Parameter verändern oder ergänzen und bekommen so von dieser Adresse die Daten im JSON-Format geliefert, wie es auch im Screenshot zu sehen ist.

Diese drei Varianten rufen die Adresse im Browser auf und bringen das Browserfenster nach vorn:

Sub URL_Aufruf() ActiveWorkbook.FollowHyperlink Address:="https://www.joerglorenz.de", NewWindow:=True, AddHistory:=True Application.WindowState = xlMaximized End Sub

Oder:

Sub URL_Aufruf1() Dim WSHShell As Object Set WSHShell = CreateObject("WScript.Shell") WSHShell.Run "https://joerglorenz.de" End Sub

Oder:

'Deklaration muss am Anfang des Moduls stehen: #If VBA7 Then Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As LongPtr) As LongPtr #Else Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long #End If Sub URL_Aufruf2() Dim lngRet As LongPtr lngRet = ShellExecute(0, "Open", "https://joerglorenz.de", "", "", 5) End Sub