Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57478 / 76807

←次へ　｜　前へ→


	【24066】Re:book1のマクロをbook2で実行させる方法

Jaka - 05/4/11(月) 15:37 -


	引用なし

	パスワード

こんにちは。

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

他ブックのマクロを実行

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

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

0 hits

▼

【24062】book1のマクロをbook2で実行させる方法 hoge 05/4/11(月) 14:58