Страницы: 1
RSS
Макрос для перемещения выбранных фото по указанному пути с записью этого пути, Решить задачу перемещения выбранных фото по заданному в ячейке пути с сохранением этих путей в таблице
 
Столкнулся с задачей , которую хотелось бы автоматизировать , насколько это возможно , с помощью макроса .
Имеется Файл пример.xlsm в столбце «Н» которого , записаны  пути по которым необходимо сохранить фото.
Задача макроса :
1. При запуске макроса (желательно кнопкой) на выбранной активной ячейке из столбца «Н» открывать диалоговое окно выбора файлов ( важно чтобы в окне был не список файлов а вид «крупные значки») с папкой по заданному пути D:\allpictures
2. После ручного выбора нескольких (на практике максимум до 10 )файлов с расширениями .jpg .jpeg .png и нажатия кнопки в диалогом окне выбора необходимо Вырезать выбранные Файлы и Вставить по пути указанном в текущей активной ячейке например E:\Users\foto\apple и переименовать их , присвоив им имена в любом порядке 1.* , 2.* и тд. С сохранением исходного расширения ( желательно , можно все сохранить с расширением .jpg) ! Если по этому пути уже существует файл 1.jpg , то  сохранять начиная с имени 2.jpg .
3. Записать в текущую ячейку полный путь с именем сохранённого файла ( например E:\Users\foto\apple\1.jpg ), и в последующие ячейки текущей строки записать пути остальных сохранённых файлов по порядку ! Ровно столько , сколько есть реальных файлов ( на практике максимум 10 )
4. Перейти на одну ячейку вниз по столбцу «Н» для повтора процедуры для следующего элемента
5. Необходимо иметь возможность начать процесс с любой выбранной ячейки столбца «Н» и при необходимости прервать процесс и сохранить Книгу
 
Saniasin, написал Вам в личку.
Страницы: 1
Наверх