- Код: Выделить всё
ReadXMLFile(ADom, Stream);
Stream.Position := 0;
try
XPathResult := EvaluateXPathExpression('/child::office:document-content/child::office:body/child::office:spreadsheet/child::table:table
/child::table:table-row/child::table:table-cell', ADom);
except
on E: Exception do
ShowMessage('', '', E.Message );
end;