Excel파일 Data 가져오기-2

Excel파일 Data 가져오기-1 에 이은 응용까진 아니지만..연습

id_pw.xls 내용
=============== 
      A       B
1    ID1    PW1
2    ID2    PW2 
=============== 

Window("Notepad").Restore

Set objexcel = createobject("excel.application")

Set objWorkbook = objExcel.WorkBooks.Open("C:\QTPW\id_pw.xls")

Set objDriverSheet = objWorkbook.Worksheets("Sheet1")

columncount = objDriverSheet.usedrange.columns.count

rowcount = objDriverSheet.usedrange.rows.count

for i = 1 to rowcount

rowname = objDriverSheet.cells(1,i)

if rowname = rowname  then

for j = 1 to columncount

fieldvalue = objDriverSheet.cells(i,j)

If j = 1 Then

Window("Notepad").WinEditor("Edit").Type "ID : "

else

Window("Notepad").WinEditor("Edit").Type "Password : "

End If

Window("Notepad").WinEditor("Edit").Type fieldvalue

Window("Notepad").WinEditor("Edit").Type  micReturn 

            Wait 1

next

end if

next

 Window("Notepad").Activate