Как полностью убить с помощью макроса файл?

10.11.2006, 15:38. **Показов** 4380. **Ответов** 5

Студворк — интернет-сервис помощи студентам

Возникла следущая задача. Макрос в открытом Excel файле должен удалить этот же файл из файловой системы. Естественно без извращений это не получается сделать, поскольку он используется сервисом. Но грохнуть его все равно надо. Не подскажте как?

@babken76 · 10.11.2006, 16:32

Убить сам себя? Хм...

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

С уважением,

@Pavel55 · 10.11.2006, 17:06

'Макрос, позволяющий удалить (убить) файл, в котором сам и находится (самоубийство)
'Source: http://www.*********/forum/index.php?s=5a0c711ab6e36c1995ad8f8cdc21 caf1&showtopic=28144 http://www.*********/forum/index.php?s=5a0c711ab6e36c1995ad8f8cdc21 caf1&showtopic=28144

Code
1
2
3
4
5
6
Private Sub Kill_ActiveWorkbook()
    iFullName$ = ActiveWorkbook.FullName
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
    SetAttr iFullName$, vbNormal: Kill iFullName$
    ActiveWorkbook.Close saveChanges:=False
End Sub

15.11.2006, 14:04

Годится! Код работает. А вот какая логика в нем - это другой вопрос. А в-общем то какая разница. Хотя если сможете объяснить принцип - буду очень рад.

Johny Walker · 15.11.2006, 17:30

ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

'Если в обычном режиме "чтение/запись", операционная система не даст убить открытый файл. Данной командой мы его закрываем и открываем только для чтения, с ним можно что хочешь делать

SetAttr iFullName$, vbNormal

'Это на тот случай, если файл изначально имел атрибут "Только для чтения" - vbReadOnly. Обычно такого не бывает, но для подстраховки. Кстати, в любом случае одна из строк - первая или вторая, окажутся ненужными...

Kill iFullName$

'Собственно удаление беззащитного файла

ActiveWorkbook.Close saveChanges:=False

'Закрыть файл без сохранения (ибо в режиме xlReadOnly без saveChanges:=False он будет спрашивать, куда сохранить изменения).

16.05.2007, 14:41

А вот для документов Word подобное можно делать?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Well78

	Как полностью убить с помощью макроса файл? 10.11.2006, 15:38. Показов 4380. Ответов 5 Метки нет (Все метки) Возникла следущая задача. Макрос в открытом Excel файле должен удалить этот же файл из файловой системы. Естественно без извращений это не получается сделать, поскольку он используется сервисом. Но грохнуть его все равно надо. Не подскажте как?

@babken76 0 / 0 / 1 Регистрация: 11.10.2010 Сообщений: 363
	10.11.2006, 16:32
	Убить сам себя? Хм... Единственное что могу посоветовать, создать из макроса скрипт vbs, который по таймеру убьет твой файл, запустить его, закрыть себя. Тоже изврат, но по другому не знаю. С уважением, 0

Well78
	15.11.2006, 14:04
	Годится! Код работает. А вот какая логика в нем - это другой вопрос. А в-общем то какая разница. Хотя если сможете объяснить принцип - буду очень рад.

Johny Walker 2 / 2 / 1 Регистрация: 10.04.2011 Сообщений: 415
	15.11.2006, 17:30
	ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly 'Если в обычном режиме "чтение/запись", операционная система не даст убить открытый файл. Данной командой мы его закрываем и открываем только для чтения, с ним можно что хочешь делать SetAttr iFullName$, vbNormal 'Это на тот случай, если файл изначально имел атрибут "Только для чтения" - vbReadOnly. Обычно такого не бывает, но для подстраховки. Кстати, в любом случае одна из строк - первая или вторая, окажутся ненужными... Kill iFullName$ 'Собственно удаление беззащитного файла ActiveWorkbook.Close saveChanges:=False 'Закрыть файл без сохранения (ибо в режиме xlReadOnly без saveChanges:=False он будет спрашивать, куда сохранить изменения). 0

Well78
	16.05.2007, 14:41
	А вот для документов Word подобное можно делать?