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

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

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

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

 

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

 

Dim oExcelSheet As New OWC11.SpreadsheetClassDim strOptionNodeInnerXml As String = String.Empty '暂存Option节点的xml数据Dim xmlDoc As New XmlDocumentxmlDoc.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).InnerXmlEnd IfstrXml = xmlDoc.DocumentElement.OuterXmloExcelSheet.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文件将保持原来的设计格式。