Переименовать папку и файл

[valerij]

Нужно переименовать папку(с именем Месяца) и в ней файл, автоматом.
Есть папка с именем "Октябрь" в ней файл с тем же именем.
Переименовываем папку и автоматом переименовывается файл и желательно- запускается макрос "Очистка"(Модуль4).


------------- примечание модератора -------------
Посмотрите универсальную надстройку для переименования файлов в папке:
http://excelvba.ru/programmes/RenameFiles

[valerij]

SAS!
Спасибо, как всегда, класс!
А здесь, мона сделать через папку?

[SAS888]

Опишите задачу подробнее. Что нужно сделать?

[valerij]

Сообщение от SAS888

Опишите задачу подробнее. Что нужно сделать?

Есть папка Октябрь в ней файл xls Октябрь, если я переименовываю сам файл в Ноябрь, то все Ок в самом файле все меняется, дата, количество дней.(Ваш продукт)
А хотелось бы, что бы саму папку переименовывать в Ноябрь и что бы и файл, автоматом переименовался по имени папки.

[SAS888]

Вы хотите переименовывать папку "вручную", и чтобы при этом переименовывался и файл в этой папке?
Можно запускать макрос, который будет все это делать

[valerij]

Сообщение от SAS888

Вы хотите переименовывать папку "вручную", и чтобы при этом переименовывался и файл в этой папке?
Можно запускать макрос, который будет все это делать

Да, в ручную, макросом не надо(Потому, что, кончился месяц все ОК, готовлюсь к следующему, делаю копию папки и переименовываю ее в НОЯБРЬ, но файл в ней, даже если Вы задачу сделаете, будет заполнен старыми данными, поэтому, желательно, чтобы запускался макрос "Очистка"(Модуль4)).
Т. е открыл файл, Ноябрь.xls, а он чистый, "готовенький".
Раз мед, так и ложку. Хотелось бы, что бы и ярлык на Рабочем Столе сменился с Октября на Ноябрь!!(Но это, не обязательно)

Во, наворочал!

[КаМММ]

Предлагаю при открытии файла проверять соответствие названию папки и в случае несовпадения переименовывать файл.

Private Sub Workbook_Open()
Путь = ActiveWorkbook.Path
ИмяСтар = ActiveWorkbook.Name
For S = Len(Путь) To 1 Step -1 ' Цикл отсчета с конца
If Mid(Путь, S, 1) = Application.PathSeparator Then GoTo ввв ' Проверяет значек разделитель
ммм = Mid(Путь, S, 1) & ммм ' Добавляет по значку
Имя = ммм
Next S
ввв:
If ActiveWorkbook.Name <> Имя & ".xls" Then ActiveWorkbook.SaveAs Filename:=Путь & Application.PathSeparator & Имя & ".xls"
End Sub

Если нужно при этом запускать какие-то макросы то добавте их сами

[SAS888]

Да, в ручную, макросом не надо

В таком случае, этот вопрос нужно задавать в топике по Windows программированию.
А если, все-таки, с помощью VBA, то предлагаю переименовывать сам файл. Тогда можно автоматом (макросом) переименовывать и родительскую папку и ярлык на рабочем столе, а также запускать Вашу "очистку". Но...
В случае "случайного" переименования файла, все данные будут утеряны (т.к. сработает "очистка"), что есть нехорошо. Поэтому, в подобных случаях, лучше иметь пустой (без данных) файл-шаблон, и при наступлении нового месяца, заменять им имеющийся текущий файл и переименовывать его соответствующим образом. Как я уже говорил, в этом случае, папку и ярлык можно переименовывать, привязавшись к требуемому событию.

[valerij]

Сообщение от SAS888

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

SAS, OK.

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

Случайность исключена, есть копии на 3-х ПК+флешка.
Шаблон не катит, страна такая.....
SAS
А то как предлогает КаМММ??

З.Ы.
Удалить ".rar"

[КаМММ]

Ну максимум стоит ещё добавить проверку соответствия названия папки - месяцу. так как мой макрос если положить файл на рабочий стол и открыть то он и файл назовёт "рабочий стол.xls"
и удаление файла со старым названием добавить.
а так считаю задача решена: название файла соответствует названию папки.