Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28875 / 76732

←次へ　｜　前へ→


	【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

2 hits

▼

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

≪