VBA报错438：对象不支持该属性或方法，求SAP脚本代码修复帮助

问题原因 #

你的代码触发Error 438（对象不支持该属性或方法），核心原因是误用了Application对象——SAP GUI脚本的应用实例是通过SapGuiAuto.GetScriptingEngine获取的Appl对象，而非VBA内置的Application，后者没有Children属性。另外原代码的连接逻辑不符合你需要的「workspace→Brazil→PRD」路径要求，需要调整。

修复后完整代码 #

Sub ConnectToSAP()
    Dim SapGuiAuto As Object
    Dim Appl As Object
    Dim Connection As Object
    Dim session As Object
    Dim Wkspc As Object
    Dim Folder As Object
    Dim ConnItem As Object
    Dim found As Boolean
    
    ' 获取SAP GUI自动化对象
    Set SapGuiAuto = GetObject("SAPGUI")
    Set Appl = SapGuiAuto.GetScriptingEngine
    
    ' 遍历Workspace找到Brazil文件夹
    found = False
    For Each Wkspc In Appl.Workspaces
        For Each Folder In Wkspc.Children
            If Folder.Name = "Brazil" Then
                ' 在Brazil文件夹中找到PRD连接并打开
                For Each ConnItem In Folder.Children
                    If InStr(ConnItem.Name, "PRD") > 0 Then
                        Set Connection = ConnItem.OpenConnection(True)
                        found = True
                        Exit For
                    End If
                Next ConnItem
                If found Then Exit For
            End If
        Next Folder
        If found Then Exit For
    Next Wkspc
    
    ' 获取会话对象
    If Not IsObject(Connection) Then
        MsgBox "未找到指定的PRD连接路径", vbExclamation
        Exit Sub
    End If
    Set session = Connection.Children(0)
    
    ' 绑定事件（仅在WScript环境下生效，VBA中可注释）
    ' If IsObject(WScript) Then
    '    WScript.ConnectObject session, "on"
    '    WScript.ConnectObject Appl, "on"
    ' End If
    
    ' 后续可添加业务操作代码示例
    ' session.findById("wnd[0]/tbar[0]/okcd").Text = "SE16"
    ' session.findById("wnd[0]").sendVKey 0
End Sub

关键说明 #

• 变量声明：显式声明所有对象变量，避免VBA默认变体类型引发的隐式错误
• 路径遍历逻辑：通过Appl.Workspaces遍历工作区，定位「Brazil」文件夹后，再找到含「PRD」标识的连接项并打开
• 对象修正：全程使用SAP脚本专属的Appl对象，替代VBA内置的Application，彻底解决属性不兼容问题
• WScript适配：VBA环境下无需事件绑定代码，可直接注释；若在VBScript环境运行则保留

内容的提问来源于stack exchange，提问作者Roberio Pinheiro