如何通过VBA在excel单元格中返回SAP错误信息？

Sub GetSAPErrorMessage()
    Dim sapApp As Object
    Dim sapConn As Object
    Dim sapSession As Object
    Dim sapError As Object
    Dim sapErrorMessage As String
    
    ' 创建SAP连接
    Set sapApp = CreateObject("Sapgui.ScriptingCtrl")
    Set sapConn = sapApp.OpenConnection("SAP Logon")
    Set sapSession = sapConn.Children(0)
    
    ' 执行SAP操作，例如执行一个事务码
    ' ...
    
    ' 检查是否有错误发生
    If sapSession.Info.System.Messages.Count > 0 Then
        ' 获取最后一个错误信息
        Set sapError = sapSession.Info.System.Messages.Item(sapSession.Info.System.Messages.Count)
        sapErrorMessage = sapError.MessageText
    Else
        sapErrorMessage = "No SAP error message found."
    End If
    
    ' 将错误信息写入Excel单元格
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = sapErrorMessage
    
    ' 关闭SAP连接
    sapConn.CloseSession (False)
    Set sapSession = Nothing
    Set sapConn = Nothing
    Set sapApp = Nothing
End Sub