Datenschutzerklärung


Direktnachricht



Ihre Software
Details
Excel/VBA 🔍
Add-Ins
Excel/VBA

Excel-Beispiele:
Erklärungen, Formeln, VBA-Code und mehr

Hinweise zu den Beispielen finden Sie hier: Beispiele


Empfangen von Daten aus dem Internet: WEBDIENST()FormellösungTipp

Kategorien: Netz ▸ Serverkommunikation und Netz ▸ Internet

(Tipp 156) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich Daten von einer Adresse im Internet empfangen?

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.

URL im Browser aufrufenMakro/Sub/Prozedur

Kategorien: Netz ▸ Internet und Übergreifend

(Tipp 6) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich den Standardbrowser mit einer URL aufrufen?

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