0

有人可以告诉我我的 vb.net 代码有什么问题吗？

        Dim service As New SpreadsheetsService("MySpreadsheetIntegration-v1")

    ' TODO: Authorize the service object for a specific user (see other sections)
    service.setUserCredentials("xxx@gmail.com", "1234")
    ' Instantiate a SpreadsheetQuery object to retrieve spreadsheets.

    ' Instantiate a SpreadsheetQuery object to retrieve spreadsheets.
    Dim query As New SpreadsheetQuery()

    ' Make a request to the API and get all spreadsheets.
    Dim feed As SpreadsheetFeed = service.Query(query)

    ' TODO: There were no spreadsheets, act accordingly.
    If feed.Entries.Count = 0 Then
    End If

    ' TODO: Choose a spreadsheet more intelligently based on your
    ' app's needs.
    Dim spreadsheet As SpreadsheetEntry = DirectCast(feed.Entries(0), SpreadsheetEntry)
    Console.WriteLine(spreadsheet.Title.Text)

    ' Get the first worksheet of the first spreadsheet.
    ' TODO: Choose a worksheet more intelligently based on your
    ' app's needs.
    Dim wsFeed As WorksheetFeed = spreadsheet.Worksheets
    Dim worksheet As WorksheetEntry = DirectCast(wsFeed.Entries(0), WorksheetEntry)

    ' Define the URL to request the list feed of the worksheet.
    Dim listFeedLink As AtomLink = worksheet.Links.FindService(GDataSpreadsheetsNameTable.ListRel, Nothing)

    ' Fetch the list feed of the worksheet.
    Dim listQuery As New ListQuery(listFeedLink.HRef.ToString())
    Dim listFeed As ListFeed = service.Query(listQuery)

    ' Create a local representation of the new row.
    Dim row As New ListEntry()
        row.Elements.Add(New ListEntry.Custom() With { _
            Key .LocalName = "ldVorname", _
            Key .Value = "Joe" _
        })

    ' Send the new row to the API for insertion.
    service.Insert(listFeed, row)
4

2 回答 2

1

您的代码看起来正确。确保您已添加两个导入。

导入 Google.GData.Client
导入 Google.GData.Spreadsheets

于 2013-10-14T18:59:42.947 回答
0

我怀疑你做了一个自动 c# 到 vb.net 的转换。删除Key代码中的语法，如下所示：

   ' Create a local representation of the new row.
    Dim row As New ListEntry()
    row.Elements.Add(New ListEntry.Custom() With { _
        .LocalName = "ldVorname", _
        .Value = "Joe" _
    })

但是，运行此代码仍然会提示GDataRequestException我们很抱歉，发生服务器错误。请稍等，然后尝试重新加载您的电子表格。

于 2013-12-13T07:32:04.533 回答