| |
▼松原 隆 さん：
こんばんは。
>ＶＢＡモジュールをＥｘｃｅｌファイルにまとめてインポートする手段があれば教えて下さい。
>エクスポートされたモジュールとそれを組み込みたい多数のＥｘｃｅｌファイルが有り、１個づつインポートで組み込まずに、ＶＢＡで自動的に組みこませるようにしたいのですが。
'==============================================================
Sub main()
If import_mdl(ThisWorkbook, "D:\My Documents\ＴＥＳＴエリア\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で確認しました。
|
|
