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

Question

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

大家好，

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

代码如下：

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]

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

提前谢谢你--Umesh

Answer 1

    ...
    '获取excel文件中占用的最大列
     Col=mysheet.UsedRange.columns.count
        对于 i= 2 到行
          对于 j= 2 到 Col
            输入 = 输入 + mysheet.cells(i,j).value + vbLf        
            j = j+7
          下一个
        下一个
        Browser("Some site").Page("Some page").WebEdit("Text Box").Set input
    '保存工作簿
    ...