download [Excel VBA] Làm việc với Google Sheets từ Excel

Private Sub Append()
    Dim objGoogleOAuth2 As GoogleOAuth2
    Set objGoogleOAuth2 = GetSession
    Dim arrValues(0 To 1, 0 To 0) As Variant
    arrValues(0, 0) = "Hello"
    arrValues(1, 0) = "Visual Basic for Applications"
    Dim objValueRange As ValueRange
    Set objValueRange = New ValueRange
    With objValueRange
        .MajorDimension = "ROWS"
        .Values = arrValues
    End With
    objGoogleOAuth2.Spreadsheets.Values.ValueInputOption = "USER_ENTERED"
    objGoogleOAuth2.Spreadsheets.Values.SpreadsheetId = "15Daerao2Xtt9ByJoVZVnE_CE9LXxma1UQa9VlkDoW9Q"
    objGoogleOAuth2.Spreadsheets.Values.Range = "Sheet1!A1"
    Debug.Print objGoogleOAuth2.Spreadsheets.Values.Append(objValueRange).Updates.UpdatedRows
End Sub

Private Function GetSession() As GoogleOAuth2
    Dim objGoogleOAuth2 As GoogleOAuth2
    Set objGoogleOAuth2 = New GoogleOAuth2
    On Error Resume Next
    With objGoogleOAuth2
        .ApplicationName = "GoogleSheetsAPI"
        .ClientID = "ClientId"
        .ClientSecret = "ClientSecret"
        .Scopes = Array("https://www.googleapis.com/auth/spreadsheets")
        .AuthorizeOAuth2
    End With
    If Err.Number = 0 Then
        Set GetSession = objGoogleOAuth2
    Else: Err.Clear
    End If
End Function

Private Sub LogOut()
    Dim objGoogleOAuth2 As GoogleOAuth2
    Set objGoogleOAuth2 = New GoogleOAuth2
    On Error Resume Next
    With objGoogleOAuth2
        .ApplicationName = "GoogleSheetsAPI"
        .ClientID = "ClientId"
        .ClientSecret = "ClientSecret"
        .LogOut Refresh_Token
    End With
End Sub