Сохранение книги с заменой имени на другое - VBA

Формулировка задачи:

Здравствуйте! Возникла такая нужда. Чтобы открытую книгу с данными сохранять в том же месте, но под другим именем. Например открыта книга с названием vvv, её нужно закрыть и сохранить с названием xxx, при этом книгу vvv удалить(чтобы её не было, а превратилась в xxx) я вот такой макрос напаял:

                    Листинг программы
                
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path + "\xxx.xls"

но он копирует рядом файл xxx. а файл vvv остаётся на месте, а нужно что бы его не было больше.

Решение задачи: «Сохранение книги с заменой имени на другое»

textual
                            Листинг программы 
                        
iFileName$ = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\xxx.xls"
Kill iFileName$

Оцени полезность:

9 голосов , оценка 4.222 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы