Question

我正在尝试创建一个asp.net VB应用程序。读取我的googlesheets并捕获工作表数据。我已经完成了注册过程，并且能够访问我的googlesheets并列出标题名称。现在，我想读取一张纸的范围，并在纸的每个字段中保存/打印数据。

这是我用来阅读标题的代码：对此的任何帮助都将很棒。

    Dim CLIENT_ID As String = "xxxxxxxx-uqendrdt7cp8ko779q8tvrcogqrsg04c.apps.googleusercontent.com"
    Dim CLIENT_SECRET As String = "xxxxxxxxxxxxxx"
    Dim SCOPE As String = "https://spreadsheets.google.com/feeds https://docs.google.com/feeds"
    Dim REDIRECT_URI As String = "urn:ietf:wg:oauth:2.0:oob"

    Dim parameters As New OAuth2Parameters()
    parameters.ClientId = CLIENT_ID
    parameters.ClientSecret = CLIENT_SECRET
    parameters.RedirectUri = REDIRECT_URI
    parameters.Scope = SCOPE

    Try
        Dim authorizationUrl As String = OAuthUtil.CreateOAuth2AuthorizationUrl(parameters)
        parameters.AccessCode = "xxxxxxxxxx"
        OAuthUtil.GetAccessToken(parameters)
        Dim accessToken As String = parameters.AccessToken

        Dim requestFactory As New GOAuth2RequestFactory(Nothing, "MySpreadsheetIntegration-v1", parameters)
        Dim service As New SpreadsheetsService("MySpreadsheetIntegration-v1")
        service.RequestFactory = requestFactory
        Dim query As New SpreadsheetQuery()
        query.Title = ""

        Dim feed As SpreadsheetFeed = service.Query(query)
        ' Iterate through all of the spreadsheets returned
        For Each entry As SpreadsheetEntry In feed.Entries
            ' Print the title of this spreadsheet to the screen
            Response.Write(entry.Title.Text)
            Response.Write("<br><br>")

        Next
    Catch ex As Exception
        MessageBox.Show(String.Concat("An error occurred ", ex.Message))
    End Try

用VB.net阅读googlesheets

0 个答案: