|
Rows.Add
行番号を指定して、値を入れる
Set oFunction = oRFC.Add("BAPI_USER_ACTGROUPS_ASSIGN")
' Functionにパラメータを渡す
' -- パラメータ名
oFunction.exports("USERNAME") = Cells(11 , user_column)
' パラメータの代入
oFunction.tables("ACTIVITYGROUPS").Rows.Add
oFunction.tables("ACTIVITYGROUPS").Value(1, "AGR_NAME") = Cells(11 , role_01_column)
If IsEmpty(Cells(11 , role_02_column)) = False Then
' パラメータの代入
oFunction.tables("ACTIVITYGROUPS").Rows.Add
oFunction.tables("ACTIVITYGROUPS").Value(2, "AGR_NAME") = Cells(11 , role_02_column)
End If
oFunction.Call
|
|