下記のマクロを実行すると指定フォルダ内にワイルドカードで指定した
フォルダの有無を検索し、メッセージが表示されます。
このマクロを
ワイルドカードの数字の部分を
例えば「12345678-6_」
マクロを設定しているブックのシート名「番号」のセル値「C1:C6」に記載のある番号
に変更して該当フォルダの有無を検索できるように変更する方法を教えてください。
該当フォルダが複数あり場合は、メッセージボックスにその旨を表示出来るようにしたいのですが、
よろしくお願いいたします。
一つの例ですが
画像のパターンですと
メッセージボックスに「12345678-6_北海 太郎」と「123456789-1_北海 花子」の2つを表示です。
マクロ
Sub フォルダ検索()
Dim 検索フォルダパス As String
検索フォルダパス = "C:\Users\160931\Desktop\10月16日\テスト"
Dim 該当フォルダパス As String
Dim dir結果値 As String
dir結果値 = Dir(検索フォルダパス & "\12345678-6_*", vbDirectory)
Do While dir結果値 <> ""
Dim dir結果パス As String
dir結果パス = 検索フォルダパス & "\" & dir結果値
If GetAttr(dir結果パス) And vbDirectory Then
該当フォルダパス = dir結果パス
Exit Do
End If
dir結果値 = Dir()
Loop
If 該当フォルダパス <> "" Then
MsgBox "該当フォルダのパス:" & 該当フォルダパス
End If
End Sub
以上となります。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
>「123456789-1_北海 花子」のみをメッセージボックスに表示出来る方法はありますでしょうか。
SubFoldersのSubFolder代入している fol As Object のNameプロパティでフォルダ名が取得できます
該当変更箇所
After
If AnsMsg = "" Then
AnsMsg = fol.Name
Else
AnsMsg = AnsMsg & vbCrLf & fol.Name
End If
No.1
- 回答日時:
ワイルドカードで検索との事で 該当するすべてで良いのでしょうか
フォルダの検索・・・Dirでも良いですが 先の質問で使用されていた
Scripting.FileSystemObjectのGetFolder(検索フォルダパス).SubFoldersを使用して 一例です
Sub フォルダ検索()
Dim 検索フォルダパス As String
検索フォルダパス = "C:\Users\160931\Desktop\10月16日\テスト"
Dim AnsMsg As String
Dim rng As Range
Set rng = Range("C1:C6")
Dim fso As Object, fol As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each r In rng
If r.Value <> "" Then
For Each fol In fso.GetFolder(検索フォルダパス).SubFolders
If fol Like 検索フォルダパス & "\" & r.Value & "*" Then
If AnsMsg = "" Then
AnsMsg = fol
Else
AnsMsg = AnsMsg & vbCrLf & fol
End If
End If
Next
End If
Next
If AnsMsg <> "" Then
MsgBox "該当フォルダのパス:" & vbCrLf & AnsMsg
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) EXCEL VBA シート貼り付け 3 2021/11/15 12:33
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Excel(エクセル) excel VBA 部分一致の名前をパスに指定する方法 2 2021/10/20 17:18
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- Excel(エクセル) excel VBA Dirにて検索したフォルダのパスを取得してハイパーリンクを貼る方法 5 2021/10/21 16:19
- Excel(エクセル) excel VBA フォルダ内のサブフォルダを検索してハイパーリンクを貼りたい 1 2021/10/25 11:59
- Visual Basic(VBA) VBA Find でオートメーションエラー(エラー440)が出ました 1 2021/11/09 21:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA フォルダ名に特定の文字を...
-
フォルダを開いて、閉じるのプ...
-
VBA 最新のフォルダ取得
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
excel VBA Dirにて検索したフォ...
-
あるフォルダの中にあるファイ...
-
バッチファイルで指定フォルダ...
-
サーバ内のフォルダ名と各フォ...
-
言語[C#]..フォルダ選択ダイア...
-
VBSでファイル名と同じフォルダ...
-
Access VBA で フォルダ権限...
-
エクセルのVBAで特定のフォルダ...
-
VB.NRT FolderBrowserDialogを...
-
ディレクトリ名変更してコピー...
-
バッチファイル フォルダを...
-
Excel VBA フォルダ存在チェッ...
-
【VBS】古い日付のフォルダを削...
-
ThisWorkbookがあるフォルダ更...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報
おはようございます。
詳しいコードをありがとうございました。
一つお願いがあります。
教えて頂いた、貴者のコードを実行すると
メッセージボックスに
該当フォルダパスが全て表示されますが、
出来れば、C:¥~テスト¥までを省いて、「12345678-6_北海 太郎」「123456789-1_北海 花子」のみをメッセージボックスに表示出来る方法はありますでしょうか。
何度も申し訳ありません。
よろしくお願いいたします。