|
▼松原 隆 さん:
こんばんは。
>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で確認しました。
|
|