Excel VBA質問箱 IV

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

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


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

6726 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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さん、このﾚﾍﾞﾙに無い者の為に大変有り難う御座いました。
希望通りの動作でありました。
有り難う御座います。


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

6726 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free