在Visual Basic中读取Google sheets API

Imports Google.Apis.Auth.OAuth2
Imports Google.Apis.Sheets.v4
Imports Google.Apis.Sheets.v4.Data

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim credential As GoogleCredential = GoogleCredential.FromFile("path_to_credentials.json")
        Dim service As SheetsService = New SheetsService(New BaseClientService.Initializer() With {
            .HttpClientInitializer = credential,
            .ApplicationName = "Your Application Name"
        })

        Dim spreadsheetId As String = "your_spreadsheet_id"
        Dim range As String = "Sheet1!A1:B2"
        Dim request As SpreadsheetsResource.ValuesResource.GetRequest = service.Spreadsheets.Values.Get(spreadsheetId, range)
        Dim response As ValueRange = request.Execute()

        Dim values As IList(Of IList(Of Object)) = response.Values
        If values IsNot Nothing AndAlso values.Count > 0 Then
            For Each row As IList(Of Object) In values
                For Each col As Object In row
                    Console.WriteLine(col)
                Next
            Next
        Else
            Console.WriteLine("No data found.")
        End If
    End Sub
End Class