看起来类似下面的代码。

'调用BAPI RFC_GET_TABLE_ENTRIES的示例
 显式期权
 作为SAPFunctions的公共函数OCX.SAPFunctions
 私人LogonControl为SAPLogonCtrl.SAPLogonControl
 专用R3Connection作为SAPLogonCtrl.Connection
 Dim Func作为SAPFunctionsOCX.Function
 将公用iTABLE_NAME作为SAPFunctionsOCX.Parameter
 将公共eNUMBER_OF_ENTRIES作为SAPFunctionsOCX.Parameter
 公共tENTRIES作为SAPTableFactoryCtrl.Table

 私人子主要（）
     Dim ix作为整数
     昏暗retcd为布尔
     昏暗的SilentLogon为布尔值
     设置LogonControl = CreateObject（" SAP.LogonControl.1"）
     设置函数= CreateObject（" SAP.Functions"）
     设置TableFactory = CreateObject（" SAP.TableFactory.1"）
     设置R3Connection = LogonControl.NewConnection
     R3Connection.Client =" 000"
     R3Connection.ApplicationServer =" 192.168.69.111"
     R3Connection.Language =" EN"
     R3Connection.User ="开发者"
     R3Connection.Password =" 19920607"
     R3Connection.System =" WAS"
     R3Connection.SystemID =" $ WebAS"
     R3Connection.SystemNumber =" 18"
     R3Connection.UseSAPLogonIni =假
     SilentLogon =真
    
     retcd = R3Connection.Logon（0，SilentLogon）
     如果retcd <> True，则MsgBox"登录失败"：退出子
     Functions.Connection = R3Connection
    
     设置Func = Functions.Add（" RFC_GET_TABLE_ENTRIES"）
     设置iTABLE_NAME = Func.Exports（" TABLE_NAME"）
     设置eNUMBER_OF_ENTRIES =功能导入（" NUMBER_OF_ENTRIES"）
     设置tENTRIES = Func.Tables（" ENTRIES"）
     iTABLE_NAME.Value =" TCURR"
     功能通话
     调试打印eNUMBER_OF_ENTRIES
     对于ix = 1到tENTRIES.RowCount
         调试打印tENTRIES（ix，1）
     下一个
     R3Connection.logoff
 结束Sub