Задача состоит в том, чтобы в VB Net из RecordSet получить xml и преобразовать его к формату xml, чтобы простатривать его в Excel (был выбран Excel2003). используя xslt-шаблон был получен файл xml. Но Excel его не открывает!! Что в нем не правильно не пойму. Помогите, пожалуйста.

Antonariy, спасибо за подсказку. Прилагаю xml, который без ошибок открывается в Excel. Но тем не менее прописанный стиль не отображается =(( Как это исправить ??


<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook
xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:html=" http://www.w3.org/TR/REC-html40">
<Styles>
<Style ss:ID="Default" ss:Name="Normal">
<Alignment ss:Vertical="Bottom" />
</Style>
<Style ss:ID="s21">
<Font x:CharSet="204" x:Family="Swiss" ss:Bold="1" />
<Interior ss:Color="#FFFF00" ss:Pattern="Solid" />
</Style>
</Styles>
<Worksheet ss:Name="spLoyal_GetDiagnosis">
<Table>
<Row>
<Cell ss:styleID="s21"><Data ss:Type="String">N_Pap</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">NameOrg</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">Kurator</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">Kurier</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">Date_Detection</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">KontLizo</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">OldValue</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">ValueName</Data></Cell>
<Cell ss:styleID="s21"><Data ss:Type="String">Comment</Data></Cell></Row>
<Row>
<Cell><Data ss:Type="String">4989</Data></Cell>
<Cell><Data ss:Type="String">Центр </Data></Cell>
<Cell><Data ss:Type="String">Иванов А.А.</Data></Cell>
<Cell><Data ss:Type="String">Воробьев</Data></Cell>
<Cell><Data ss:Type="String">2011-04-06T10:23:10.75+04:00</Data></Cell>
<Cell><Data ss:Type="String">Королев</Data></Cell>
<Cell><Data ss:Type="String">Среди ключевых сотрудников кадровых перестановок нет</Data></Cell>
<Cell><Data ss:Type="String">Уход, смена или приход ключевого сотрудника</Data></Cell>
<Cell><Data ss:Type="String">Автоматическое изменение параметра</Data></Cell>
</Row>
</Table>
</Worksheet>
</Workbook>