在Excel中，通過(guò)使用VBA程序，可以方便地實(shí)現(xiàn)XML文件的添加。實(shí)際上，通過(guò)VBA代碼向工作表導(dǎo)入XML文檔數(shù)據(jù)需要完成。具體的程序代碼：
Sub CreateXMLList()
Dim xMap As XmlMap
Dim objList As ListObject
Dim arrPath As Variant
Dim mPath As XPath
Dim i As Integer
On Error Resume Next
arrPath=Array("學(xué)號(hào)","姓名","性別","出生年月",_
"身份證號(hào)","籍貫","電話","地址") '架構(gòu)元素名
Set xMap=ThisWorkbook.XmlMaps("學(xué)生信息架構(gòu)映射") '獲取架構(gòu)映射
If xMap Is Nothing Then '。
圖2 程序運(yùn)行的結(jié)果
提示
從上面的結(jié)果中可以看出，Excel文件中已經(jīng)加載了映射的名稱(chēng)和元素，并且將這些元素都填充到Excel的列表中。
3、添加導(dǎo)入數(shù)據(jù)的代碼。在程序代碼的最后添加。
圖3 運(yùn)行結(jié)果
注意
通過(guò)錄制宏并不能獲取導(dǎo)入XML文檔數(shù)據(jù)的全部代碼，其中指定映射區(qū)域的步驟將不會(huì)獲取任何宏代碼。因而讀者在使用該方法時(shí)，需要自己手動(dòng)完成這些代碼的設(shè)置工作。
