删除文件而不最初声明其路径变量

Question

我需要删除一个文件，但最初没有声明其路径变量。
我试过这段代码，但我得到了

Automation error

    Dim wb1 As Workbook: Set wb1 = Workbooks.Open("D:\Users\Waleed\Desktop\Query1.XLS")
    wb1.Close SaveChanges:=False
    Kill (wb1.FullName)   ‘`Automation error` on this line

如果我最初声明了它的路径变量，代码运行没有问题

Dim wb1_Path As String: wb1_Path = wb1.FullName
Kill (wb1_Path)

Answer 1

工作簿关闭后无法访问属性。但是，您可以将工作簿 ChangeFileAccess 更改为 xlReadOnly 并在工作簿打开时删除文件。

Sub CloseAndDestroy(wb As Workbook)
    Application.DisplayAlerts = False
    With wb
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
    Application.DisplayAlerts = True
End Sub

删除文件而不最初声明其路径变量

Delete a file without initially declare a variable of its path

excel

vba