在QTP的文本框中添加excel / csv文件中的值

Question

在QTP的文本框中添加excel / csv文件中的值

大家好，

我手边有一个excel文件，我试图将字段复制到文本框中， 该文件在多个列和行中具有多个值。 我正在选择单行并尝试将这些值插入文本框中，但无论何时在文本框中输入值，下一个值都会覆盖当前值，最后只有一个值。 我希望所有值都反映在该文本框中，以便我可以单击提交按钮：

代码如下：

Set myxl = createobject("excel.application")
myxl.Workbooks.Open "J:\Example1.csv"
myxl.Application.Visible = true

set mysheet = myxl.ActiveWorkbook.Worksheets("Example1")

'Get the max row occupied in the excel file 
Row=mysheet.UsedRange.Rows.Count
'Get the max column occupied in the excel file 
 Col=mysheet.UsedRange.columns.count
    For  i= 2 to Row
    For j= 2 to Col
        Msgbox  mysheet.cells(i,j).value
        Browser("Some site").Page("Some page").WebEdit("Text Box").Set     mysheet.cells(i,j).value + vbLf 

        j = j+7
        Next
    Next
'Save the Workbook
myxl.ActiveWorkbook.Save
'Close the Workbook
myxl.ActiveWorkbook.Close
'Close Excel
myxl.Application.Quit

Set mysheet =nothing
Set myxl = nothing

以下是文本框中我想要的文件列

！[原始文本字段我想运行并提交] [3]

如您所见，文本框仅接受文件中的最后一个值，并删除前两个值。 我想捕获文件中的所有值并将它们放在文本框中

提前谢谢你 --Umesh

Answer 1

    ...
    'Get the max column occupied in the excel file 
     Col=mysheet.UsedRange.columns.count
        For  i= 2 to Row
          For j= 2 to Col
            input = input + mysheet.cells(i,j).value + vbLf        
            j = j+7
          Next
        Next
        Browser("Some site").Page("Some page").WebEdit("Text Box").Set input
    'Save the Workbook
    ...