|
▼tomo さん:
こんにちは。
>どなたかよろしくお願いしたします。
>
>下記のようなコードについて,教えて下さい。
>
>sub test(a)
> If a = 1 then
> fname = "aaa.xls"
> Elseif a = 2 then
> fname = "bbb.xls"
> Else
> fname = "ccc.xls"
> End if
Application.run "'" & fname & "'!macro1"
'としてみてください
>End Sub
>
>例えば
>a = 1 の場合
> Application.run "'aaa.xls'!macro1"
>a = 2 の場合
> Application.run "'bbb.xls'!macro1"
>それ以外の場合
> Application.run "'ccc.xls'!macro1"
>となるようなコードを作成しています。
>
>
>変数を用いた場合の他のブックのマクロを実行させる方法を教えて下さい。
>Application.run でなくても Call でも構いません。
Callも参照設定するか
オブジェクトモジュールにコードを記述すれば可能ですが、
まっ、ここでは本意ではないのでまたの機会に・・・。
>
>説明が下手ですいません・・・
|
|