Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Контроль наличия файлов в папке.
 
#1
04.04.2021 20:02:26
Добрый всем вечер.

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

В архиве пример папка «Выполнено» и файл «контроль».
 
 
 
#2
04.04.2021 20:34:21
Сергей Зотов, типо такого, путь поменяйте только на свой и предположил что файлы должны быть в разрешении .xlsx
Код
Sub Макрос1()
For i = 2 To 12
   If Dir("C:\Users\dell\Desktop\Выполнено\" & Cells(i, 1) & ".xlsx") = "" Then
       Cells(i, 4) = ""
   Else
       Cells(i, 4) = "Файл есть"
   End If
Next i
End Sub
Изменено: Mershik - 04.04.2021 20:35:33
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
04.04.2021 20:47:19
В PQ
НА МЯСО В ПРОФИЛЕ
 
 
 
#4
04.04.2021 21:00:49

Все отлично, но. извиняюсь. Забыл добавить, что "контроль"  и "Выполнено", находятся в одной папке и могут "плавать" по каталогу. Желательно чтобы и путь к папке был  динамическим. Если нетрудно, поправьте..
 
 
 
#5
04.04.2021 22:19:41
Скрытый текст
Изменено: Nordheim - 04.04.2021 22:26:29
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#6
05.04.2021 06:52:28
Спасибо всем. Получилось вот что:
Код
Sub Макрос1()
For i = 2 To 12
   If Dir(ActiveWorkbook.Path & "\" & Cells(i, 1) & ".xlsx") = "" Then
       Cells(i, 4) = ""
   Else
       Cells(i, 4) = 1
   End If
Next i
End Sub
 
 
 
#7
05.04.2021 12:54:11
Цитата
Сергей Зотов написал:
Забыл добавить, что
Я скоро начну коллекционировать:
Забыл добавить
Упустил из виду
Вспомнил, что
Оказывается, нужно
Немного не так сформулировал
===
Ну куда Вы торопитесь при создании темы? Обдумайте всё, а уж потом пишите на форум.
 
 
 
Страницы: 1
Наверх