Du bist wahrlich der Scriptman. Funktioniert perfekt
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlapp.visible = true
'schleife abarbeiten der Liste
LastLine = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").rowCount - 1
For i = 0 to LastLine
xlsheet.cells(i + 1,1).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "MATNR")
xlsheet.cells(i + 1,2).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "Feldname")
xlsheet.cells(i + 1,3).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "Feldname")
xlsheet.cells(i + 1,4).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "Feldname")
xlsheet.cells(i + 1,5).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "Feldname")
xlsheet.cells(i + 1,6).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "Feldname")
xlsheet.cells(i + 1,7).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "Feldname")
xlsheet.cells(i + 1,8).value = session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").getcellvalue (i, "Feldname")
next
' Spaltenbreite autofit
For s = 1 to 8
if s = 1 then
xlsheet.Columns(s).select
xlapp.selection.numberformat = "0"
end if
xlsheet.Columns(s).EntireColumn.AutoFit
next
xlsheet.cells(i + 1,1).select
Gibt es eine Möglichkeit den Feldnamen mittels zahl anzusprechen? getcellvalue (1, 1) versteht er nicht.
Bearbeitet vom Benutzer
vor 14 Jahre
|
Grund: Nicht angegeben