エクセルのマクロについて教えてください。

下記のマクロは指定フォルダ内にあるワイルドカード名のフォルダを削除できます。
対象フォルダが無い場合はエラーが表示されません「On Error Resume Next」
コードのワイルドカードの
「\*12345678*"」この部分の「12345678」を指定セル値に置き換えが出来る方法を教えてください。
指定セル値シート名「青紙表」セル値「R18」
以上となります。
現状のマクロ
Sub フォルダ削除()
On Error Resume Next
Dim fso As Object
Dim strPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書\8\*12345678*"
fso.DeleteFolder strPath, True
Set fso = Nothing
End Sub

以上です。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： 高木さんWIN 回答日時： 2024/01/18 21:14

strPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書\8\*12345678*"

↓

strPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書\8\*" & worksheets("青紙表").Range("R18").Value & "*"

未検証で～す。

この回答へのお礼

回答ありがとうございます
早速試してみます

お礼日時：2024/01/18 21:16