调用FRC函数问题,在线等-CSDN论坛

来自 : CSDN技术社区 发布时间：2021-03-24

调用RFC中的\"RFC_READ_TABLE\"方法，读取R/3系统中CSKT（原価センタテキスト）表中的数据。
方便起见，这里用VBA实现此功能。其CLICK事件代码如下：
PrivateSubCommandButton1_Click()
ll=ConnectSAP()
ll=CallSAPFUNC()
EndSub
FunctionConnectSAP()
DimstrStatusAsString
SetoFunction=CreateObject(\"SAP.LogonControl.1\")
SetoConnection=oFunction.NewConnection
oConnection.Client=\"300\"
oConnection.Language=\"JA\"
oConnection.user=\"DEV00018\"
oConnection.Password=\"XUYT0520\"
oConnection.ApplicationServer=\"10.10.2.91\"
oConnection.SystemNumber=\"00\"
result=oConnection.Logon(0,True)
Ifresult TrueThen
SetoFunction=Nothing
SetoConnection=Nothing
strStatus=\"NoaccesstoR/3System\"
Else
strStatus=\"SAPR/3AccessOK\"
EndIf
ll=MsgBox(strStatus,,\"LOGIN\")
EndFunction
FunctionCallSAPFUNC()
DimoConnectionAsObject
DimofunAsObject
DimfuncAsObject
Setofun=CreateObject(\"SAP.FUNCTIONS\")\'FUNCTIONNAME
Setofun.Connection=oConnection
Setfunc=ofun.Add(\"RFC_READ_TABLE\")
func.Exports(\"QUERY_TABLE\")=\"CSKT\"\'TABLENAME
Iffunc.Call=TrueThen
Setoline=func.tables.Item(\"DATA\")
Row=oline.rowcount
Sheet2.Cells(1,1)=\"クライアント\"
Sheet2.Cells(1,2)=\"言語キー\"
Sheet2.Cells(1,3)=\"管理領域\"
Sheet2.Cells(1,4)=\"原価センタ\"
Sheet2.Cells(1,5)=\"有効終了日\"
Sheet2.Cells(1,6)=\"一般名称\"
Sheet2.Cells(1,7)=\"テキスト\"
Sheet2.Cells(1,8)=\"マッチコード使用の検索条件\"
i=2
DoWhilei =100
Sheet2.Cells(i,1)=Mid(Trim(oline.Value(i,1)),1,3)
Sheet2.Cells(i,2)=Mid(Trim(oline.Value(i,1)),4,1)
Sheet2.Cells(i,3)=Mid(Trim(oline.Value(i,1)),5,4)
Sheet2.Cells(i,4)=Mid(Trim(oline.Value(i,1)),9,10)
Sheet2.Cells(i,5)=Mid(Trim(oline.Value(i,1)),19,8)
Sheet2.Cells(i,6)=Mid(Trim(oline.Value(i,1)),27,20)
Sheet2.Cells(i,7)=Mid(Trim(oline.Value(i,1)),47,40)
Sheet2.Cells(i,8)=Mid(Trim(oline.Value(i,1)),87,26)
i=i+1
Loop
EndIf
ll=MsgBox(\"ENDPROCESS\",,\"END\")
EndFunction