小編給大家分享一下如何使用Excel調(diào)用ABAP系統(tǒng)的函數(shù)，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

成都創(chuàng)新互聯(lián)2013年至今，先為黑龍江等服務建站，黑龍江等地企業(yè)，進行企業(yè)商務咨詢服務。為黑龍江企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。

效果：在excel里創(chuàng)建一個按鈕，開發(fā)一些VB script，可以連接指定的ABAP系統(tǒng)并執(zhí)行系統(tǒng)里的ABAP function module。

在這里例子里執(zhí)行ABAP系統(tǒng)的函數(shù)TH_USER_LIST, 把當前系統(tǒng)登錄的用戶取回來顯示在excel里。

該按鈕的點擊響應函數(shù)實現(xiàn)代碼：

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.logoff
End Sub

以上是“如何使用Excel調(diào)用ABAP系統(tǒng)的函數(shù)”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學習更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

本文名稱：如何使用Excel調(diào)用ABAP系統(tǒng)的函數(shù)
網(wǎng)站鏈接：http://jinyejixie.com/article6/ppegig.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供手機網(wǎng)站建設、營銷型網(wǎng)站建設、全網(wǎng)營銷推廣、外貿(mào)網(wǎng)站建設、定制開發(fā)、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)