Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Переименовать файл в зависимости от названия папки. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переименовать файл в зависимости от названия папки. (Макросы/Sub)
Переименовать файл в зависимости от названия папки.
китин Дата: Четверг, 27.10.2016, 10:03 | Сообщение № 1
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Всем доброго времени суток! По сути вся задача в названии темы. Есть некая папка ,которая лежит в сети примерно по такому адресу:
Цитата
'\\nas-storage\users\PDO\ДИСПЕТЧЕРИЗАЦИЯ\ПЛАНИРОВАНИЕ\Октябрь 2016

в ней лежат 3 файла
План график Октябрь 2016 г.
Предварительный план Ноябрь 2016 г.
План Ноябрь,Декабрь, Январь.
Возможно ли при переименовании данной папки с Октябрь 2016 г. на Ноябрь 2016 г. все три файла переименовались соответсвенно
План график Ноябрь 2016 г.
Предварительный план Декабрь 2016 г.
План Декабрь, Январь, Февраль.


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852


Сообщение отредактировал китин - Четверг, 27.10.2016, 13:26
 
Ответить
СообщениеВсем доброго времени суток! По сути вся задача в названии темы. Есть некая папка ,которая лежит в сети примерно по такому адресу:
Цитата
'\\nas-storage\users\PDO\ДИСПЕТЧЕРИЗАЦИЯ\ПЛАНИРОВАНИЕ\Октябрь 2016

в ней лежат 3 файла
План график Октябрь 2016 г.
Предварительный план Ноябрь 2016 г.
План Ноябрь,Декабрь, Январь.
Возможно ли при переименовании данной папки с Октябрь 2016 г. на Ноябрь 2016 г. все три файла переименовались соответсвенно
План график Ноябрь 2016 г.
Предварительный план Декабрь 2016 г.
План Декабрь, Январь, Февраль.

Автор - китин
Дата добавления - 27.10.2016 в 10:03
SLAVICK Дата: Четверг, 27.10.2016, 11:22 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
можно простенький макрос для переименования например тут


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщениеможно простенький макрос для переименования например тут

