

BAPI BAPI_USER_GETLISTからテーブルの値を読み込んで、ユーザが存在しているかどうか判断したいです。

[code]

    Public Function CheckUser(iCurrentRow As Integer) As Boolean
        Dim oBAPIUserCheck As Object   'BAPIオブジェクト格納用変数
        Dim iCntReturn As Integer   'Returnオブジェクト確認用ループ変数
        Dim oSelection As Object    'Returnオブジェクト確認用ループ変数
    
        'ユーザ登録BAPIオブジェクト生成
        Set oBAPIUserCheck = oRFC.Add("BAPI_USER_GETLIST")
    
        'Import ParameterをBAPIオブジェクトにセット
         oBAPIUserCheck.Exports("WITH_USERNAME") = "X"
    
        Set oSelection = oBAPIUserCheck.Tables("SELECTION_EXP")
        oSelection.Item("PARAMETER").Value("PARAMETER") = "USERNAME"
    
[/code]

ここで、掲題のエラーが発生しました。なぜでしょうか。


CC BY-SA 4.0
2019-05-23T09:04:39.863
55193
2020-04-12T15:02:10.287
2019-05-24T02:15:38.030
32986
34431
question
vba excel
オブジェクトは、このプロパティまたはメソッドをサポートしていません (エラー 438)


質問に書かれたコードで、oRFCは定義されていません。

それなのに、「oRFC.Add("BAPI_USER_GETLIST")」と定義されていないoRFCのAdd（oRFC.Addとなっているので、AddはoRFCのプロパティかメソッドだと推測される）を使おうとした為、  
『このプロパティまたはメソッドをサポートしていません』というエラーになったのです。

プログラムの最初のほうで、oRFCにAddというメソッドもしくはプロパティを持つクラスのオブジェクトを代入しておけば、このようなエラーは起きません。


CC BY-SA 4.0
2019-05-24T05:21:17.623
55218
2019-05-24T05:21:17.623
217
55193
answer