下記のマクロを実行すると指定フォルダ内にワイルドカードで指定した
フォルダの有無を検索し、メッセージが表示されます。
このマクロを
ワイルドカードの数字の部分を
例えば「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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
select case について
Visual Basic(VBA)
-
VisualStudio2022をマクロみたいに自動プログラムを作成する方法を教えてください。
Visual Basic(VBA)
-
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
-
-
4
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
5
Excelマクロで空白セルの大小比較処理について
Visual Basic(VBA)
-
6
自動VBAマクロって会社の中で禁止なんですか?
Visual Basic(VBA)
-
7
Excel VBAにて、2GB超の点群データ(CSVファイル,改行コードLF)を高速で解析したい。
Visual Basic(VBA)
-
8
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
9
エクセル CSVファイルについて
Excel(エクセル)
-
10
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
11
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
12
VBA
Visual Basic(VBA)
-
13
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
14
xlookup関数の引数を利用して検索元に移動するVBAコードについて
Visual Basic(VBA)
-
15
数字をコンマで区切った文字列の集計のマクロの修正
Excel(エクセル)
-
16
【補足欄が足りなかったため、こちらで再質問させていただきます。】 Excelの転記マクロについて、教
Visual Basic(VBA)
-
17
Excelの転記マクロについて、教えて下さい excelのマクロでまた悩んでいます! AAAAという
Excel(エクセル)
-
18
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
19
Excelで、改行がある場合の条件式(関数)の書き方を教えてください
Excel(エクセル)
-
20
VBA 同じ名前のオブジェクトを選択したいのですが
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
デスクトップの画像をhtmlに表...
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
VBA 最新のフォルダ取得
-
ExcelのVBAでフォルダ指定がで...
-
ファイル名から該当フォルダへ移動
-
【マクロ】ファイル名の日付に...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
VBA フォルダ名に特定の文字を...
-
同一フォルダ内の別ブックから...
-
ExcelのVBAでの複数階層からの...
-
FTPでフォルダごとにパスワード...
-
[VBS] Unicodeの文字化けを防ぎ...
-
カレントフォルダって?
-
エクセルマクロで指定フォルダ...
-
VBSでファイル名と同じフォルダ...
-
Excel VBA フォルダ存在チェッ...
-
フォルダ作成と同時に作成され...
-
あるフォルダーのファイルを違...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
デスクトップの画像をhtmlに表...
-
VBA フォルダ名に特定の文字を...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
C ファイル出力で、フォルダが...
-
Access VBA で フォルダ権限...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報
おはようございます。
詳しいコードをありがとうございました。
一つお願いがあります。
教えて頂いた、貴者のコードを実行すると
メッセージボックスに
該当フォルダパスが全て表示されますが、
出来れば、C:¥~テスト¥までを省いて、「12345678-6_北海 太郎」「123456789-1_北海 花子」のみをメッセージボックスに表示出来る方法はありますでしょうか。
何度も申し訳ありません。
よろしくお願いいたします。