Удаление файлов по списку - VBA
Формулировка задачи:
Добрый ночи, подскажите что делаю не правильно, есть два макроса, один загружает список всех файлов из подкаталога, записывает в диапазон B путь к файлу, далее я в диапазоне F проставляю удалять данный файл или нет (ДА или НЕТ) запускаю второй макрос который должен пробежаться по диапазону F и если там стоит ДА обратиться к файлу по заданому пути в диапазоне B и собственно удалить его, вот собственно со вторым у меня проблемы, подскажите пожалуйста
Решение задачи: «Удаление файлов по списку»
textual
Листинг программы
Sub Delete_File2() Dim FSO As Object, s$, Cell as Object Set FSO = CreateObject("Scripting.FileSystemObject") For Each Cell In Range("F2:F100") If Cell = "ДА" Then FSO.DeleteFile Cell.Offset(0, -4).Value Next Set FSO=Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д