Excel VBA質問箱 IV

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

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


57403 / 76732 ←次へ | 前へ→

【24066】Re:book1のマクロをbook2で実行させる方法
回答  Jaka  - 05/4/11(月) 15:37 -

引用なし
パスワード
   こんにちは。

目安箱に書き込めなくなっちゃたので..。
(後で同じのを書き込みますけど)

他ブックのマクロを実行

この書き方だと、カレントディレクトリーを移動しておかないとエラーになる。

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'!マクロ名")

1 hits

【24062】book1のマクロをbook2で実行させる方法 hoge 05/4/11(月) 14:58 質問
【24066】Re:book1のマクロをbook2で実行させる方法 Jaka 05/4/11(月) 15:37 回答
【24080】Re:book1のマクロをbook2で実行させる方法 hoge 05/4/12(火) 0:12 お礼

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