在 python Spyder 3.3 中使用 SAP GUI vbs 脚本

Question

我有一个尝试打开 SAP GUI 应用程序的代码，在放入用户凭据后，它运行一个事务并在本地下载.xlsx文件。

在代码的第二部分，这是我在 SAP GUI 中记录并粘贴到 Spyder 中的确切.vbs脚本。

if not IsObject(application) Then ，我会在该行收到语法错误if not IsObject(application) Then ，如何解决？

注意：经过多次编辑后，我尝试使用与在 Spyder 中使用的相同的缩进。

< 导入库 >

    import win32com.client
    import sys
    import subprocess
    import time
    
    
    ##This function will Login to SAP from the SAP Logon window
    
    def saplogin():
    
        try:
    
            path = r"C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe"
            subprocess.Popen(path)
            time.sleep(10)
    
            SapGuiAuto = win32com.client.GetObject('SAPGUI')
            if not type(SapGuiAuto) == win32com.client.CDispatch:
                return
    
            application = SapGuiAuto.GetScriptingEngine
            if not type(application) == win32com.client.CDispatch:
                SapGuiAuto = None
                return
            connection = application.OpenConnection("=PR1 [Assembly & Test] router 1", True)
    
            if not type(connection) == win32com.client.CDispatch:
                application = None
                SapGuiAuto = None
                return
    
            session = connection.Children(0)
            if not type(session) == win32com.client.CDispatch:
                connection = None
                application = None
                SapGuiAuto = None
                return
    
            session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "UName"
            session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "Pass"
            session.findById("wnd[0]").sendVKey(0)
    ##This part is the SAP .vbs script which is recorded in the SAP and pasted here as-is: **>
            if not IsObject(application) Then ##here I get the invalid syntax error.

                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 = "SPT52"
            session.findById("wnd[0]/tbar[0]/btn[0]").press
    
            session.findById("wnd[0]").maximize
            session.findById("wnd[0]/usr/chkP_17REQS").selected = false
            session.findById("wnd[0]/usr/chkP_18REQS").selected = false
            session.findById("wnd[0]/usr/chkP_10REQS").selected = false
            session.findById("wnd[0]/usr/chkP_ENGINE").selected = false
            session.findById("wnd[0]/usr/chkP_DETAIL").selected = false
            session.findById("wnd[0]/usr/radRB_FILE").select
            session.findById("wnd[0]/usr/ctxtP_PLANT").text = "0010"
            session.findById("wnd[0]/usr/ctxtPD_SEL-LOW").text = "86A"
            session.findById("wnd[0]/usr/txtP_FDAY2").text = "0"
            session.findById("wnd[0]/usr/txtP_WEEK2").text = "52"
            session.findById("wnd[0]/usr/txtP_MONTH2").text = "0"
            session.findById("wnd[0]/usr/txtP_FDAY2").setFocus
            session.findById("wnd[0]/usr/txtP_FDAY2").caretPosition = 3
            session.findById("wnd[0]/tbar[1]/btn[8]").press
            session.findById("wnd[1]/usr/ctxtDY_PATH").setFocus
            session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 0
            session.findById("wnd[1]").sendVKey 4
            session.findById("wnd[2]").close
            session.findById("wnd[1]/usr/ctxtDY_PATH").text = "C:\Users\Documents\SAP\SAP GUI\"
            session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "SP032.xls"
            session.findById("wnd[1]/usr/ctxtDY_FILENAME").setFocus
            session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 8
            session.findById("wnd[1]/tbar[0]/btn[11]").press
            session.findById("wnd[1]/tbar[0]/btn[0]").press
            session.findById("wnd[0]/tbar[0]/btn[3]").press
    
        except:
              print(sys.exc_info()[0])
        finally:
              session = None
              connection = None
              application = None
              SapGuiAuto = None
    saplogin()



I did the changes after Sandra Rossi's comment as following but get a new error:

import win32com.client import sys import subprocess 导入时间

此功能将从 SAP 登录窗口登录到 SAP

try:

    path = r"C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe"
    subprocess.Popen(path)
    time.sleep(2)

    SapGuiAuto = win32com.client.GetObject('SAPGUI')
    if not type(SapGuiAuto) == win32com.client.CDispatch:
        return

    application = SapGuiAuto.GetScriptingEngine
    if not type(application) == win32com.client.CDispatch:
        SapGuiAuto = None
        return
    connection = application.OpenConnection("=PR1 [Assembly & Test] router 1", True)

    if not type(connection) == win32com.client.CDispatch:
        application = None
        SapGuiAuto = None
        return

    session = connection.Children(0)
    if not type(session) == win32com.client.CDispatch:
        connection = None
        application = None
        SapGuiAuto = None
        return

    session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "Uname"
    session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "Pass"
    session.findById("wnd[0]").sendVKey(0)

 


    session.findById("wnd[0]").resizeWorkingPane (98,16,False)
    session.findById("wnd[0]/tbar[0]/okcd").text = "SP032"
    session.findById("wnd[0]").sendVKey (0)
    session.findById("wnd[0]/usr/radP_MATL").select
    session.findById("wnd[0]/usr/chkP_LTPC").selected = False
    session.findById("wnd[0]/usr/ctxtS_FEVOR-LOW").text = "86A"
    session.findById("wnd[0]/usr/radP_SORT3").setFocus
    session.findById("wnd[0]/usr/radP_SORT3").select
    session.findById("wnd[0]/tbar[1]/btn[8]").press
    session.findById("wnd[0]/usr").verticalScrollbar.position = 1
    session.findById("wnd[0]/usr").verticalScrollbar.position = 2
    session.findById("wnd[0]/usr").verticalScrollbar.position = 3
    session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[2]").select
    session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select
    session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").setFocus
    session.findById("wnd[1]/tbar[0]/btn[0]").press
    session.findById("wnd[1]/usr/ctxtDY_PATH").text = "D:\86A"
    session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "SP032.txt"
    session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 9
    session.findById("wnd[1]/tbar[0]/btn[11]").press
    session.findById("wnd[0]/tbar[0]/btn[3]").press
    session.findById("wnd[0]/tbar[0]/btn[3]").press

登录（）

缩进错误：意外的缩进

注意：正如我在评论中提到的，我做了很多修改，但在最后一个之后仍然出现奇怪的错误 **IndentationError: unexpected unindent

Answer 1

一些简单的代码如方法调用或属性初始化在 VBScript 和 Python 中具有相同的语法，但其余的不兼容。

例如，您必须进行这些调整（摘自Stefan Schnell 博客文章）：

Python（等效的VBScript代码被注释掉）：

   #session.findById("wnd[0]").resizeWorkingPane 173, 36, 0
    session.findById("wnd[0]").resizeWorkingPane(173, 36, 0)
   #session.findById("wnd[0]/tbar[0]/okcd").text = "/nse16"
    session.findById("wnd[0]/tbar[0]/okcd").text = "/nse16"
   #session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]").sendVKey(0)
   #session.findById("wnd[0]/usr/ctxtDATABROWSE-TABLENAME").text = "TADIR"
    session.findById("wnd[0]/usr/ctxtDATABROWSE-TABLENAME").text = "TADIR"
   #session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]").sendVKey(0)
   #session.findById("wnd[0]/tbar[1]/btn[8]").press
    session.findById("wnd[0]/tbar[1]/btn[8]").press()

现在似乎甚至不需要没有有效 Python 语法的代码部分，因为您已经初始化了变量！ 这些是要从脚本中删除的以下几行：

        if not IsObject(application) Then ##here I get the invalid syntax error.

            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 

关于缩进问题，StackOverflow 中有很多问答。