Ajout de valeurs à partir d'un file excel / csv dans une textbox dans QTP

Bonjour à tous,

J'ai un file Excel en main à partir duquel j'essaie de copyr des champs dans une textbox, le file a plusieurs valeurs dans plusieurs colonnes et lignes. Je sélectionne une seule ligne et j'essaie d'insert ces valeurs dans la textbox, mais chaque fois que la valeur est input dans la textbox, la valeur suivante écrase la valeur actuelle et il n'y a qu'une seule valeur à la fin. Je veux que toutes les valeurs soient reflétées dans cette textbox afin que je puisse cliquer sur le button de soumission:

Le code est le suivant:

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

Et la suite est la colonne de file que je souhaite dans la textbox

Colonne du fichier que je dois importer dans la zone de texte

C'est ce qui se passe lorsque je cours le programme. Les premières 2 valeurs sont supprimées

! [Champ de text d'origine que je souhaite exécuter et soumettre] [3]

Comme vous pouvez le voir, la textbox accepte uniquement la dernière valeur du file et les 2 précédents sont supprimés. Je veux capturer toutes les valeurs du file et les placer dans la textbox

Merci d'avance –Umesh

     ...
     'Obtenez la colonne max occupée dans le file Excel 
      Col = mysheet.UsedRange.columns.count
         Pour i = 2 à Row
           Pour j = 2 à Col
             input = input + mysheet.cells (i, j) .value + vbLf        
             j = j + 7
           Prochain
         Prochain
     Browser ("Some site"). Page ("Some page"). WebEdit ("Text Box"). Définir l'input
     'Enregistrer le classur
     ...