ado|数据
将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, _
"NorthwindCustomerOrders").Name _
= "NorthwindCustomerOrders_Map"
代码得到这个新建的XML映射的引用，将它保存为映射变量，然后添加一个ListObject到当前活动工作表。你所选择的列表面板列，本示例中是列A到J，包括标题行下面的许多行都是用来容纳数据的。
'Specify the cells where the mapped data should go upon import
Dim map As Excel.XmlMap = _
xl.ActiveWorkbook.XmlMaps("NorthwindCustomerOrders_Map")
xl.Range("A1", "J1").Select()
Dim list As Excel.ListObject = _
CType(xl.ActiveSheet, Excel.Worksheet).ListObjects.Add
下一步是映射XML数据的特定元素到列表的每个列。SetValue方法持有所使用的映射的引用，并使用一个XPath表达式来指示哪些元素保存在哪一列。下面的代码设置列A容纳CustomerID元素，然后设置该列标题为“Customer ID”。你可以设置以相同方式设置其他列的内容和标题。
list.ListColumns(1).XPath.SetValue(map, _
"/NorthwindCustomerOrders/Customers/CustomerID")
xl.Range("A1").Value = "Customer ID"
现在要设置ListObject的结构，因为下一步将导入XML数据。Import方法读取磁盘文件，并且这里使用ImportXml方法直接从DataSet 的GetXml方法中读取XML，并未将XML数据保存到磁盘上。该过程在最后打开“XML源”任务面板，方便你查看。
'Import the XML data
xl.ActiveWorkbook.XmlMaps("NorthwindCustomerOrders_Map"). _
ImportXml(ds.GetXml)
'Open the XML Source Task Pane
xl.DisplayXMLSourcePane(map)
Catch ex As Exception
End Try
End Sub