QTP获取EXCEl数据

DataTable.ImportSheet "datatable.xls","G:\datatable.xls","Golbal"'获取总行数rcount=DataTable.GetSheet("username").GetRowCount  For i=0 to rcount      datatable.SetCurrentRow(i+1)   itemContent=DataTable.GetSheet(2).getparameter("username").value msgbox itemContentNext一直在报The DataTable.GetSheet operation failed. The username sheet does not exist.Line (5): "rcount=DataTable.GetSheet("username").GetRowCount". 和The Sheet.GetParameter operation failed. The <username> column does not exist.Line (8): "itemContent=DataTable.GetSheet(2).getparameter("username").value".错误。

你确定你的Excel有username这哥sheet，报错就是说没有找到username这个sheet
用我的方法试试：
'读取excel
Public Function Read_Excel(pathway,sheetname,x,y)
Dim srcData,srcDoc,ret
set srcData = CreateObject("Excel.Application")
srcData.Visible = True
set srcDoc = srcData.Workbooks.Open(pathway)
srcDoc.Worksheets(sheetname).Activate
ret = srcDoc.Worksheets(sheetname).Cells(x,y).value
srcData.Workbooks.Close
'Window("text:=Microsoft Excel").Close
Read_Excel = ret
End Function

ExValue=Read_Excel("C:\Cowen'work\a.xls","sheet1",1,1)
msgbox ExValue

'返回DataTable
Function getExcelData(filepath,datatablename)
datatable.AddSheet(datatablename)
datatable.ImportSheet filepath,"Sheet1",datatablename
getExcelData=datatable
End Function
'返回总行数
Function getRowCount(filepath,datatablename)
'msgbox datatablename
datatable.AddSheet(datatablename)
datatable.ImportSheet filepath,"Sheet1",datatablename
rowcount = datatable.GetSheet(datatablename).GetRowCount
getRowCount=rowcount
End Function

脚本：
Dim i,rowcount,filepath,datatablename
filepath = "d:\data\设备类型管理.xls"'测试数据文件
datatablename = "设备类型管理"'QTP字典管理Action_datatable名称
set datatable = getExcelData(filepath,datatablename)'将getExcelData函数返回值赋值给变量datatable
rowcount = getRowCount(filepath,datatablename)'将getRowCount函数返回值赋值给变量rowcount

For i = 1 to rowcount
datatable.SetCurrentRow i
wait(2)
.WebEdit("html id:=txt_Name","name:=txt_Name").Set datatable("Name","设备类型管理")
wait(2)
.WebEdit("html id:=txt_Code","name:=txt_Code").Set datatable("Code","设备类型管理")
wait(2)
.WebEdit("html id:=txt_Remark","name:=txt_Remark").Set datatable("Remark","设备类型管理")
wait(2)
.webButton("html id:=btn_Create","value:=新增").Click
With.Dialog("来自网页的消息")
if .WinButton("确定").Exist(1) Then
.WinButton("确定").Click
Reporter.ReportEvent micPass,"Step1","设备类型新增成功"
else
Reporter.ReportEvent micPass,"Step1","设备类型新增失败"
End If
End With
Next