qtp 导入excel文件

1.代码    

Dim  datapath
datapath="F:\vcg.xls"
DataTable.ImportSheet datapath,"heshuo","Action1"
cont=DataTable.GetSheet("Action1").GetRowCount
print cont

代码很简单，运行的时候取出的行数一直为0.

2.解决方法

（1）我刚开始的版本为wps，转换为下面的格式，还是不行。

（2）后来安装了office2010，然后在保存为上面的格式，第一次运行还是为0.然后把.xls关闭，重新运行则可以。

（3）我在.xls文件了明明输入了4行数据，但是输出的是3.

（4）于是打断点，看结果，如下图所示。

仔细一看却时是3行数据，因为第一行输入的1代替了A，这样就对上了。

注意：（1）action1里面的数据导入后是不保存的  只是在导入过程中会显示。

            （2） 导入的表最好不用Global  容易导致死循环