Hi,
I try to use SAP script in PAD,It does not work and get error message as below:
C:\Users\U252414\AppData\Local\Temp\Robin\5fvbityrif2.tmp(19, 65) Microsoft VBScript compilation error: Unterminated string constant
Below is the SAP code, I just replace some field to variable ,which highlighted in red. Could you pls help check this issue.
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]/okcd").text = "/n/OPT/VIM_VA2 - VIM Analytics 7.50 "
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtS_LIFNR-LOW").text = "%Entity%"
session.findById("wnd[0]/usr/txtS_XBLNR-LOW").text = "%invoice%"
session.findById("wnd[0]/usr/ctxtS_BUKRS-LOW").text = "%Vendor%"
session.findById("wnd[0]/usr/ctxtS_BUKRS-LOW").setFocus
session.findById("wnd[0]/usr/ctxtS_BUKRS-LOW").caretPosition = 4
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/cntlCCTRL_MAIN/shellcont/shell/shellcont[0]/shell").pressToolbarButton "EXT004"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").setCurrentCell -1,"BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").selectColumn "BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").pressColumnHeader "BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").setCurrentCell -1,"BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").selectColumn "BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").pressColumnHeader "BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").setCurrentCell -1,"BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").selectColumn "BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").contextMenu
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").selectContextMenuItem "&FILTER"
session.findById("wnd[2]/usr/ssub%%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN001-LOW").text = "*VIM*"
session.findById("wnd[2]/usr/ssub%%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN001-LOW").caretPosition = 5
session.findById("wnd[2]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").currentCellColumn = "BITM_DESCR"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").selectedRows = "0"
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").contextMenu
session.findById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").selectContextMenuItem "%%ATTA_EXPORT"
session.findById("wnd[2]/usr/ctxtDY_PATH").text = "C:\Invoice list"
session.findById("wnd[2]/usr/ctxtDY_FILENAME").text = "%invoice%&%Entity%.PDF"
session.findById("wnd[2]/usr/ctxtDY_FILENAME").caretPosition = 19
session.findById("wnd[2]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[12]").press