電子書籍の厳選無料作品が豊富!

マクロについて教えてください
下記のマクロはセル値「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
よろしくお願いいたします。

A 回答 (1件)

やり方は



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

のようにセルの値を連結させればいいだけですけど?
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A