Excel VBA質問箱 IV

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

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


13054 / 76734 ←次へ | 前へ→

【69190】Re:標準モジュールの差し替え
質問  COO  - 11/5/27(金) 21:47 -

引用なし
パスワード
   回答いただきありがとうございました。
ただ、業務上どうしても対応しないといけないことなので、いろいろと調べました。
そうしたら、あるホームページでこんなサンプルコードを見つけました。


Sub main()
  If import_mdl(ThisWorkbook, "C:\Documents and Settings\Tadaaki\デスクトップ\Module2.bas") = 0 Then
   MsgBox "インポート成功"
   End If
End Sub
'==================================================================
Function import_mdl(wk As Workbook, import_flnm As String) As Long
  On Error Resume Next
  import_mdl = 0
  wk.VBProject.VBComponents.Import import_flnm
  If Err.Number <> 0 Then
   import_mdl = Err.Number
   End If
End Function


最終的にやりたいことは、デスクトップ上にB.xlsのMoudle2をエクスポートしておき、それをA.xlsのModule5として取り込みたいのです。
練習のために、新規ブック(C.xls)のModudl1に上記のプログラムを貼り付け、mainマクロを実行することでデスクトップ上のModule2をC.xlsのModule2として取り込もうと考えています。
しかし、期待した結果が得られません。
じゅうぶんにコードを理解できてないためと思いますが、上記プログラムはどういう操作をするものでしょうか?
また、このプログラムを応用して私が最終的に実行したい
『デスクトップ上にB.xlsのMoudle2をエクスポートしておき、それをA.xlsのModule5として取り込みたいのです』は可能でしょうか?
4 hits

【69132】標準モジュールの差し替え COO 11/5/19(木) 19:21 質問
【69136】Re:標準モジュールの差し替え UO3 11/5/20(金) 14:27 発言
【69141】Re:標準モジュールの差し替え neptune 11/5/20(金) 15:36 発言
【69190】Re:標準モジュールの差し替え COO 11/5/27(金) 21:47 質問
【69191】Re:標準モジュールの差し替え とおりすがり 11/5/27(金) 23:12 回答
【69192】Re:標準モジュールの差し替え すどおり 11/5/27(金) 23:55 発言
【69193】Re:標準モジュールの差し替え neptune 11/5/28(土) 0:44 回答

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