웹 테이블 내용을 qtp의 Excel 파일로 저장할 수 없습니다.

Question

내 코드가 기존 Excel 파일에 데이터를 저장하지 못합니다. 나는 엑셀 시트에 webtable에서 데이터를 복사하는 지역 창에서 볼 수 있지만 내가 당신 때문에 생각

path = "D:\Demo\TestData\Shopping_Cart.xls" 

set xl= CreateObject("excel.application") 
xl.workbooks.open(path) 
set nsheet=xl.sheets.item(1) 

Set BrwsrCheckOut= Browser("name:=Checkout","title:=Checkout - Internet Explorer").page("title:=Checkout","name:=.*") 
Set DesPrdChcKOut = Description.Create 
DesPrdChcKOut("html tag").value = "TABLE" 
DesPrdChcKOut("column names").value = "Product Name;Model;Quantity;Price;Total" 

For IteratorRow = 1 To 2 

'BrwsrCheckOut.WebTable(DesPrdChcKOut).RowCount Step 1 
     For IteratorCol = 1 To 3 

     'BrwsrCheckOut.WebTable(DesPrdChcKOut).ColumnCount(1) Step 1 

    val = BrwsrCheckOut.WebTable(DesPrdChcKOut).GetCellData(IteratorRow, IteratorCol) 

    Next 

Next 
'xl.Activeworkbook.saveAs "D:\Demo\TestData\Shopping_Cart.xls" 
xl.Activeworkbook.save 
nsheet.SaveAs("D:\Demo\TestData\Shopping_Cart.xls") 
xl.ActiveWorkbook.Close 



Set xl = nothing 
Set nsheet = nothing 

Answer 1

여기 아무 잘못 실종 경우 올바른하십시오 details.Could을 저장할 수 없습니다 ActiveWorkbook 메서드를 사용하고 있습니다. 활성 통합 문서 방법을 사용하는 경우 다른 통합 문서가 열리거나 활성 상태가 아니므로주의해야합니다.

이 모든 것을 피하려면 다음 방법이 더 좋은 방법 일 수 있습니다.

예

path = "D:\Demo\TestData\Shopping_Cart.xls" 
Set oxl = CreateObject("Excel.Application") 
Set wbk = oxl.workbooks.open(path) 
sheetname = "Output" ' You can also refer the sheet by index 
Set sheet = wbk.sheets(sheetname) 

'Logic to retreive the data from webtable 
for i=1 to number_of_rows 
    ' update the data in excel 
next 

'Save the workbook 
wbk.save 
wbk.close 
oxl.quit 

가 작동하는지 알려주세요.