在Microsoft Office System中使用ADO.NET数据集(五)
2024-07-10 13:03:17
供稿：网友
将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
