QTP10에 해당되는 글 3건
2011.12.22 :: Excel파일 Data 가져오기-2
2011.12.22 :: Excel파일 Data 가져오기-1
2011.12.22 :: 메모장에 작성한 For문 연습
2011. 12. 22. 21:39 :: 삽질/QTP
Excel파일 Data 가져오기-1 에 이은 응용까진 아니지만..연습
id_pw.xls 내용
===============
A B
1 ID1 PW1
2 ID2 PW2
===============
Window("Notepad").Restore
Set objexcel = createobject("excel.application")
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
Window("Notepad").Activate
2011. 12. 22. 21:36 :: 삽질/QTP
구글링을 통한 몇 시간의 삽질 끝에 동작 확인 완료;;
sample.xls 내용
===============
A B
1 1A 1B
2 2A 2B
===============
Window("Notepad").Restore
sample.xls 내용
===============
A B
1 1A 1B
2 2A 2B
===============
Window("Notepad").Restore
Set objexcel = createobject("excel.application")
Set objWorkbook = objExcel.WorkBooks.Open("C:\QTPW\sample.xls")
Set objDriverSheet = objWorkbook.Worksheets("Sheet1")
columncount = objDriverSheet.usedrange.columns.count
rowcount = objDriverSheet.usedrange.rows.count
Window("Notepad").WinEditor("Edit").Type "총 Column 수 = "
Window("Notepad").WinEditor("Edit").Type columncount
Window("Notepad").WinEditor("Edit").Type micReturn
Window("Notepad").WinEditor("Edit").Type "총 Row 수 = "
Window("Notepad").WinEditor("Edit").Type rowcount
Window("Notepad").WinEditor("Edit").Type micReturn
for i = 1 to columncount
columnname = objDriverSheet.cells(i,1)
if columnname = columnname then
for j = 1 to rowcount
fieldvalue = objDriverSheet.cells(j,i)
Window("Notepad").WinEditor("Edit").Type "현 Column 값 = "
Window("Notepad").WinEditor("Edit").Type i
Window("Notepad").WinEditor("Edit").Type micReturn
Window("Notepad").WinEditor("Edit").Type "현 Row 값 = "
Window("Notepad").WinEditor("Edit").Type j
Window("Notepad").WinEditor("Edit").Type micReturn
Window("Notepad").WinEditor("Edit").Type fieldvalue
Window("Notepad").WinEditor("Edit").Type micReturn
next
end if
next
Window("Notepad").Activate
2011. 12. 22. 21:34 :: 삽질/QTP
QTP로 레코딩 기능 적응 후에
처음으로 직접 작성해본 간단한 함수
a = 0
처음으로 직접 작성해본 간단한 함수
a = 0
Window("Notepad").Activate
For i = 1 to 5
a = a+2
Window("Notepad").WinEditor("Edit").Type a
Window("Notepad").WinEditor("Edit").Type micReturn
Next