|
ご教授有難うございます。
<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も自己流です。
そもそも論的な部分で誤った認識をしている可能性もあると思います。
お手数を煩わせてしまう懸念もありますが、
可能な範囲でご教授願います。
でわ。
|
|