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

下記のマクロを実行すると、
指定フォルダ内の指定ファイルが削除できます。
この指定フォルダをマクロを設定しているフォルダ内に削除ファイルがある時に
指定ファイルを削除出来る方法を教えてください。
ilePath = "\\nas-sp01\share\確認部\電子申請 関連\２．審査中\北海\採光確認\採光計算書.pdf"
このコードを
マクロ設定ブックと同じフォルダ内に削除ファイルがある場合に
指定ファイルを削除したいです。
現状のマクロ
Sub PDFファイル削除()
Dim filePath As String
filePath = "\\nas-sp01\share\確認部\電子申請 関連\２．審査中\北海\採光確認\採光計算書.pdf"
If Dir(filePath) <> "" Then

Kill filePath


End If

End Sub
以上となります。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/09/12 09:47

filePath = "\\nas-sp01\share\確認部\電子申請 関連\２．審査中\北海\採光確認\採光計算書.pdf"

を

filePath = ThisWorkbook.Path & "\採光計算書.pdf"

にして下さい。

この回答へのお礼

回答ありがとうございます。
上手くできました。

お礼日時：2024/09/12 09:51

No.1 回答者： らんどらんど 回答日時： 2024/09/12 09:41

Sub PDFファイル削除()

Dim filePath As String
filePath = ThisWorkbook.Path & "\採光計算書.pdf"

If Dir(filePath) <> "" Then
Kill filePath
End If
End Sub

このコードでは、ThisWorkbook.Pathを使用して、マクロが設定されているブックと同じフォルダ内の採光計算書.pdfファイルを指定しています。これにより、指定されたファイルが存在する場合に削除されます。

この回答へのお礼

回答ありがとうございます。
上手くできました。

お礼日時：2024/09/12 09:48