Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сканирование папки изображений и сравнение с содержанием в ячейках
 
Добрый день! Есть проблема, которую вроде решить легко, но я только начинаю изучать VBA и пройдет огромное количество времени, пока напишу весь код((( Задача такая, что нужно просто просканировать в папке названия изображений (jpg) и пробежать по столбцу по содержанию ячеек, при обнаружении такого же названия, что и в ячейке, перекинуть его в новую папку (например, уже созданную), ЕСЛИ его нет, то выделить эту ячейку красным или рядом поставить значок или текст "фото отсутствует". Я туплю((((  
 
Irina_Lari, добрый день, взять допустим данный макрос вывести список названий файлов https://www.planetaexcel.ru/techniques/3/45/ и сравнить его через впр допустим....
 
Irina_Lari, Покажите где именно
Цитата
Irina_Lari написал:
Я туплю((((  
. Ни файла примера, ни попыток. Я когда начинал изучать, у меня там столько всякого кода было, что черт ногу сломит. А тут пока только слова
Цитата
Irina_Lari написал:
я только начинаю изучать VBA
"Все гениальное просто, а все простое гениально!!!"
 
Да, понимаю, что с моей стороны выглядит не добросовестно, фактически спрашивать готовое решение, исправлюсь. Я пока на атком этапе, что даже не понимаю как поменять FSO = CreateObject("Scripting.FileSystemObject") или добавить GetBaseName(<Path>), чтобы в ячейку название файла записывалось без расширения.

a.i.mershik, спасибо большое за статью! Она была мне очень полезна, здесь, на форуме, очень много отличных статей по excel. А с расширением, я разобралась. спасибо! И с ВПР тоже! Теперь пойду действительно изучать)
Изменено: Irina_Lari - 15 Мар 2018 11:00:11
 
Думаю что в вашем случае можно не использовать
Цитата
Irina_Lari написал:
FSO = CreateObject("Scripting.FileSystemObject")
"Все гениальное просто, а все простое гениально!!!"
 
Ну все за вас делать приходится  8-0
Добавил проверку наличия файла в папке из списка в столбце A.
Изменено: Nordheim - 16 Мар 2018 09:06:47
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1
Читают тему (гостей: 1)
Наверх