效果：在excel里創建一個按鈕，開發一些VB script，可以連接指定的ABAP系統并執行系統里的ABAP function module。

在這里例子里執行ABAP系統的函數TH_USER_LIST, 把當前系統登錄的用戶取回來顯示在excel里。

該按鈕的點擊響應函數實現代碼：

Sub CommandButton1_Click()Set R3 = CreateObject("SAP.Functions")Set myConnction = R3.ConnectionmyConnction.ApplicationServer = "ag3"myConnction.SystemNumber = 54myConnction.Client = "001"myConnction.user = "WANGJER"myConnction.Password = "your password"If myConnction.Logon(0, True) <> True ThenMsgBox "Logon failed"Exit SubEnd IfDim callFunctionModule As ObjectSet callFunctionModule = R3.Add("TH_USER_LIST")callFunctionModule.CallIf callFunctionModule.Exception <> "" ThenMsgBox callFunctionModule.ExceptionEnd IfIf callFunctionModule.Call = True ThenDim result As ObjectSet result = callFunctionModule.tables("USRLIST")Dim aSheet As WorksheetDim sheetCol As New CollectionsheetCol.Add ActiveWorkbook.Sheets(1)For Each aSheet In sheetColDim i As Integeri = 1For Each user In result.RowsClient = user(2)UserName = user(3)Terminal = user(5)IP = user(16)aSheet.Cells(i, 1) = ClientaSheet.Cells(i, 2) = UserNameaSheet.Cells(i, 3) = TerminalaSheet.Cells(i, 4) = IPi = i + 1NextNextElseMsgBox " Call Failed! error: "End If 'log offmyConnction.logoff End Sub

要獲取更多Jerry的原創技術文章，請關注公眾號"汪子熙":

總結

以上是生活随笔為你收集整理的使用Excel调用ABAP系统的函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。