Excel VBA質問箱 IV

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

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


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

28872 / 76732

←次へ　｜　前へ→


	【53150】Re:モジュールインポート時のThisWorkbook、シートモジュールについて

ウーロン - 07/12/17(月) 17:54 -


	引用なし

	パスワード

下記まで切り分けしました
ココ1,2アドバイスありましたらよろしくお願いいたします

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
　　
　　Dim TYPE_MD As String
　　Dim MD_NAME As String
　　
　　I = 1
　　
　　Set myFolder = myFSO.GetFolder(TG_FLD_STR)
　　
　　For Each myFile In myFolder.Files

　　　　TYPE_MD = CreateObject("Scripting.FileSystemObject").GetExtensionName(TG_FLD_STR & "\" & myFile.Name)
　　　　MD_NAME = CreateObject("Scripting.FileSystemObject").GetBaseName(TG_FLD_STR & "\" & myFile.Name)
　　　　
　　　　If TYPE_MD <> "frx" Then
　　　　　　
　　　　　　If TYPE_MD = "cls" Then
　　　　　　
　　　　　　　　If Left(MD_NAME, 5) = "Sheet" Then
　　　　　　　　　　'ココ1
　　　　　　　　ElseIf Left(MD_NAME, 5) = "ThisW" Then
　　　　　　　　　　'ココ2
　　　　　　　　Else
　　　　　　　　　　Workbooks(Right(TG_wk_FULLPATH, Len(TG_wk_FULLPATH) - InStrRev(TG_wk_FULLPATH, "\"))). _
　　　　　　　　　　　　　　VBProject.VBComponents.Import (TG_FLD_STR & "\" & myFile.Name)
　　　　　　　　End If
　　　　　　
　　　　　　Else
　　　　　　　　Workbooks(Right(TG_wk_FULLPATH, Len(TG_wk_FULLPATH) - InStrRev(TG_wk_FULLPATH, "\"))). _
　　　　　　　　　　　　VBProject.VBComponents.Import (TG_FLD_STR & "\" & myFile.Name)
　　　　　　End If

　　　　End If
　　　　
　　Next
　　
　　Set myFSO = Nothing
　　Set myFolder = Nothing
　　
End Function

2 hits

▼

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