Как переименовать все файлы в папке, на имена из столбца таблицы excel?

[djrec]

Нужно поочередно переименовать все фотографии (JPEG) в папке, взяв имя (7 значное число) в столбце таблицы excel. То есть первый имя файла в папке = первая ячейка в столбце.



лист - "Лист1".
столбец- "А"

[Serge_Bliznykov]

Сообщение от djrec

То есть первый имя файла в папке

что это значит - "первый" ? По тому, как они записаны в файловой системе (физически)?
Так этот порядок может быть совершенно не тот, как Вы ожидаете.

[vefer]

Сначала переименуйте вручную номерами по порядку, ну или программой какой нибудь, их много. А потом макросом можно уже. Код погуглите.

[Serge_Bliznykov]

Сообщение от vefer

Сначала переименуйте вручную номерами по порядку, ну или программой какой нибудь, их много.

в общем случае нет смысла предварительно переименовывать.
надо сразу переименовать в нужное.
В макросе это делать или в каком-нибудь батнике - это уже другой вопрос.
К тому же автор темы не ответил на заданный вопрос (а это принципиально важный аспект).

[Aleksandr H.]

Сообщение от Serge_Bliznykov

К тому же автор темы не ответил на заданный вопрос

А если кроме "Новая тема" пользовался и "Найти", получил хайп бы раньше
http://www.programmersforum.ru/showthread.php?t=60191

[vefer]

Сообщение от Serge_Bliznykov

в общем случае нет смысла предварительно переименовывать.

Смысл есть, если нужно определенный порядок соблюсти, да и код легче написать будет, а то ведь не понятно как их переименовывать - либо в алфавитном порядке, либо в хронологическом, а может вообще вразнобой.

[Serge_Bliznykov]

Сообщение от vefer

Смысл есть, если нужно определенный порядок соблюсти

нет смысла. Ведь этой программе, которой Вы собираетесь переименовывать предварительно нужно определённый порядок соблюсти. Так смыслы переименовывать первый в файл в 1.jpg, если можно переименовывать файл в имя из ячейки[1],
второй в файл в 2.jpg, если можно переименовывать файл в имя из ячейки[2] и т.д.

так что - нет смысла.

да и уже привели ссылку на тему, где есть рабочий макрос (в разных вариантах) - бери, подправь под себя и запускай!

[djrec]

Сообщение от Serge_Bliznykov

что это значит - "первый" ? По тому, как они записаны в файловой системе (физически)?
Так этот порядок может быть совершенно не тот, как Вы ожидаете.

файлы имеют вид DSC_....jpg, в точках четырехзначное число по возрастанию. То есть сортировка либо по имени от А до Я, либо по времени создания файла (что в этом случае одно и то же)

[djrec]

Сообщение от Aleksandr H.

А если кроме "Новая тема" пользовался и "Найти", получил хайп бы раньше
http://www.programmersforum.ru/showthread.php?t=60191

Да я эту страницу и нашел в гугле, но к сожалению задача в ней немного другая, а в VBA я никогда не работал, по этому у меня сложность даже отредактировать ту программу.



NewFilename = НовоеИмяФайла(sh.Cells(1, 1))

Как прописать, что бы имя файла бралось каждый раз не с одной и той же ячейки, а опускалось по столбцу вниз. А1, А2, А3... итд ? новый файл следующая ячейка?

[Aleksandr H.]

А если файлов в папке > ячеек в А ?