Excel VBA質問箱 IV

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

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


28881 / 76738 ←次へ | 前へ→

【53147】モジュールインポート時のThisWorkbook、シートモジュールについて
質問  ウーロン  - 07/12/17(月) 17:10 -

引用なし
パスワード
   よろしくお願いいたします

モジュールインポート時、下記コードでは
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

0 hits

【53147】モジュールインポート時のThisWorkbook、シートモジュールについて ウーロン 07/12/17(月) 17:10 質問
【53150】Re:モジュールインポート時のThisWorkbook... ウーロン 07/12/17(月) 17:54 質問
【53162】Re:モジュールインポート時のThisWorkbook... neptune 07/12/17(月) 22:58 発言
【53171】Re:モジュールインポート時のThisWorkbook... ウーロン 07/12/18(火) 11:50 お礼

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