Сканирование папки изображений и сравнение с содержанием в ячейках

Пользователь

Сообщений: 2 Регистрация: 15.03.2018

15.03.2018 09:28:13

Добрый день! Есть проблема, которую вроде решить легко, но я только начинаю изучать VBA и пройдет огромное количество времени, пока напишу весь код((( Задача такая, что нужно просто просканировать в папке названия изображений (jpg) и пробежать по столбцу по содержанию ячеек, при обнаружении такого же названия, что и в ячейке, перекинуть его в новую папку (например, уже созданную), ЕСЛИ его нет, то выделить эту ячейку красным или рядом поставить значок или текст "фото отсутствует". Я туплю((((

a.i.mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#2 15.03.2018 09:39:44 Irina_Lari, добрый день, взять допустим данный макрос вывести список названий файлов https://www.planetaexcel.ru/techniques/3/45/ и сравнить его через впр допустим.... Не бойтесь совершенства. Вам его не достичь.

Nordheim

Пользователь

Сообщений: 3154 Регистрация: 18.04.2017

15.03.2018 10:02:01

Irina_Lari, Покажите где именно

Цитата
Irina_Lari написал: Я туплю((((

. Ни файла примера, ни попыток. Я когда начинал изучать, у меня там столько всякого кода было, что черт ногу сломит. А тут пока только слова

Цитата
Irina_Lari написал: я только начинаю изучать VBA

"Все гениальное просто, а все простое гениально!!!"

Irina_Lari

Пользователь

Сообщений: 2 Регистрация: 15.03.2018

15.03.2018 10:32:59

Да, понимаю, что с моей стороны выглядит не добросовестно, фактически спрашивать готовое решение, исправлюсь. Я пока на атком этапе, что даже не понимаю как поменять FSO = CreateObject("Scripting.FileSystemObject") или добавить GetBaseName(<Path>), чтобы в ячейку название файла записывалось без расширения.

a.i.mershik, спасибо большое за статью! Она была мне очень полезна, здесь, на форуме, очень много отличных статей по excel. А с расширением, я разобралась. спасибо! И с ВПР тоже! Теперь пойду действительно изучать)

Изменено: Irina_Lari - 15.03.2018 11:00:11

Nordheim

Пользователь

Сообщений: 3154 Регистрация: 18.04.2017

15.03.2018 11:16:33

Думаю что в вашем случае можно не использовать

Цитата
Irina_Lari написал: FSO = CreateObject("Scripting.FileSystemObject")

"Все гениальное просто, а все простое гениально!!!"

Nordheim Пользователь Сообщений: 3154 Регистрация: 18.04.2017	#6 15.03.2018 13:19:32 Ну все за вас делать приходится Добавил проверку наличия файла в папке из списка в столбце A. Прикрепленные файлы Файлы JPEG.xlsm (34.27 КБ) Изменено: Nordheim - 16.03.2018 09:06:47 "Все гениальное просто, а все простое гениально!!!"