Excel파일 Data 가져오기-1

구글링을 통한 몇 시간의 삽질 끝에 동작 확인 완료;;

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