Excel VBA質問箱 IV

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

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


9483 / 76732 ←次へ | 前へ→

【72811】Re:ブック間で変数を共有したいのですが
質問  やまぐち  - 12/9/20(木) 18:43 -

引用なし
パスワード
   ご教授有難うございます。

<VBA試行錯誤で頭がオーバフロー状態です>
<本日は一時終了し、来週時間を見つけて再開する予定です>


Book1,Book2側ともに変数宣言して値をゲットする方法なのですね。
質問させて下さい。

1.アドイン名可変時の扱い
 アドインは機能追加を想定しファイル名に版数表現を付与しているため
 For Each myModule In AddInsでファイル名を取得しています。

 そこで、
 s = Application.Run("Book1.xls!GetVal")
 の箇所を、
 s = Application.Run(myModule.Name & "!" & "GetVal")

 としたのですが、見つからないとのエラーとなります。
 どの様な原因が考えられるでしょうか?


2.GetValの結果について
 s = Application.Run("Book1.xls!GetVal")
 の結果は、"ABC"と推測しているのですが、

 Book1.xls側で設定した複数の変数値をBook2.xlsで参照したい際は
 どの様に考えたら良いでしょうか?

 <例>
 Function GetVal() As String
   GetVal = a
   GetVal = b
   GetVal = c
 End Function

 ? = Application.Run("Book1.xls!GetVal") ←★ここが分からない


ちなみに、
3.他の方法も試行中です。
Book2.xls側でアドインブックを参照設定し、
VBAProject名.変数名でアドイン側の変数を参照する方法。

参照設定追加と削除はマクロ化し、アドイン側変数を参照出来たのですが、
Book2.xlsの本来仕様ではない実装と操作が必要で、
実装時に変数名の整合を気にかけないといけない事が気になってます。


----
アドイン化は、初トライであり、VBAも自己流です。
そもそも論的な部分で誤った認識をしている可能性もあると思います。
お手数を煩わせてしまう懸念もありますが、
可能な範囲でご教授願います。

でわ。
0 hits

【72807】ブック間で変数を共有したいのですが やまぐち 12/9/20(木) 13:24 質問
【72808】Re:ブック間で変数を共有したいのですが UO3 12/9/20(木) 14:04 発言
【72811】Re:ブック間で変数を共有したいのですが やまぐち 12/9/20(木) 18:43 質問
【72813】Re:ブック間で変数を共有したいのですが UO3 12/9/20(木) 20:20 発言
【72882】Re:ブック間で変数を共有したいのですが やまぐち 12/9/28(金) 12:50 お礼
【72812】Re:ブック間で変数を共有したいのですが ichinose 12/9/20(木) 20:03 発言
【72883】Re:ブック間で変数を共有したいのですが やまぐち 12/9/28(金) 12:57 質問
【72886】Re:ブック間で変数を共有したいのですが ichinose 12/9/28(金) 13:41 発言
【72896】Re:ブック間で変数を共有したいのですが やまぐち 12/10/3(水) 13:06 お礼
【72887】Re:ブック間で変数を共有したいのですが sasa 12/9/28(金) 19:56 回答
【72888】Re:ブック間で変数を共有したいのですが UO3 12/9/29(土) 16:36 発言
【72897】Re:ブック間で変数を共有したいのですが やまぐち 12/10/3(水) 15:10 お礼
【72901】Re:ブック間で変数を共有したいのですが sasa 12/10/3(水) 19:40 回答
【72903】Re:ブック間で変数を共有したいのですが やまぐち 12/10/4(木) 19:02 お礼
【72904】Re:ブック間で変数を共有したいのですが UO3 12/10/5(金) 7:18 発言
【72924】Re:ブック間で変数を共有したいのですが やまぐち 12/10/11(木) 12:43 お礼

9483 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free