Добрый день! Есть проблема, которую вроде решить легко, но я только начинаю изучать VBA и пройдет огромное количество времени, пока напишу весь код((( Задача такая, что нужно просто просканировать в папке названия изображений (jpg) и пробежать по столбцу по содержанию ячеек, при обнаружении такого же названия, что и в ячейке, перекинуть его в новую папку (например, уже созданную), ЕСЛИ его нет, то выделить эту ячейку красным или рядом поставить значок или текст "фото отсутствует". Я туплю((((
Сканирование папки изображений и сравнение с содержанием в ячейках
15.03.2018 09:28:13
|
|
|
|
15.03.2018 09:39:44
Irina_Lari, добрый день, взять допустим данный макрос вывести список названий файлов
Не бойтесь совершенства. Вам его не достичь.
|
|
|
|
15.03.2018 10:02:01
Irina_Lari, Покажите где именно
"Все гениальное просто, а все простое гениально!!!"
|
|||||
|
|
15.03.2018 10:32:59
Да, понимаю, что с моей стороны выглядит не добросовестно, фактически спрашивать готовое решение, исправлюсь. Я пока на атком этапе, что даже не понимаю как поменять FSO = CreateObject("Scripting.FileSystemObject") или добавить GetBaseName(<Path>), чтобы в ячейку название файла записывалось без расширения.
Изменено: |
|
|
|
15.03.2018 11:16:33
Думаю что в вашем случае можно не использовать
"Все гениальное просто, а все простое гениально!!!"
|
|||
|
|
15.03.2018 13:19:32
Ну все за вас делать приходится
Добавил проверку наличия файла в папке из списка в столбце A.
Изменено:
"Все гениальное просто, а все простое гениально!!!"
|
||||
|
|
|||