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