With
session
.findById(
"wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell"
).selectedNode =
"F00182"
.findById(
"wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell"
).doubleClickNode
"F00182"
.findById(
"wnd[0]/tbar[1]/btn[17]"
).press
.findById(
"wnd[1]/tbar[0]/btn[8]"
).press
.findById(
"wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell"
).currentCellRow = 1
.findById(
"wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell"
).selectedRows =
"1"
.findById(
"wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell"
).doubleClickCurrentCell
.findById(
"wnd[0]/tbar[1]/btn[8]"
).press
.findById(
"wnd[1]/tbar[0]/btn[0]"
).press
.findById(
"wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell"
).setCurrentCell 8,
"TEXT"
.findById(
"wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell"
).selectedRows =
"8"
.findById(
"wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell"
).contextMenu
.findById(
"wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell"
).selectContextMenuItem
"&XXL"
.findById(
"wnd[1]/tbar[0]/btn[0]"
).press
.findById(
"wnd[1]/usr/ctxtDY_PATH"
).SetFocus
.findById(
"wnd[1]/usr/ctxtDY_PATH"
).caretPosition = 8
.findById(
"wnd[1]"
).sendVKey 4
.findById(
"wnd[2]/usr/ctxtDY_PATH"
).Text =
"T:\\Pfad1"
.findById(
"wnd[2]"
).sendVKey 4
.findById(
"wnd[3]/usr/ctxtDY_FILENAME"
).Text =
"Export-File.XLSX"
.findById(
"wnd[3]/usr/ctxtDY_FILENAME"
).caretPosition = 38
.findById(
"wnd[3]/tbar[0]/btn[11]"
).press
.findById(
"wnd[2]"
).Close
.findById(
"wnd[1]/usr/ctxtDY_FILENAME"
).SetFocus
.findById(
"wnd[1]/usr/ctxtDY_FILENAME"
).caretPosition = 43
.findById(
"wnd[1]/tbar[0]/btn[11]"
).press
End
With
Workbooks(
"Export-File.xlsx"
).Close SaveChanges:=
True
End
Sub