Excel VBA質問箱 IV

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

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


70860 / 76734 ←次へ | 前へ→

【10376】Re:VBAモジュールをインポートしないで組みこむ方法
回答  ichinose  - 04/1/21(水) 19:34 -

引用なし
パスワード
   ▼松原 隆 さん:
こんばんは。

>VBAモジュールをExcelファイルにまとめてインポートする手段があれば教えて下さい。
>エクスポートされたモジュールとそれを組み込みたい多数のExcelファイルが有り、1個づつインポートで組み込まずに、VBAで自動的に組みこませるようにしたいのですが。
'==============================================================
Sub main()
  If import_mdl(ThisWorkbook, "D:\My Documents\TESTエリア\Module1.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

このFunction import_mdlを使用して、一つ一つ指定ファイルをインポートする
という方法は、いかがですか?
もちろん、mainでループ処理は必要ですよ!!
あっ、Excel2000で確認しました。

1 hits

【10375】VBAモジュールをインポートしないで組みこむ方法 松原 隆 04/1/21(水) 19:16 質問
【10376】Re:VBAモジュールをインポートしないで... ichinose 04/1/21(水) 19:34 回答
【10379】Re:VBAモジュールをインポートしないで... 松原 隆 04/1/22(木) 8:39 お礼

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