HI I have recorded below script. Its some i do every day. The special i always need to set the date 2 days back from present day. And here we count Monday to Friday. So if i did Friday it would 2 working days back and the date should be Thursday.
Is there any way to change the script so it always go 2 days back from present day and here we talk working days Monday to Friday.
Please have a look below.
Thanks in advance.
Abjac
The date i put in manually in the recorded script part of below complete script. .
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = "16.02.2016"
The completed recorded script.
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "0"
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").doubleClickCurrentCell
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = "16.02.2016"
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").setFocus
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").caretPosition = 10
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 7
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").setCurrentCell -1,""
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 0
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").selectAll
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").pressToolbarContextButton "&MB_EXPORT"
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").selectContextMenuItem "&SEND"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,0]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").setFocus
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,1]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").setFocus
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,2]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").setFocus
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,3]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").setFocus
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,4]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").setFocus
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,5]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").setFocus
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,6]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").setFocus
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").text = "" + vbCr + ""
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subOBJECT:SAPLSO33:2300/tabsSO33_TAB1/tabpTAB1/ssubSUB1:SAPLSO33:2100/cntlEDITOR/shellcont/shell").setSelectionIndexes 0,0
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/ctxtSOS04-L_ADR_NAME[0,7]").text = "xxxxxx.xxx@xx.xxx.com"
session.findById("wnd[0]/usr/subSENDSCREEN:SAPLSO04:1020/subRECLIST:SAPLSO04:0103/tabsTAB_CONTROL/tabpREC/ssubSUB1:SAPLSO04:0150/tblSAPLSO04REC_CONTROL/cmbSOS04-L_ESC_DES[1,8]").setFocus
session.findById("wnd[0]/tbar[1]/btn[20]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").text = ""
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").setFocus
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR5:/HOAG/AK_POSTPROCESSING:2111/ctxtSO_AZDAT-HIGH").caretPosition = 0
session.findById("wnd[0]/usr/tabsTABSTRIP_ARBEITSVORRAT/tabpTAB_AKNB/ssub%_SUBSCREEN_ARBEITSVORRAT:/HOAG/AK_POSTPROCESSING:2011/subSUBSCR7:/HOAG/AK_POSTPROCESSING:2113/btn%_SO_KUKEY_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]").close
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").currentCellColumn = "TEXT"
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").selectedRows = "0"
session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").doubleClickCurrentCell
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/shellcont/shell/shellcont[1]/shell/shellcont[1]/shell").firstVisibleRow = 15