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 itemContent
Next

一直在報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