将DataSet作为XML导入到Excel工作表
Microsoft Office Excel 2003为XML提供了非常强大的支持,它允许你将工作簿保存为XML或者将XML数据源导入到工作簿。由于DataSet天生就序列化为XML,所以你可以非常容易的将它的数据导入到Excel中。导入步骤需要XML架构,这样Excel才能够将数据映射到工作簿的适当单元格,而DataSet自动提供了这个功能。事实上,这就是本文前面描述的GetDataSet方法的结尾处所添加的代码的功能,这些代码将DataSet对象的数据和架构写到磁盘上。
If bSaveSchema Then
''''Places the file in this app''''s bin directory
ds.WriteXmlSchema("Customers.xsd")
ds.WriteXml("Customers.xml")
End If
这段代码在应用程序的bin文件夹创建XML和架构文件。图5显示XML文件的结果。
图5:使用DataSet的WriteXml方法生成的Customers.xml文件
图6显示XML架构,也是在Internet Explorer显示。
图6:使用DataSet的WriteXmlSchema方法生成的Customers. xsd文件
这项技术也可以用在Excel中的一个新特性上,这个对象叫做ListObject,它是一个列表结构的新类型,本质上它提供数据的完整视图。结果列表显示在图7中。你可以单击标题行的下拉列表对整个列表数据进行筛选和排序。图中的XML源面板显示了该数据的架构,你可以通过修改该架构来决定列表中可以包含那些数据。
图7 使用XML架构映射以编程方式导入XML
BuildXMLMap子过程执行与BuildWorksheet相似的功能,但是它使用XML导入和映射来将数据从DataSet移动到Excel中。该过程接收一个DataSet作为其唯一参数,然后实例化Excel、添加一个工作簿,同事执行其他UI(用户界面)任务。例子中的工作簿名为Northwind Customers。当然,你可以将它替换为你自己的工作簿的名字。
Private Sub BuildXMLMap(ByVal ds As DataSet)
''''Create an instance of Excel 2003, add a workbook,
''''and let the user know what''''s happening
Dim xl As New Excel.Application
xl.Workbooks.Add()
xl.ActiveSheet.Name = "Northwind Customers"
xl.Visible = True
xl.Range("A1").Value = "Loading the DataSet...."
该过程直接从DataSet对象加载XML数据,但是没有任何方法可以直接从内存中读取其架构。因此这段代码使用.NET Framework Path 对象的GetFullPath方法为.XSD架构文件获取了一个完整路径和文件名。
Try
Dim sMap As String = System.IO.Path.GetFullPath("Customers.xsd")
然后,代码添加XML映射架构到当前活动工作簿的XmlMaps集合。Add方法的第一个参数是将要被映射的文件的位置,第二个参数是存储于集合中的这个映射的名字。代码设置了该映射的名字,以便在后面引用这个映射。
''''Add the map to the active workbook
''''You can only add a map from a disk file.
xl.ActiveWorkbook.XmlMaps.Add(sMap, _
[1] [2] 下一页 [聊天工具]Microsoft Office 2007简体中文版最新截图 [聊天工具]Office 2000 服务器扩展 [聊天工具]Office 2000应用技巧两则 [聊天工具]遭Adobe反对 Office 2007被迫放弃PDF支持 [聊天工具]Office 2007中的拼音输入法简单试用_办公软件_Off… [聊天工具]Office 2007 Beta2简体中文版开始内测_办公软件_O… [聊天工具]Office 2007有终极版 售价高达679美元_办公软件_O… [聊天工具]新手入门:Office 2003轻松安装 [聊天工具]WPS Office文档双面打印边距设置方法 [聊天工具]在WPS Office中打造自己的素材库
|