使用owc的spreadsheet导出Excel文件时，格式丢失的解决方法

在一次项目开发过程中，需要将查询结果导出成Excel文件。经过斟酌之后选择了使用Office的组建owc来进行开发。

由于导出文件的格式比较复杂，因此我首先制作Excel模板文件，并另存成xml格式。然后创建OWC11.SpreadsheetClass的对象，将数据导出。

导出过程中遇到一点麻烦，原来设定好的Excel格式在导出之后消失了。为了解决此问题，我采用了以下的办法，仅供参考！

1.在加载模板文件之后，将“WorksheetOptions”节点的内容暂存；

Dim oExcelSheet As New OWC11.SpreadsheetClass
Dim strOptionNodeInnerXml As String = String.Empty  '暂存Option节点的xml数据
Dim xmlDoc As New XmlDocument
xmlDoc.Load(Server.MapPath("~/App_Data/ABS19200.xml"))  '装载模板文件
'***由于spreadsheet读取Excel Xml文件后，一些Excel格式Tag将不再支持，因为会被滤掉
'这样，输出的文件将丢失页面格式。为了避免此现象，暂存WorksheetOptions节点的Innerxml。
Dim xmlOptionNode As XmlNodeList = xmlDoc.GetElementsByTagName("WorksheetOptions")
If xmlOptionNode IsNot Nothing Then
strOptionNodeInnerXml = xmlOptionNode.Item(0).InnerXml
End If
strXml = xmlDoc.DocumentElement.OuterXml
oExcelSheet.XMLData = strXml

2.利用上面创建的oExcelSheet对象进行文件写入操作；

3.完成数据写入之后，文件生成之前，插入下列代码。

'将spreadsheet输出的xml数据载入xmldocument，并且将前面暂存的格式数据复原
xmlDoc.LoadXml(oExcelSheet.XMLData)
Dim OptionNode As XmlNodeList = xmlDoc.GetElementsByTagName("x:WorksheetOptions")
OptionNode(0).InnerXml = strOptionNodeInnerXml

这样，原来经过导出时丢失的格式就会被重新写入，生成的Excel文件将保持原来的设计格式。