After much tinkering I think I've sussed this myself. Didn't help
that I stupidly tested on several private documents & therefore
returned empty contents- and therefore much head scratching!
........added to the above
If Google_Worksheet_Available Then
Dim cellFeedLink As AtomLink =
GWorksheet.Links.FindService("http://schemas.google.com/spreadsheets/
2006#cellsfeed", Nothing)
Dim celquery As New
CellQuery(cellFeedLink.HRef.ToString())
Dim celfeed As CellFeed = GService.Query(celquery)
ListBox1.Items.Add("cellFeedLink.HRef.ToString()" &
" :=: " & cellFeedLink.HRef.ToString())
ListBox1.Items.Add(feed.Title)
ListBox1.Items.Add(GWorksheet.Title)
For Each curCell As CellEntry In celfeed.Entries
ListBox1.Items.Add(curCell.Cell.Row.ToString & "," &
curCell.Cell.Column.ToString & " :-: " & curCell.Cell.Value)
Next
End If
........
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Google Docs Data APIs" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/Google-Docs-Data-APIs?hl=en
-~----------~----~----~----~------~----~------~--~---
