For the very good autothors of EXCEL 2007 VBA
I am working with nodes like this
Dim NodeXml As IXMLDOMNode
and I refer to <c> tags on a sheet1.xml file. I would obtain the attributes r and t of such nodes. I "feel" that the Attributes property should give the answer but, alas, it is rejected.
How can I use it?

By the way, I obtain this aim with personal functions, where CellaXml is xml property of a node:

Function SharedCell(CellXml As String) As Boolean
  'Indicates if the cell refers to a sharedStrings
  Dim Pos2Ang As Integer
  Pos2Ang = InStr(1, CellXml, "><")
  If Right(CellXml, 2) = "/>" Then
    SharedCell = False
    Exit Function
  End If
  If Mid(CellXml, Pos2Ang - 5, 1) = "t" Then SharedCell = True
End Function

Function CellRef(CellXml As String)
  Dim Pos0 As Integer 'Position of "http://" after "//"
  Dim CellXmlParz As String 'CellXml after "http://"
  Pos0 = InStr(1, CellXml, "http://") + 6
  CellXmlParz = Right(CellXml, Len(CellXml) - Pos0)
  Dim Pos1 As Integer 'Position of refer. 's letter in CellXmlParz.
  Dim Pos2 As Integer 'Position of last refer. 's digit in CellXmlParz.
  Pos1 = InStr(1, CellXmlParz, "r=") + 3
  Pos2 = InStr(Pos1, CellXmlParz, " ") - 1
  LungRif = Pos2 - Pos1
    CellRef = Mid(CellXmlParz, Pos1, Pos2 - Pos1)
End Function

It works (till now) but Attributes should be the rational, "official" solution, dont' you agree. But how is it to be used?
Thanks

By Gianni Giaccaglini.
the "Attributes" problem is not so important: I found XPath filters they can solve it:
Set NodiXmlRif = DocXml.selectNodes("//sheetData/row/c[@t='s']/@r")
Set NodiXmlVal = DocXml.selectNodes("//sheetData/row/c[@t='s']/v")

These instructions refer to <c> (cell) tag of a sheet1.xml OOXML file. The filter [@t='s'] in this case selects only the c nodes with t property = "s", then the sub-nodes /@r and /v gives the reference property @r (e.g. "A1", "B1" etc.) and the values v, making it possible take into account the refs and the index (v) of sharedString.xml file.
All unfiltered nodes can be obtained by the following codes:
Set NodiXmlRif = DocXml.selectNodes("//sheetData/row/c/@r")
Set NodiXmlVal = DocXml.selectNodes("//sheetData/row/c/v")

(see http://blog.shareoffice.it/giannigiaccaglini, too; it is in italian but the entire routines in two version should be clear, I 'll hope)