使用 Excel 调用 ABAP 系统的函数

Sub CommandButton1_Click()    Set R3 = CreateObject("SAP.Functions")    Set myConnction = R3.Connection    myConnction.ApplicationServer = "ag3.xxx.sap.corp"    myConnction.SystemNumber = 54    myConnction.Client = "001"    myConnction.user = "WANGJER"    myConnction.Password = "your password"        If myConnction.Logon(0, True) <> True Then      MsgBox "Logon failed"      Exit Sub    End If        Dim callFunctionModule As Object            Set callFunctionModule = R3.Add("TH_USER_LIST")    callFunctionModule.Call
    If callFunctionModule.Exception <> "" Then        MsgBox callFunctionModule.Exception    End If
    If callFunctionModule.Call = True Then        Dim result As Object        Set result = callFunctionModule.tables("USRLIST")        Dim aSheet As Worksheet        Dim sheetCol As New Collection        sheetCol.Add ActiveWorkbook.Sheets(1)        For Each aSheet In sheetCol            Dim i As Integer            i = 1            For Each user In result.Rows                                Client = user(2)                UserName = user(3)                Terminal = user(5)                IP = user(16)                aSheet.Cells(i, 1) = Client                aSheet.Cells(i, 2) = UserName                aSheet.Cells(i, 3) = Terminal                aSheet.Cells(i, 4) = IP                                i = i + 1            Next        Next    Else        MsgBox " Call Failed! error: "    End If'log off    myConnction.logoffEnd Sub