Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6719 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43632】ActiveVBProjectの他に指定方法は？ すこしづつ 06/10/20(金) 12:26 質問[未読]
【43633】Re:ActiveVBProjectの他に指定方法は？ Jaka 06/10/20(金) 12:42 発言[未読]
【43634】色々試してみましたが・・・ すこしづつ 06/10/20(金) 15:18 質問[未読]
【43636】Re:色々試してみましたが・・・ Jaka 06/10/20(金) 15:42 発言[未読]
【43637】Re:色々試してみましたが・・・ Kein 06/10/20(金) 16:14 回答[未読]
【43639】Re:色々試してみましたが・・・ すこしづつ 06/10/20(金) 16:52 お礼[未読]
【43632】ActiveVBProjectの他に指定方法は？
質問  すこしづつ  - 06/10/20(金) 12:26 -
引用なし
パスワード
   Application.VBE.ActiveVBProject.VBComponents.Import ("c:\kantmp\fm.bas")
として、ﾓｼﾞｭｰﾙをｲﾝﾎﾟｰﾄしようとしてますが、ActiveVBProjectが問題で、うまくいきませんので、教えて下さい。

上記のﾌﾟﾛｸﾞﾗﾑがあるAﾌﾞｯｸを開いて、次に異なるBﾌﾞｯｸを開いてＡﾌﾞｯｸのﾌﾟﾛｸﾞﾗﾑを実行すると、Bﾌﾞｯｸにﾌﾟﾛｸﾞﾗﾑがある場合に動作しません。

ActiveVBProjectではなく、Aﾌﾞｯｸを直接指定する方法とかないでしょうか。
宜しくお願い致します。
【43633】Re:ActiveVBProjectの他に指定方法は？
発言  Jaka  - 06/10/20(金) 12:42 -
引用なし
パスワード
   こんな感じのこと？
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=10752;id=excel
【43634】色々試してみましたが・・・
質問  すこしづつ  - 06/10/20(金) 15:18 -
引用なし
パスワード
   教えて頂いた物参考にあれこれ自分なりにやってみましたが、
知識、技術力不足で、わかりませんでした。すみませんが、再度
教えて下さい。

ﾌﾟﾛｸﾞﾗﾑはこれだけです。

Sub md_import()'Aﾌﾞｯｸ
Application.VBE.ActiveVBProject.VBComponents.Import ("c:\kantmp\fm文字比較.bas")
End Sub

AとBﾌﾞｯｸを同時に開いてAﾌﾞｯｸに上記ﾌﾟﾛｸﾞﾗﾑ、Bﾌﾞｯｸがｱｸﾃｨﾌﾞな状態で、Aﾌﾞｯｸの
ﾌﾟﾛｸﾞﾗﾑを起動して、Bﾌﾞｯｸにｲﾝﾎﾟｰﾄしたいのですが。
申し訳ないのですが、宜しくお願い致します。
【43636】Re:色々試してみましたが・・・
発言  Jaka  - 06/10/20(金) 15:42 -
引用なし
パスワード
   ▼すこしづつ さん：
>教えて頂いた物参考にあれこれ自分なりにやってみましたが、
>知識、技術力不足で、わかりませんでした。すみませんが、再度
>教えて下さい。
>
>ﾌﾟﾛｸﾞﾗﾑはこれだけです。
>
>Sub md_import()'Aﾌﾞｯｸ
>Application.VBE.ActiveVBProject.VBComponents.Import ("c:\kantmp\fm文字比較.bas")
>End Sub
自分なりにどう試したのか解りませんし、ためした形跡というかそういうのもが、
単に知識不足で済ませているようにも....。
通常に使う基礎部分のコードの意味を理解しないで、VBProjectをいじるのは危険かと思います。

ActiveWorkbook.VBProject.VBComponents.Import (モジュールのフルパス)
【43637】Re:色々試してみましたが・・・
回答  Kein  - 06/10/20(金) 16:14 -
引用なし
パスワード
   こんな感じかな ?

Sub Test_Inport_Bas()
　 Const MyBas As String = "C:\kantmp\fm文字比較.bas"
　
　 With ActiveWorkbook
　　　If .Name <> ThisWorkbook.Name Then
　　　　 .VBProject.VBComponents.Import MyBas
　　　End If
　 End With
End Sub

VBProjectプロパティの対象オブジェクトは、VBEのみではないのです。
【43639】Re:色々試してみましたが・・・
お礼  すこしづつ  - 06/10/20(金) 16:52 -
引用なし
パスワード
   Jakaさん有り難う御座います。
>自分なりにどう試したのか解りませんし、ためした形跡というかそういうのもが、
>単に知識不足で済ませているようにも....。
>通常に使う基礎部分のコードの意味を理解しないで、VBProjectをいじるのは危険かと思います。
この当たりをいじるﾚﾍﾞﾙに無い事も承知なのですが、確かにおっしゃる通りです。済みません。

Keinさん、このﾚﾍﾞﾙに無い者の為に大変有り難う御座いました。
希望通りの動作でありました。
有り難う御座います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6719 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free