|
こんにちは。
目安箱に書き込めなくなっちゃたので..。
(後で同じのを書き込みますけど)
他ブックのマクロを実行
この書き方だと、カレントディレクトリーを移動しておかないとエラーになる。
ChDir "Auto_Openに引数渡し.xlsのあるディレクトリ名"
RunMkr = "Auto_Openに引数渡し.xls!" & 引数
1、Functionなどで返り値を必要とする場合
tt = Application.Run(RunMkr, ThisWorkbook.Name)
2、引数渡すだけの場合。
Application.Run (RunMkr), ThisWorkbook.Name
*********************************
カレントディレクトリを変更しない方法。
1、引数を渡す場合
RPth = "'" & "Auto_Openに引数渡し.xlsのあるディレクトリ名"
Application.Run (RPth & "\Auto_Openに引数渡し.xls'!マクロ名"), "引数1"
2、引数を渡さないただの実行
RPth = "'" & "Auto_Openに引数渡し.xlsのあるディレクトリ名"
Application.Run (RPth & "\Auto_Openに引数渡し.xls'!マクロ名")
|
|