переименование файлов в папке макросом из Excel

[jv16pt]

Добрый день, у меня ситуация похожая на xamillion-овкую, но есть пара своих приколов. Куча файлов которые надо переименовать по содержимому двух ячеек B4 и B6, только название должно выглядеть как дата из B6 записанная в формате yyyy.mm.dd и часть информации из B4 (там название предприятия типа ООО "..." или ЗАО "...", соответственно в название надо вытащить только то что в кавычках).
Сам уже третий день пытаюсь победить, но пока безрезультатно.
Может кто сможет помочь?

[xamillion]

Спасибо форумчанам за то, что научили немного самому VBA'шничать!!!

В приложении адаптированое одно из возможных решений предидушей задачи...

З.Ы. jv16pt, ник - интересный вариант рекламы jv16 PowerTools...

[jv16pt]

Огромное спасибо, отлично работает.
Все оказалось гораздо проще чем я предполагал.

[artas-7]

а кто может помочь с моей проблемой.

во вложении файл.

хотелось бы чтобы макрос брал значение из столбца 5 (Артикул) искал файл с именем таким (все файлы psd или tif)

далее найденный файл переименовываем берЯ значение из столбца 2 (Код)

помогите пожалуйста, требуется очень.

[Hugo121]

Думаю, быстро можно сделать так - диапазон в массив, перебор массива - заносим в словарь артикул и к нему код.
Далее кодом http://excelvba.ru/code/FilenamesCollection получаем коллекцию существующих имён, перебираем коллекцию, каждому имени (без расширения) из словаря достаём новое имя, переименовываем.
Так всего 3 цикла - один по массиву, один по файлам (наполняем коллекцию), и один по коллекции. Два быстрых, один чуть медленнее.
Реализовать пока некогда (да и не интересно... и писать много), может кто хочет потренироваться?

[maroskaaa]

хуго ответь в почте

[TheRoofIsOnFire]

Добрый день! Подскажите, пожалуйста.
Необходимо переименовать файлы средствами эксель.
Нужно реализовать следующую схему:

В экселе столбец с адресами и столбец с номерами (1,2, ...) принадлежащие каждый своему адресу.
Есть папка с файлами изображений с адресами в названии идентичными и похожими.
Нужно добавить в начало всех совпадающих и похожих адресов соответствующие номера из экселя, но вида: 01_, 02_, ... и т.д.

Только начал знакомиться с макросами и "внутренним" миром экселя, поэтому еще много не понимаю, прошу понять!)

Как пробую решить.
Вставляю надстройкой pastepicture названия всех файлов из папки в эксель.
Макросом выполняется частичное сравнение данных из имеющихся адресов и добавленных из папки и напротив выводится коэффициент совпадения. Совпавшим свежедобавленным необходимо присвоить номера вида 01_, 02_, ... и т.д.
Делаю это следующим макросом:
Собственно беру 4 ячейки с данными: "0", "1", "_", "адреса" объединяю их макросом и протягиваю по всем строкам, получается нужный вид.

Остается только заменить названия в папке сгенерированными новыми названиями.
Пробовал через бэйсик запихнуть код, что выше в функции, выдает ошибку на GetFolderPath. Пример тоже не понял как работает. Кнопка есть, но куда данные вставлять. И как мне реализовать это в своей базе экселя в виде макроса или функции. Должен ли я в код прописывать какие-то пути к файлам или все должно работать через форму открыть файл? Очень прошу помочь разобраться!

[Hugo121]

Из хелпа:

Name Statement Example
This example uses the Name statement to rename a file. For purposes of this example, assume that the directories or folders that are specified already exist. On the Macintosh, “HD:” is the default drive name and portions of the pathname are separated by colons instead of backslashes.

Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names.
Name OldName As NewName ' Rename file.

OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' Move and rename file.

[TheRoofIsOnFire]

Спасибо, видел, но куда и как мне это применить к диапазону понять - не понимаю.
Мне бы у себя код работать заставить, что в этой теме. Вроде подходит для моей задачи. Но пока не работает..

[Hugo121]

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