マクロについて教えてください 下記のマクロはセル値「R18」の数字とフォルダ名の一部が該当した場合に

マクロについて教えてください
下記のマクロはセル値「R18」の数字とフォルダ名の一部が該当した場合に
対象フォルダが削除されます。 コードの「\■01_敷地照会回答書」内にあるサブフォルダ名「1」の部分を
シート名「青紙表」セル値「AA18」に表示されている数字をフォルダ名にできるように、コードを変更出来る方法を教えてください。　
コードの\1\この部分を変更する必要があると思い先ず
例えば「AA18」に数字の「1」が表示されている場合は
コードが
strPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書\1\
となり
又、同じように　
「AA18」に数字の「5」が表示されている場合は
コードが
strPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書\5\
となるように出来方法を教えてください
現行のマクロです。
Sub フォルダ削除()
On Error Resume Next
Dim fso As Object
Dim strPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書\1\*" & Worksheets("青紙表").Range("R18").Text & "*"
fso.DeleteFolder strPath, True
Set fso = Nothing
End Sub
よろしくお願いいたします。

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

やり方は

& Worksheets("青紙表").Range("R18").Text &

のようにセルの値を連結させればいいだけですけど？

この回答へのお礼

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

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