僅1列QTP從Excel中填充數據

我想捕捉從Excel文件中只有1列，並把所有的數據在測試盒狀僅1列QTP從Excel中填充數據

AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF

並點擊保存按鈕，這個數據AAA，BBB等是在一個Excel工作表列中我想將其導入到網頁的文本框中並處理此文本，我嘗試了一個for循環，但是數據來自excel在同一行輸入並在新數據進入時被刪除

以下是代碼段我想寫的任何幫助讚賞：

感謝

Browser("Web Browser").Page("Some Web page").Link("Relavent Link").Click 


Datatable.Import "C:\QTP\CLIMS\ABOT\Default.xls" 
RowCount = Datatable.GetSheet("Global").GetRowCount 
CurrentRow = DataTable.GetSheet("Global").GetCurrentRow 




runcontrols() 
Function runcontrols() 
For runctrl = 1 To RowCount 
Browser("Web Browser").Page("Some Web page").WebEdit("Running Link").SetDataTable("RunControlsA", dtGlobalSheet) 
DataTable.SetNextRow 
Next 
End Function

我的excel文件有3列，我試圖從一列進口

來源

2013-03-11 Uska

Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open("C:\Example.xls") 
Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets(1) 
intColCount = 5 

For ctr = 1 To intColCount 
    temp = temp + " " + currentWorkSheet.Cells(1,ctr).Value 
Next

enter image description here