|
こんにちは、chiiと申します。
モジュールのインポートについて教えてください。
以下のように、個人用マクロに<MD_IMPORT>を
作成したのですが、これだとインポート先のファイルを
閉じた状態で実行することになります。
インポート先のファイルを開いた状態で、
個人用マクロの<FILEUPDATE>を実行させたいのです。
どの様に、修正すればいいのでしょうか?
ご教授ください。よろしくお願いします。
**************************************************************
'モジュールのインポート
**************************************************************
Sub MD_IMPORT()
Dim wkAgt As Workbook 'インポート先ブック
Dim wkAfilename As String 'インポート先ファイル名変数
Application.ScreenUpdating = False
wkAfilename = InputBox("ファイル名を入力してください")
Set wkAgt = Workbooks.Open("C:\" & wkAfilename & ".xls")
With wkAgt.VBProject
With .VBComponents
.Import ("D:\インポート元ファイル\Module1.bas")
End With
End With
End Sub
|
|