Удаление рабочей книги?

[plyacek]

Уважаемые форумчане, пожскажите, пожалуйста, есть ли какое-то свойство или функция, которая бы удаляла рабочую книгу. Путь книги и название известны.

[EducatedFool]

Удаляемая книга открыта, или нет?

Если книга не открыта - то всё просто (удаляем, как любой другой файл):

Sub test()
    Kill "C:\Documents and Settings\Игорь\Рабочий стол\Лист Microsoft Excel.xls"
End Sub

Если удаляемая книга открыта, но код удаления выполняется из другой книги, тогда так:

Sub test()
    Путь = Workbooks("Лист Microsoft Excel.xls").FullName
    Workbooks("Лист Microsoft Excel.xls").Close False
    Kill Путь
End Sub

Ну а если требуется удалить книгу, из которой выполняется код - то как-то так:

Sub test()
    Application.DisplayAlerts = False: ThisWorkbook.ChangeFileAccess xlReadOnly
    Kill ThisWorkbook.FullName: Application.DisplayAlerts = True
    ThisWorkbook.Close False
End Sub

[plyacek]

Огромное спасибо!