|
"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
上一页 [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中打造自己的素材库
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
