Удаление файлов по списку - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы