|
よろしくお願いいたします
モジュールインポート時、下記コードでは
ThisWorkbook、シートモジュールはクラスモジュールになってしまいます
修正方法 アドバイスよろしくお願いいたします
'要 参照設定 MicroSoft Scripting Runtime
'TG_wk_FULLPATH : インポート先ブックフルパス
'TG_FLD_STR : 更新モジュールフォルダ
Function MD_IMPORT2(TG_wk_FULLPATH As String, TG_FLD_STR As String) As Boolean
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myFile As File
Dim I As Integer
I = 1
Set myFolder = myFSO.GetFolder(TG_FLD_STR)
For Each myFile In myFolder.Files
If CreateObject("Scripting.FileSystemObject").GetExtensionName(TG_FLD_STR & myFile.Name) <> "frx" Then
'下記では、シートモジュール、ThisWorkbookは、クラスモジュールにインポートされてしまう
Workbooks(Right(TG_wk_FULLPATH, Len(TG_wk_FULLPATH) - InStrRev(TG_wk_FULLPATH, "\"))). _
VBProject.VBComponents.Import (TG_FLD_STR & "\" & myFile.Name)
End If
Next
Set myFSO = Nothing
Set myFolder = Nothing
End Function
|
|