|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
25.12.2009, 11:27 | #21 |
Новичок
Джуниор
Регистрация: 24.12.2009
Сообщений: 2
|
Добрый день, у меня ситуация похожая на xamillion-овкую, но есть пара своих приколов. Куча файлов которые надо переименовать по содержимому двух ячеек B4 и B6, только название должно выглядеть как дата из B6 записанная в формате yyyy.mm.dd и часть информации из B4 (там название предприятия типа ООО "..." или ЗАО "...", соответственно в название надо вытащить только то что в кавычках).
Сам уже третий день пытаюсь победить, но пока безрезультатно. Может кто сможет помочь? |
26.12.2009, 00:03 | #22 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Спасибо форумчанам за то, что научили немного самому VBA'шничать!!!
В приложении адаптированое одно из возможных решений предидушей задачи... З.Ы. jv16pt, ник - интересный вариант рекламы jv16 PowerTools... Последний раз редактировалось xamillion; 26.12.2009 в 00:07. |
26.12.2009, 00:49 | #23 |
Новичок
Джуниор
Регистрация: 24.12.2009
Сообщений: 2
|
Огромное спасибо, отлично работает.
Все оказалось гораздо проще чем я предполагал. |
12.04.2012, 14:36 | #24 |
Новичок
Джуниор
Регистрация: 28.03.2012
Сообщений: 2
|
а кто может помочь с моей проблемой.
во вложении файл. хотелось бы чтобы макрос брал значение из столбца 5 (Артикул) искал файл с именем таким (все файлы psd или tif) далее найденный файл переименовываем берЯ значение из столбца 2 (Код) помогите пожалуйста, требуется очень. |
12.04.2012, 14:51 | #25 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Думаю, быстро можно сделать так - диапазон в массив, перебор массива - заносим в словарь артикул и к нему код.
Далее кодом http://excelvba.ru/code/FilenamesCollection получаем коллекцию существующих имён, перебираем коллекцию, каждому имени (без расширения) из словаря достаём новое имя, переименовываем. Так всего 3 цикла - один по массиву, один по файлам (наполняем коллекцию), и один по коллекции. Два быстрых, один чуть медленнее. Реализовать пока некогда (да и не интересно... и писать много), может кто хочет потренироваться?
webmoney: E265281470651 Z422237915069 R418926282008
|
12.04.2012, 18:19 | #26 |
Новичок
Джуниор
Регистрация: 12.04.2012
Сообщений: 2
|
хуго ответь в почте
|
09.08.2013, 13:14 | #27 |
Регистрация: 09.08.2013
Сообщений: 5
|
Добрый день! Подскажите, пожалуйста.
Необходимо переименовать файлы средствами эксель. Нужно реализовать следующую схему: В экселе столбец с адресами и столбец с номерами (1,2, ...) принадлежащие каждый своему адресу. Есть папка с файлами изображений с адресами в названии идентичными и похожими. Нужно добавить в начало всех совпадающих и похожих адресов соответствующие номера из экселя, но вида: 01_, 02_, ... и т.д. Только начал знакомиться с макросами и "внутренним" миром экселя, поэтому еще много не понимаю, прошу понять!) Как пробую решить. Вставляю надстройкой pastepicture названия всех файлов из папки в эксель. Макросом выполняется частичное сравнение данных из имеющихся адресов и добавленных из папки и напротив выводится коэффициент совпадения. Совпавшим свежедобавленным необходимо присвоить номера вида 01_, 02_, ... и т.д. Делаю это следующим макросом: Собственно беру 4 ячейки с данными: "0", "1", "_", "адреса" объединяю их макросом и протягиваю по всем строкам, получается нужный вид. Остается только заменить названия в папке сгенерированными новыми названиями. Пробовал через бэйсик запихнуть код, что выше в функции, выдает ошибку на GetFolderPath. Пример тоже не понял как работает. Кнопка есть, но куда данные вставлять. И как мне реализовать это в своей базе экселя в виде макроса или функции. Должен ли я в код прописывать какие-то пути к файлам или все должно работать через форму открыть файл? Очень прошу помочь разобраться! |
09.08.2013, 13:34 | #28 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Из хелпа:
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.
webmoney: E265281470651 Z422237915069 R418926282008
|
09.08.2013, 13:44 | #29 |
Регистрация: 09.08.2013
Сообщений: 5
|
Спасибо, видел, но куда и как мне это применить к диапазону понять - не понимаю.
Мне бы у себя код работать заставить, что в этой теме. Вроде подходит для моей задачи. Но пока не работает.. |
09.08.2013, 15:00 | #30 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Вы бы хоть подсказали, где именно смотреть этот код (лучше бы конечно файл показали) - тут вероятно в каждом файле какой-то код есть... искать не буду.
webmoney: E265281470651 Z422237915069 R418926282008
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Формирование списка файлов в папке на листе. | mephist | Microsoft Office Excel | 3 | 12.08.2009 17:59 |
Переименование группы файлов | Meh | Общие вопросы Delphi | 2 | 28.07.2009 12:31 |
Как сделать поиск файлов в папке | BETONOMESHALKA | Общие вопросы Delphi | 3 | 01.02.2008 22:43 |
Просмотр файлов в папке и подпапках | Yar | Помощь студентам | 9 | 07.08.2007 16:56 |