主题：[求助]如何用代码导入XML文件

如何用代码导入XML文件

请各位帮帮忙

文件样本：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:135.rar

内容如下：
<?xml version="1.0" encoding="UTF-8"?><report xmlns="http://fitech-report.com/smis" xmlns:xsi="http://www.w3.org/2001/XMLSchema" reportlayer="MAIN" reporttype="POINT"><common><sign><fitechFiller>lll</fitechFiller><fitechChecker>fff</fitechChecker><fitechPrincipal>zzz</fitechPrincipal></sign><fitechTitle>G01统计表</fitechTitle><fitechRange>汇总数据</fitechRange><fitechUnit>万元</fitechUnit><fitechCurrency>人民币</fitechCurrency><fitechSubtitle>G01统计表</fitechSubtitle><fitechVersion>1010</fitechVersion><fitechSubmitYear>2010</fitechSubmitYear><fitechSubmitMonth>9</fitechSubmitMonth></common><data><cellRow>6</cellRow><cellCol>D</cellCol><cellValue>1643.47</cellValue><cellType>浮点型

 

</cellType></data><data><cellRow>86</cellRow><cellCol>F</cellCol><cellValue>111085.51</cellValue><cellType>浮点型

 

</cellType></data><data><cellRow>87</cellRow><cellCol>D</cellCol><cellValue>84142.77</cellValue><cellType>浮点型

</cellType></data><data><cellRow>87</cellRow><cellCol>E</cellCol><cellValue>0.00</cellValue><cellType>浮点型

 

</cellType></data><data><cellRow>87</cellRow><cellCol>F</cellCol><cellValue>84142.77</cellValue><cellType>浮点型

</cellType></data></report>

各位朋友，帮帮忙吧！多谢了！

自己顶

Dim dt As Data.DataTable
dt.ReadXML("c:\data.xml")
Tables("窗口1_Table1").DataSource = dt

我试试

老大，真的不好意思，没领会要领，出现下列错误提示：

 

此主题相关图片如下：jt.png

Dim dt As New Data.DataTable
dt.ReadXML("c:\data.xml")
Tables("窗口1_Table1").DataSource = dt

老大，又出现了新的提示：

 

此主题相关图片如下：bd.png

 

文件如下：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目28.rar

你这个XML格式似乎是电子表格的，不是DataTable的，格式不一样，自然不能加载。

 

但是用系统菜单的XML导入功能可以导入。

 

既然用系统菜单的XML可以导入，我想就可以用代码实现。

 

老大您再费费心！