Автор - SLAVICK
Дата добавления - 27.10.2016 в 11:22
_Boroda_ Дата: Четверг, 27.10.2016, 13:34 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Можно положить в эту папку специальный файл-переименовщик
Там кнопка. Не оптимизировал ничего и только для 3-х твоих файлов
К сообщению приложен файл: 7011510.xlsm (20.3 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожно положить в эту папку специальный файл-переименовщик
Там кнопка. Не оптимизировал ничего и только для 3-х твоих файлов

Автор - _Boroda_
Дата добавления - 27.10.2016 в 13:34
китин Дата: Четверг, 27.10.2016, 14:02 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата
Type mismatch

Вот такое вылазиет :'(


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата
Type mismatch

Вот такое вылазиет :'(

Автор - китин
Дата добавления - 27.10.2016 в 14:02
китин Дата: Четверг, 27.10.2016, 14:24 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
а как кнопочку нажимаешь тут же и вылазиет :'(


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеа как кнопочку нажимаешь тут же и вылазиет :'(

Автор - китин
Дата добавления - 27.10.2016 в 14:24
_Boroda_ Дата: Четверг, 27.10.2016, 14:37 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Открой модуль листа и пробегись через F8 по макросу. Посмотри, где ругань. Покажи на картинке.
Excel какой?
Где у тебя этот файл лежит? Полный путь к нему какой?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеОткрой модуль листа и пробегись через F8 по макросу. Посмотри, где ругань. Покажи на картинке.
Excel какой?
Где у тебя этот файл лежит? Полный путь к нему какой?

Автор - _Boroda_
Дата добавления - 27.10.2016 в 14:37
китин Дата: Четверг, 27.10.2016, 15:14 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
[vba]
Код
d_ = DateValue(n1_)
[/vba]
после этого и вылезает.
Excel какой?
десятый
К сообщению приложен файл: 0988618.gif (81.8 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852


Сообщение отредактировал китин - Четверг, 27.10.2016, 15:18
 
Ответить
Сообщение[vba]
Код
d_ = DateValue(n1_)
[/vba]
после этого и вылезает.
Excel какой?
десятый

Автор - китин
Дата добавления - 27.10.2016 в 15:14
китин Дата: Четверг, 27.10.2016, 15:36 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016 г\Октябрь 2016 г.xlsm

вот такой
папка\ подпапка\ файл переименованный


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852


Сообщение отредактировал китин - Четверг, 27.10.2016, 15:38
 
Ответить
Сообщение
Цитата
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016 г\Октябрь 2016 г.xlsm

вот такой
папка\ подпапка\ файл переименованный

Автор - китин
Дата добавления - 27.10.2016 в 15:36
_Boroda_ Дата: Четверг, 27.10.2016, 15:43 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
На хвосте должен быть "\месяц год"
Цитата китин, 27.10.2016 в 10:03, в сообщении № 1
\Октябрь 2016

Убери пробел и букву "г" в названии папки

файл переименованный
Ты про какой файл? Про мой? Нафига его называть "Октябрь", если он одинаковый будет лежать во всех папках? Назови нейтрально как-то, типа "Переименовщик"

Вот так должно получиться
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016\Переименовщик.xlsm


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
На хвосте должен быть "\месяц год"
Цитата китин, 27.10.2016 в 10:03, в сообщении № 1
\Октябрь 2016

Убери пробел и букву "г" в названии папки

файл переименованный
Ты про какой файл? Про мой? Нафига его называть "Октябрь", если он одинаковый будет лежать во всех папках? Назови нейтрально как-то, типа "Переименовщик"

Вот так должно получиться
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016\Переименовщик.xlsm

Автор - _Boroda_
Дата добавления - 27.10.2016 в 15:43
SLAVICK Дата: Четверг, 27.10.2016, 16:18 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Попаразитничал немного на файле Александра.
Кода много было лень писать :D так что так:
[vba]
Код
Sub D()
Dim objFSO As Object, sFileName, sNewFileName
If Dir([E7], vbDirectory) = "" Then MkDir [E7]
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each C In [B8:B10]
sFileName = C.Value
sNewFileName = C.Offset(, 4).Value
    If Not Dir(sFileName, 16) = "" Then
        If Not Dir(sNewFileName, 16) = "" Then Kill sNewFileName
        Call objFSO.CopyFile(sFileName, sNewFileName)
    End If
Next
End Sub
[/vba]
Разархивируйте архив, откройте файл в корне папки - там вроде все понятно ^_^ .
перевложил архив.
К сообщению приложен файл: 222.rar (59.0 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеПопаразитничал немного на файле Александра.
Кода много было лень писать :D так что так:
[vba]
Код
Sub D()
Dim objFSO As Object, sFileName, sNewFileName
If Dir([E7], vbDirectory) = "" Then MkDir [E7]
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each C In [B8:B10]
sFileName = C.Value
sNewFileName = C.Offset(, 4).Value
    If Not Dir(sFileName, 16) = "" Then
        If Not Dir(sNewFileName, 16) = "" Then Kill sNewFileName
        Call objFSO.CopyFile(sFileName, sNewFileName)
    End If
Next
End Sub
[/vba]
Разархивируйте архив, откройте файл в корне папки - там вроде все понятно ^_^ .
перевложил архив.

Автор - SLAVICK
Дата добавления - 27.10.2016 в 16:18
китин Дата: Пятница, 28.10.2016, 11:29 | Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Доброго всем дня. Вчера не смог-позвали совещаться.
Саша. работает, папку создает, но файлы внутри не переименовывает :'(


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеДоброго всем дня. Вчера не смог-позвали совещаться.
Саша. работает, папку создает, но файлы внутри не переименовывает :'(

Автор - китин
Дата добавления - 28.10.2016 в 11:29
китин Дата: Пятница, 28.10.2016, 11:33 | Сообщение № 12
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Слава , выдает вот это
К сообщению приложен файл: 0223344.gif (40.6 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеСлава , выдает вот это

Автор - китин
Дата добавления - 28.10.2016 в 11:33
_Boroda_ Дата: Пятница, 28.10.2016, 11:48 | Сообщение № 13
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Ох, как сложно жить!!!
Попробуй всю папку из архива распаковать в папку
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ
Общий путь должен получиться таким
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016
Потом открой там файл Переименовщик и ткнись в кнопку
К сообщению приложен файл: _2016.7z (21.4 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеОх, как сложно жить!!!
Попробуй всю папку из архива распаковать в папку
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ
Общий путь должен получиться таким
C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016
Потом открой там файл Переименовщик и ткнись в кнопку

Автор - _Boroda_
Дата добавления - 28.10.2016 в 11:48
SLAVICK Дата: Пятница, 28.10.2016, 12:08 | Сообщение № 14
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
выдает вот это

так нужно было разорвать связь с файлом... видать что-то копировал оттуда.
Вот смотрите сейчас.
К сообщению приложен файл: 1874527.zip (58.4 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
выдает вот это

так нужно было разорвать связь с файлом... видать что-то копировал оттуда.
Вот смотрите сейчас.

Автор - SLAVICK
Дата добавления - 28.10.2016 в 12:08
китин Дата: Пятница, 28.10.2016, 12:13 | Сообщение № 15
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Ох, как сложно жить!!!

и не говори!!!!!
Все работает отлично .Спасибо


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Ох, как сложно жить!!!

и не говори!!!!!
Все работает отлично .Спасибо

Автор - китин
Дата добавления - 28.10.2016 в 12:13
китин Дата: Пятница, 28.10.2016, 12:22 | Сообщение № 16
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Вот смотрите сейчас.

Спасибо Слава. все работает


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Вот смотрите сейчас.

Спасибо Слава. все работает

Автор - китин
Дата добавления - 28.10.2016 в 12:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переименовать файл в зависимости от названия папки. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!