Excel VBA質問箱 IV

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

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


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

【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ブックを開いてAブックのプログラムを実行すると、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さん、このレベルに無い者の為に大変有り難う御座いました。
希望通りの動作でありました。
有り難う御座います。

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