下記のマクロを実行すると指定フォルダ内にワイルドカードで指定した
フォルダの有無を検索し、メッセージが表示されます。
このマクロを
ワイルドカードの数字の部分を
例えば「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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
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
VB.NETでVBスクリプトを作るにはどうしたらいいですか?
Visual Basic(VBA)
-
7
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
8
自動VBAマクロって会社の中で禁止なんですか?
Visual Basic(VBA)
-
9
Excel VBAにて、2GB超の点群データ(CSVファイル,改行コードLF)を高速で解析したい。
Visual Basic(VBA)
-
10
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
11
エクセル CSVファイルについて
Excel(エクセル)
-
12
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
13
VBA
Visual Basic(VBA)
-
14
xlookup関数の引数を利用して検索元に移動するVBAコードについて
Visual Basic(VBA)
-
15
数字をコンマで区切った文字列の集計のマクロの修正
Excel(エクセル)
-
16
こんにちは。Excelのことで教えてください。特定のセルへの入力時に、ある特定の文字の入力ができない
Excel(エクセル)
-
17
2013Excel保存済みファイルグレーアウト Excelを開こうとするとメニュー以外全てグレーにな
Excel(エクセル)
-
18
【補足欄が足りなかったため、こちらで再質問させていただきます。】 Excelの転記マクロについて、教
Visual Basic(VBA)
-
19
Excelの転記マクロについて、教えて下さい excelのマクロでまた悩んでいます! AAAAという
Excel(エクセル)
-
20
VB.Netでファイル圧縮する方法は何ですか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
【マクロ】ファイル名の日付に...
-
ExcelのVBAでフォルダ指定がで...
-
VBA 最新のフォルダ取得
-
デスクトップの画像をhtmlに表...
-
ファイル名と同名のフォルダを...
-
Excelで指定したフォルダに保存...
-
ファイル名から該当フォルダへ移動
-
多量のファイルをフォルダに自...
-
空のフォルダの判定
-
パス名に2バイト文字(マルチバ...
-
保存先のフォルダ名を指定した...
-
バッチファイルで指定フォルダ...
-
【VBS】古い日付のフォルダを削...
-
言語[C#]..フォルダ選択ダイア...
-
エクセルマクロで指定フォルダ...
-
ThisWorkbookがあるフォルダ更...
-
フォルダ内のファイルの作成日...
-
バッチファイルにて連番付きフ...
-
フォルダに一括でファイル振り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
デスクトップの画像をhtmlに表...
-
VBA フォルダ名に特定の文字を...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
C ファイル出力で、フォルダが...
-
Access VBA で フォルダ権限...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報
おはようございます。
詳しいコードをありがとうございました。
一つお願いがあります。
教えて頂いた、貴者のコードを実行すると
メッセージボックスに
該当フォルダパスが全て表示されますが、
出来れば、C:¥~テスト¥までを省いて、「12345678-6_北海 太郎」「123456789-1_北海 花子」のみをメッセージボックスに表示出来る方法はありますでしょうか。
何度も申し訳ありません。
よろしくお願いいたします。