Excel VBA質問箱 IV

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

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


12267 / 13644 ツリー ←次へ | 前へ→

【11421】Runメソッド ひろ 04/3/8(月) 23:24 お礼
【11427】Re:Runメソッド IROC 04/3/9(火) 8:52 回答

【11421】Runメソッド
お礼  ひろ  - 04/3/8(月) 23:24 -

引用なし
パスワード
   IROC様ご回答ありがとうございます。
Runメソッドで対応できるのですか!
たとえば、
ABook内のVBAProject.module1に「sub TEST(F1,F2)」
というサブルーチンがある場合、BBookのVBAProject.module1へ
sub CALL_TEST()
 Application.Run(PATH & "A.xls" & ".VBProject.module1.TEST,F1,F2)
end sub
*PATHはAbookの保存されている絶対PATHです。
と記述すればよいのでしょうか?
それとも、GetObjectでインスタンスをとってから、
sub CALL_TEST() 
  SET APP=GetObject(PATH & "A.xls")
  Application.Run("TEST",F1,F2)
end sub
とすればよいのでしょうか?
これから試してみます。
ありがとうございました。助かります。
(また、お聞きするかもしれませんが。。すみません)

【11427】Re:Runメソッド
回答  IROC  - 04/3/9(火) 8:52 -

引用なし
パスワード
   お返事は、ご質問された記事で「返信」するようお願い致します。

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