<\/p>\n
Google-Kalender sind praktisch: Sie sind von überall erreichbar, können mit endlos vielen Schnittstellen und Diensten verbunden werden und bieten weitere Vorteile. Noch schöner wäre es natürlich, wenn wir auch per VBA auf diese Kalender zugreifen könnten. Die Vorbereitungen haben wir bereits in zwei weiteren Artikeln erledigt – damit haben wir eine App bei Google angelegt und eine COM-DLL programmiert, mit der wir ein Token für die Authentifizierung bei Google generieren können. Damit folgt nun die Kür: Wir erzeugen VBA-Prozeduren, um auf die verschiedenen Informationen der Google Calendar API zuzugreifen. Dazu gehören Kalender, Termine und vieles mehr. Welche Möglichkeiten sich zum Lesen, Schreiben, Ändern und Löschen von Terminen bieten, zeigen wir auf den folgenden Seiten.<\/b><\/p>\nKeine Rest-API ohne JSON<\/h2>\n
Die Kommunikation mit der Rest-API des Google Calendars erfolgt wie bei den meisten Rest-APIs über JSON. Wir haben dazu bereits eine Bibliothek vorgestellt, die uns den Zugriff auf die in JSON-Dateien enthaltenen Informationen unter VBA stark vereinfacht. Alles Weitere dazu liest Du im Artikel Mit JSON arbeiten <\/b>(www.vbentwickler.de\/361<\/b>).<\/p>\nVorbereitungen<\/h2>\n
Wie schon in der Einleitung erwähnt, sind zwei wichtige Schritte nötig, bevor wir mit der eigentlichen Programmierung des Rest-API-Zugriffs beginnen können. Jeder wird in einem eigenen Artikel abgehandelt:<\/p>\n
Außerdem fügen wir der Anwendung, egal, ob es sich um eine Excel-, Outlook-, Access- oder twinBASIC-Anwendung handelt, neben dem Verweis auf die COM-DLL amvGoogleOAuth2 <\/b>noch zwei weitere wichtige Verweise hinzu. Dabei handelt es sich um Microsoft Scripting Runtime <\/b>und Microsoft XML, v6.0<\/b> (siehe Bild 1). Dies ist das Verweise-Fenster des VBA-Editors, unter twinBASIC sieht dies etwas anders aus.<\/p>\n
![\"Verweise](\"..\/fileadmin\/_temp_\/2023_06\/pic_410_008.png\")
<\/p>\n
Bild 1: Verweise für die Lösung<\/span><\/b><\/p>\n Außerdem fügen wir dem Projekt die beiden Module mdlJSON <\/b>und mdlJSONDOM <\/b>hinzu. Diese enthalten die Elemente zum Parsen und Lesen der gelieferten JSON-Dokumente.<\/p>\n Im Modul mdlClipboard <\/b>finden wir die Funktion InZwischenablage<\/b>, die immer praktisch ist, um längere JSON-Dokumente in die Zwischenablage zu kopieren, um diese dann beispielsweise formatiert in Visual Studio einzufügen und anzuzeigen.<\/p>\n Das Modul mdlTools <\/b>enthält aktuell nur die Funktion SQLDatum<\/b>, mit dem wir Datumsangabe in das SQL-Format übertragen können.<\/p>\n Das Modul mdlRegistry <\/b>enthält einige Funktionen, mit denen wir Daten wie die ClientID, das ClientSecret, das Access-Token und das Refresh-Token in der Registry speichern und wieder auslesen können.<\/p>\n Diese beschreiben wir im Detail im Artikel Anwendungsdaten in der Registry <\/b>(www.vbentwickler.de\/411<\/b>).<\/p>\n Das Modul mdlAuthentication <\/b>enthält die Prozeduren, mit denen wir das Access-Token für die Authentifizierung unserer Anfragen an die Rest-API von Google generieren.<\/p>\n Das Modul mdlGoogleCalendar <\/b>enthält schließlich die eigentlichen Prozeduren, um auf die Daten des Google-Kalenders zuzugreifen.<\/p>\n Im Artikel Google Calendar programmieren: Vorbereitungen <\/b>(www.vbentwickler.de\/408<\/b>) beschreiben wir, wie Du die Client-ID und das Client-Secret über die Webseite von Google holst und dazu auch eine App anlegst. Die beiden Daten sind wichtige Voraussetzungen für das Erhalten eines Access-Tokens und damit letztlich für den Zugriff auf die Rest-API von Google.<\/p>\n Im Modul mdlAuthentication <\/b>findest Du eine Prozedur namens SetClientData<\/b>, mit der Du die gewonnenen Daten für Client-ID und Client-Secret in die Registry schreibst, von wo weitere Prozeduren sich diese Informationen im weiteren Verlauf holen. Wir können diese zwar auch in Form von Konstanten direkt im Modul speichern, aber da die weiteren benötigten Informationen wie das Access-Token und das Refresh-Token sich gelegentlich ändern und wir diese deshalb in der Registry speichern wollen, legen wir dort auch gleich Einträge für Client-ID und Client-Secret an.<\/p>\n Wir tragen die entsprechenden Werte also in den folgenden Zeilen für die Platzhalter xxxxxx <\/b>und yyyyyy <\/b>ein und rufen dann die Prozedur auf:<\/p>\n Diese landen dann wie in Bild 2 in der Registry.<\/p>\n Bild 2: Informationen in der Registry<\/span><\/b><\/p>\n Google liefert zwei Arten von Token:<\/p>\n Mit der Prozedur GetTokens <\/b>holen wir beide Token und speichern diese in weiteren Einträgen in der Registry. Die Prozedur ermittelt als Erstes die Werte der Registry-Einträge ClientID <\/b>und ClientSecret <\/b>und gibt entsprechende Meldungen aus, wenn diese nicht aus der Registry eingelesen werden können.<\/p>\n Sind beide Werte vorhanden, ruft die Prozedur eine weitere Prozedur namens GetTokensDLL <\/b>auf. Diese erwartet die Client-ID, das Client-Secret und weitere leere Variablen als Parameter, die mit dem Access-Token, dem Refresh-Token und der Haltbarkeit des Access-Tokens in Sekunden gefüllt werden sollen. Liefert diese Funktion den Wert True <\/b>zurück, trägt die aufrufende Prozedur die Werte der nun gefüllten Parameter strRefreshToken<\/b>, strAccessToken <\/b>und lngExpiresInSeconds <\/b>unter den Namen RefreshToken<\/b>, AccessToken <\/b>und TokenExpiresAt <\/b>in die Registry ein. Dabei berechnet sie für den Eintrag TokenExpiresAt <\/b>die aktuelle Zeit plus die Anzahl der Sekunden aus lngExpiresInSeconds<\/b> (siehe Listing 1).<\/p>\n Listing 1: Die Prozedur GetTokens ruft die Funktion GetTokensDLL auf.<\/span><\/b><\/p>\n Die Funktion GetTokensDLL <\/b>deklariert eine Objektvariable auf Basis der Klasse amvGoogleOAuth2.GoogleOAuth2 <\/b>aus der per Verweis verfügbar gemachten DLL amvGoogleOAuth2<\/b> und erstellt eine neue Instanz dieser Klasse (siehe Listing 2).<\/p>\n Listing 2: Die Funktion GetTokensDLL ermittelt per DLL das Access-Token, das Refresh-Token und die Gültigkeitsdauer.<\/span><\/b><\/p>\n Sie weist den Eigenschaften ClientId <\/b>und ClientSecret <\/b>die Werte aus strClientID <\/b>und strClientSecret <\/b>zu und ruft dann die Funktion GetTokens <\/b>auf, um das Refresh-Token, das Access-Token und die Gültigkeitsdauer des Access-Tokens zu ermitteln.<\/p>\n War dieser Aufruf erfolgreich, liefert die Funktion GetTokensDLL <\/b>den Wert True <\/b>zurück, sodass die aufrufende Prozedur GetTokens <\/b>die Werte der Parameter strRefreshToken<\/b>, strAccessToken <\/b>und lngExpiresInSeconds <\/b>wie oben beschrieben in der Registry speichern kann (siehe Bild 3).<\/p>\n Bild 3: Vervollständigung der Informationen in der Registry<\/span><\/b><\/p>\n Das Access-Token ist genau eine Stunde gültig, und die Stunde ist manchmal schneller herum als man denkt. Deshalb benötigen wir noch eine weitere Funktion, mit der wir das Access-Token aktualisieren können. Diese benötigt nicht mehr die COM-DLL, sondern wir kommen hier mit einem direkten Aufruf der Rest-API von Google aus.<\/p>\n Wir verwenden wieder eine Prozedur und eine Funktion, wobei die Funktion den eigentlichen Zugriff auf die Rest-API kapselt. Die erste Prozedur heißt RefreshAccessToken <\/b>und kümmert sich um das Zusammenstellen der erforderlichen Daten und um die Auswertung des Ergebnisses der Funktion RefreshAccessTokenRestAPI<\/b>. Sie ermittelt als Erstes die Werte für die Client-ID, das Client-Secret und das aktuelle Refresh-Token aus der Registry (siehe Listing 3).<\/p>\n Listing 3: Die Prozedur RefreshAccessToken startet die Aktualisierung des Access-Tokens.<\/span><\/b><\/p>\n Dann ruft die die Funktion RefreshAccessTokenRestAPI <\/b>auf und übergibt einige Parameter, die teilweise erst von dieser Funktion gefüllt werden. Liefert dieser Aufruf den Wert True <\/b>zurück, werden die neuen Werte für die Registry-Einträge AccessToken <\/b>und TokenExpiresAt <\/b>gespeichert. Falls nicht, wertet die Funktion die zurückgegebenen Informationen aus und liefert eine Meldung wie beispielsweise in Bild 4.<\/p>\n Bild 4: Fehlermeldung<\/span><\/b><\/p>\n Die Funktion RefreshAccessTokenRestAPI <\/b>aus Listing 4 erstellt eine ServerXMLHTTP60<\/b>-Objekt und legt diverse Einstellungen für den Aufruf der Rest-API fest. Dazu gehören zum Beispiel der Content-Type, die Methode (POST<\/b>) und die zu verwendende URL, die wie folgt lautet:<\/p>\n Listing 4: Die Prozedur RefreshAccessTokenRestAPI aktualisiert das Access-Token.<\/span><\/b><\/p>\n Außerdem stellt sie in strData<\/b> die Parameter zusammen, die an die Rest-API übergeben werden sollen – die Client-ID, das Client-Secret und das Refresh-Token sowie den Typ refresh_token<\/b>, der angibt, dass wir das Access-Token aktualisieren wollen.<\/p>\n Und als scope <\/b>beziehungsweise Gültigkeitsbereich geben wir https:\/\/www.googleapis.com\/auth\/calendar <\/b>an, was den lesenden und schreibenden Zugriff auf den kompletten Kalender erlaubt. Hier können wir auch andere Werte wie hier angegeben eintragen:<\/p>\n Danach verwendet die Funktion die Open<\/b>-Methode des ServerXMLHTTP60<\/b>-Objekts und übergibt die URL. Dann stellt sie verschiedene Header<\/b>-Eigenschaften ein und ruft schließlich die send<\/b>-Methode auf und übergibt den Inhalt von strData<\/b>. Das Ergebnis liefert das ServerXMLHTTP60<\/b>-Objekt mit der Eigenschaft Response<\/b>.<\/p>\n Daneben erhalten wir den Status des Aufrufs. Lautet dieser 200<\/b>, hat der Aufruf funktioniert und wir können den das Ergebnis aus strResponse <\/b>mit der ParseJSON<\/b>-Funktion auslesen und in das Objekt objJSON <\/b>schreiben. Auf dieses greifen wir dann über die entsprechende Syntax zu – mehr zum Umfang mit JSON-Dateien unter Mit JSON arbeiten <\/b>(www.vbentwickler.de\/361<\/b>). Dabei füllen wir die Rückgabeparameter strAccessToken <\/b>und lngExpiresIn<\/b>. Die Funktion liefert in diesem Fall den Wert True <\/b>zurück.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Client-ID und Client-Secret holen und speichern<\/h2>\n
Public Sub <\/span>SetClientData()\r\n SaveAppSetting \"ClientID\", \"xxxxxx\"\r\n SaveAppSetting \"ClientSecret\", \"yyyyyy\"\r\nEnd Sub<\/span><\/pre>\n![\"Informationen](\"..\/fileadmin\/_temp_\/2023_06\/pic_410_009.png\")
<\/p>\nToken für den Zugriff auf die Rest-API holen<\/h2>\n
\n
Public Sub <\/span>GetTokens()\r\n Dim <\/span>strClientID As String<\/span>\r\n Dim <\/span>strClientSecret As String<\/span>\r\n Dim <\/span>strRefreshToken As String<\/span>\r\n Dim <\/span>strAccessToken As String<\/span>\r\n Dim <\/span>lngExpiresInSeconds As Long<\/span>\r\n strClientID = GetAppSetting(\"ClientID\")\r\n If <\/span>Len<\/span>(strClientID) = 0 Then<\/span>\r\n MsgBox<\/span> \"Keine ClientID in der Registry gefunden. Verwende die Prozedur SetClientData.\", vbOKOnly + _\r\n vbExclamation, \"ClientID fehlt\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n strClientSecret = GetAppSetting(\"ClientSecret\")\r\n If <\/span>Len<\/span>(strClientSecret) = 0 Then<\/span>\r\n MsgBox<\/span> \"Kein ClientSecret in der Registry gefunden. Verwende die Prozedur SetClientData.\", vbOKOnly + _\r\n vbExclamation, \"ClientSecret fehlt\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>GetTokensDLL(strClientID, strClientSecret, strRefreshToken, strAccessToken, lngExpiresInSeconds) Then<\/span>\r\n SaveAppSetting \"RefreshToken\", strRefreshToken\r\n SaveAppSetting \"AccessToken\", strAccessToken\r\n SaveAppSetting \"TokenExpiresAt\", DateAdd(\"s\", lngExpiresInSeconds, Now)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>GetTokensDLL(strClientID As String<\/span>, _\r\n strClientSecret As String<\/span>, Optional<\/span> strRefreshToken As String<\/span>, _\r\n Optional<\/span> strAccessToken As String<\/span>, _\r\n Optional<\/span> lngExpiresInSeconds As Long<\/span>) _\r\n As String<\/span>\r\n On Error Resume Next<\/span>\r\n Dim <\/span>objGoogleOAuth2 As <\/span>amvGoogleOAuth2.GoogleOAuth2\r\n Set<\/span> objGoogleOAuth2 = New<\/span> amvGoogleOAuth2.GoogleOAuth2\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> \"Die .NET-DLL amvGoogleOAuth2.dll ist nicht korrekt installiert.\" & vbCrLf<\/span> & vbCrLf<\/span> & Err.Number _\r\n & \" \" & Err.Description\r\n Exit Function<\/span>\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n With<\/span> objGoogleOAuth2\r\n .ClientID = strClientID\r\n .ClientSecret = strClientSecret\r\n If <\/span>.GetTokens(strRefreshToken, strAccessToken, lngExpiresInSeconds) = True<\/span> Then<\/span>\r\n GetTokensDLL = True<\/span>\r\n End If<\/span>\r\n End With<\/span>\r\n End Function<\/pre>\n![\"Vervollständigung](\"..\/fileadmin\/_temp_\/2023_06\/pic_410_010.png\")
<\/p>\nAccess-Token aktualieren<\/h2>\n
Public Sub <\/span>RefreshAccessToken()\r\n Dim <\/span>strClientID As String<\/span>\r\n Dim <\/span>strClientSecret As String<\/span>\r\n Dim <\/span>lngExpiresIn As Long<\/span>\r\n Dim <\/span>strRefreshToken As String<\/span>\r\n Dim <\/span>strAccessToken As String<\/span>\r\n Dim <\/span>lngStatus As Long<\/span>\r\n Dim <\/span>strErrorTitle As String<\/span>\r\n Dim <\/span>strErrorDescription As String<\/span>\r\n strClientID = GetAppSetting(\"ClientID\")\r\n strClientSecret = GetAppSetting(\"ClientSecret\")\r\n strRefreshToken = GetAppSetting(\"RefreshToken\")\r\n If RefreshAccessTokenRestAPI(strClientID, strClientSecret, strRefreshToken, strAccessToken, lngExpiresIn, _\r\n lngStatus, strErrorTitle, strErrorDescription) = True<\/span> Then\r\n SaveAppSetting \"AccessToken\", strAccessToken\r\n SaveAppSetting \"TokenExpiresAt\", DateAdd(\"s\", lngExpiresIn, Now)\r\n Else<\/span>\r\n MsgBox<\/span> \"Status: \" & lngStatus & vbCrLf<\/span> & vbCrLf<\/span> & \"Fehler: \" & strErrorTitle & vbCrLf<\/span> & vbCrLf<\/span> _\r\n & \"Beschreibung: \" & strErrorDescription, vbCr<\/span>itical + vbOKOnly, \"Fehler bei Refresh Token\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Fehlermeldung\"](\"..\/fileadmin\/_temp_\/2023_06\/pic_410_011.png\")
<\/p>\nFunktion zum Aktualisieren des Access-Tokens per Rest-API<\/h2>\n
Public Function <\/span>RefreshAccessTokenRestAPI(strClientID As String<\/span>, strClientSecret As String<\/span>, _\r\n strRefreshToken As String<\/span>, strAccessToken As String<\/span>, lngExpiresIn As Long<\/span>, Optional<\/span> lngStatus As Long<\/span>, _\r\n Optional<\/span> strErrorTitle As String<\/span>, Optional<\/span> strErrorDescription As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>objHTTP As <\/span>ServerXMLHTTP60\r\n Set<\/span> objHTTP = New<\/span> MSXML2.ServerXMLHTTP60\r\n Dim <\/span>strData As String<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strMethod As String<\/span>\r\n Dim <\/span>strContentType As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n Dim <\/span>objJSON As Object<\/span>\r\n strContentType = \"application\/x-www-form-urlencoded\"\r\n strMethod = \"POST\"\r\n strURL = \"https:\/\/accounts.google.com\/o\/oauth2\/token\"\r\n strData = \"client_id=\" & strClientID & \"&client_secret=\" & strClientSecret & \"&refresh_token=\" & strRefreshToken _\r\n & \"&grant_type=refresh_token&scope=https:\/\/www.googleapis.com\/auth\/calendar\"\r\n With<\/span> objHTTP\r\n .Open strMethod, strURL, False<\/span>\r\n .setRequestHeader \"Accept\", strContentType\r\n .setRequestHeader \"Content-Type\", strContentType\r\n .send strData\r\n strResponse = .responseText\r\n Select Case <\/span>.status\r\n Case <\/span>200\r\n RefreshAccessTokenRestAPI = True<\/span>\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n strAccessToken = objJSON.Item(\"access_token\")\r\n lngExpiresIn = objJSON.Item(\"expires_in\")\r\n Case Else<\/span>\r\n RefreshAccessTokenRestAPI = False<\/span>\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n lngStatus = .status\r\n strErrorTitle = objJSON.Item(\"error\")\r\n strErrorDescription = objJSON.Item(\"error_description\")\r\n End Select<\/span>\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\nhttps:\/\/accounts.google.com\/o\/oauth2\/token<\/pre>\n
https:\/\/developers.google.com\/calendar\/api\/auth?hl=de<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t