Inhalt von Webtable kann nicht in Excel-Datei gespeichert werden. Qtp

Question

Mein Code speichert keine Daten in einer vorhandenen Excel-Datei. Ich kann von lokalen Fenster sehen, dass es Daten von einem webtable auf ein Excel-Blatt zu kopieren, kann aber nicht die details.Could sparen Sie richtig bitte, wenn ich etwas fehle hier falsch

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

Ich denke, es ist, weil Sie ist verwenden die ActiveWorkbook-Methode. Wenn Sie die Methode der aktiven Arbeitsmappe verwenden, müssen Sie sehr vorsichtig sein, dass keine andere Arbeitsmappe geöffnet/aktiver Status ist.

Um all dies zu vermeiden, könnte das Folgende ein besserer Ansatz sein.

Beispiel

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 

Lassen Sie mich wissen, ob es funktioniert.