Переименовать файл в зависимости от названия папки.
китин
Дата: Четверг, 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 г. План Декабрь, Январь, Февраль.
Всем доброго времени суток! По сути вся задача в названии темы. Есть некая папка ,которая лежит в сети примерно по такому адресу:Цитата
'\\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
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение можно простенький макрос для переименования например тут Автор - SLAVICK Дата добавления - 27.10.2016 в 11:22
_Boroda_
Дата: Четверг, 27.10.2016, 13:34 |
Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Можно положить в эту папку специальный файл-переименовщик Там кнопка. Не оптимизировал ничего и только для 3-х твоих файлов
Можно положить в эту папку специальный файл-переименовщик Там кнопка. Не оптимизировал ничего и только для 3-х твоих файлов _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Вот такое вылазиет
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение Вот такое вылазиет Автор - китин Дата добавления - 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 какой? Где у тебя этот файл лежит? Полный путь к нему какой?
Открой модуль листа и пробегись через F8 по макросу. Посмотри, где ругань. Покажи на картинке. Excel какой? Где у тебя этот файл лежит? Полный путь к нему какой? _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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][/vba] после этого и вылезает. десятый
[vba][/vba] после этого и вылезает. десятый китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Четверг, 27.10.2016, 15:18
Ответить
Сообщение [vba][/vba] после этого и вылезает. десятый Автор - китин Дата добавления - 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
вот такой папка\ подпапка\ файл переименованный
Цитата
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
На хвосте должен быть "\месяц год" Цитата китин, 27.10.2016 в 10:03, в сообщении № 1 \Октябрь 2016
Убери пробел и букву "г" в названии папки Ты про какой файл? Про мой? Нафига его называть "Октябрь", если он одинаковый будет лежать во всех папках? Назови нейтрально как-то, типа "Переименовщик" Вот так должно получитьсяC:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016\Переименовщик.xlsm
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Попаразитничал немного на файле Александра. Кода много было лень писать так что так: [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] Разархивируйте архив, откройте файл в корне папки - там вроде все понятно . перевложил архив.
Попаразитничал немного на файле Александра. Кода много было лень писать так что так: [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
К сообщению приложен файл:
222.rar
(59.0 Kb)
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение Попаразитничал немного на файле Александра. Кода много было лень писать так что так: [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
Слава , выдает вот это
Слава , выдает вот это китин
Не судите очень строго:я пытаюсь научиться ЯД 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 Потом открой там файл Переименовщик и ткнись в кнопку
Ох, как сложно жить!!! Попробуй всю папку из архива распаковать в папку C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ Общий путь должен получиться таким C:\Users\i.rakitin\Documents\ПЛАНИРОВАНИЕ\Октябрь 2016 Потом открой там файл Переименовщик и ткнись в кнопку _Boroda_
К сообщению приложен файл:
_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
так нужно было разорвать связь с файлом... видать что-то копировал оттуда. Вот смотрите сейчас.
так нужно было разорвать связь с файлом... видать что-то копировал оттуда. Вот смотрите сейчас.SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение так нужно было разорвать связь с файлом... видать что-то копировал оттуда. Вот смотрите сейчас.Автор - 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