|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
13.08.2009, 23:35 | #1 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
переименование файлов в папке макросом из Excel
Что имеем:
- много файлов excel, полученных по запросу из браузера, с беспорядочными названиями... Что нужно: - переименовать эти файлы именем, находящееся в 2-х ячейках, т.е. в ячейке A2 первая часть названия файла, а в ячейке A8 - вторая часть... точнее из ячейки A2 взять первые буквы слов, а из A8 взять из набора слов первую дату предварительно переведя ее в буквеное выражение... файлов может быть очень много!!! Звучит сложно, по крайней мере, для меня... |
14.08.2009, 01:16 | #2 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Посмотрите универсальную надстройку для переименования файлов в папке:
http://excelvba.ru/programmes/RenameFiles Цитата:
Сотни, тысячи, десятки тысяч? Все ли эти файлы находятся в одной папке? (или имеется древовидная структура папок - файлы надо искать и во вложенных папках) Цитата:
И вообще, с какого листа брать данные? С первого или с последнего? Известно заранее имя листа?
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 21.09.2015 в 04:49. |
||
14.08.2009, 21:45 | #3 | ||||
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Цитата:
Цитата:
Цитата:
Цитата:
|
||||
15.08.2009, 11:00 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Вот весь код:
Код:
|
15.08.2009, 12:27 | #5 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Спасибо... работает отлично... а можно поместиь в ту же папку файлы с новыми названиями вместо старых (старые удалить)?... пробую учиться сам, но пока не все получается...
|
15.08.2009, 13:05 | #6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Попробуйте так: (удаление исходного файла)
Код:
Или так: (переименование исходного файла, должно работать быстрее предыдущего способа) Код:
|
15.08.2009, 18:13 | #7 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
и снова спасибо... теперь именно так как нужно...
|
10.11.2009, 16:49 | #8 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Возник еще вопрос:
что добавить в код, чтобы к названию прибавилось все содержимое ячейки A4 (здесь хранится название предприятия, присутствуют ковычки"", они не допустимы в названии файлов...): If IsDate(дата) Then НовоеИмяФайла = НовоеИмяФайла & " " & LCase(Format(дата, "MMMM YYYY")) |
10.11.2009, 16:57 | #9 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Код:
|
10.11.2009, 17:24 | #10 | |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Цитата:
А ламером то хреново быть... Хотел сам - пол дня вертел... ))) Спасибо приспасибущее... |
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Формирование списка файлов в папке на листе. | 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 |