Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
477 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【77897】SAP汎用モジュールのEXPORTパラメータ設定方法について ゆら 16/1/28(木) 16:45 質問[未読]
【77898】Re:SAP汎用モジュールのEXPORTパラメータ設... 独覚 16/1/29(金) 9:22 発言[未読]
【77899】Re:SAP汎用モジュールのEXPORTパラメータ設... ゆら 16/1/29(金) 10:06 お礼[未読]
【80166】Re:SAP汎用モジュールのEXPORTパラメータ設... 吉田 18/10/3(水) 16:40 回答[未読]
【77897】SAP汎用モジュールのEXPORTパラメータ設...
質問  ゆら  - 16/1/28(木) 16:45 -
引用なし
パスワード
   VBAからSAPに接続して汎用モジュールを実行する際に、
EXPORTパラメータにテーブルデータ型のものがあり、
このパラメータの設定方法がわからず大変困っております。

TABLESパラメータであれば、
Set OPTIONS　　 = rfcFunc.Tables("TAB_NAME")
のように取り扱えると思うのですが、、、

もしご存知の方がいらっしゃいましたら、ぜひともお助けいただけましたら
大変助かります！！

何卒よろしくお願い申し上げます(_ _)
【77898】Re:SAP汎用モジュールのEXPORTパラメータ...
発言  独覚  - 16/1/29(金) 9:22 -
引用なし
パスワード
   こちらの掲示板もエクセルの学校もマルチポストは容認されていますがこちらの掲示板の
基本方針として

>別のサイト（掲示板）にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。
>当質問箱では、マルチポストは原則認めています。
>つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。
>しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。
>そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。
>質問しっぱなし、というのはモラルに反します。
>「解決したからいいや」というのではありません。
>また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。

とされています。
なのでどことマルチポストをしているかの宣言をお願いします。
【77899】Re:SAP汎用モジュールのEXPORTパラメータ...
お礼  ゆら  - 16/1/29(金) 10:06 -
引用なし
パスワード
   お返事およびご指摘いただきどうもありがとうございます。
初めての利用でルールがわかっておらず、大変申し訳ありませんでした。

エクセル質問掲示板、というところに同様の質問を記載いたしましたが、
まだ解決しておりません。

一方でSAP側の仕様を調査したところ、おそらくですがTABLESパラメータを
使用しないとテーブル型のデータは取り扱えなさそうでしたので、
その方針に切り替えようと思います。

お騒がせして申し訳ありませんでした。
どうもありがとうございました。
【80166】Re:SAP汎用モジュールのEXPORTパラメータ...
回答  吉田  - 18/10/3(水) 16:40 -
引用なし
パスワード
   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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
477 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free