как программно записать документ поверх этого же но под другим именем

[Bezdar]

Здравствуйте, уважаемые профи!
Подскажите, пожалуйста, как программно записать документ поверх этого же, но под другим именем. Например, есть "Книга1". Лежит она в опеределенной папке на ПМЖ, но гуляет между пользователями. Как программно сохранить эту же книгу в этой же папке, но под другим именем? Сейчас она "Книга1", потом она же будет "Книга1_1", потом "Книга1_2" и тыды. Чего-то я как-то и не соображу
Помажите.
Спасибо!

[Казанский]

Пробуйте функцию

Function NewName() As String
Dim n$, i&, j&, ext$
  n = ThisWorkbook.FullName
  i = InStrRev(n, ".")
  ext = Mid$(n, i)                        'расширение с точкой
  n = Left$(n, i - 1)                     'путь без расширения
nameWoExt:
  i = InStrRev(n, "_")
  If i Then                               'есть "_"
    If IsNumeric(Mid$(n, i + 1)) Then     'после "_" номер
      j = Mid$(n, i + 1)
      n = Left$(n, i)
      Do
        j = j + 1
        NewName = n & j & ext
      Loop Until Dir(NewName) = ""
    Else: GoTo noNum
    End If
  Else
noNum:
    n = n & "_0"
    GoTo nameWoExt
  End If
End Function

По идее, для сохранения с новым именем надо выполнить

thisworkbook.SaveAs newname

[Bezdar]

Спасибо!
Я, конечно, ничего не поняла. Тупо скопировала. Результат меня не порадовал. Мне нужно чтобы в папке была одна! единственная книга "Книга1" (она же либо будет "Книга1_1", либо будет "Книга1_2", либо будет "Книга1_3" и тыды). А не десять, и не двадцать книг с разными индексами.
Как то так

[Казанский]

Пробуйте. Возможно, надо будет ввести задержку между сохранением и удалением, особенно если это сетевой диск.

Sub SaveMeWithNewName()
Dim oldName$
  oldName = ThisWorkbook.FullName
  ThisWorkbook.SaveAs NewName
  Kill oldName
End Sub

[Bezdar]

Огромное спасибо!!!
Все слова знакомые. Все работает. Я тоже, грешным делом, подумывала об удалении старого файла. А тут вы с уже готовым решением!
А все таки заменить файл можно, не прибегая к услугам киллера? Так, для общего развития.

[Hugo121]

Если делать макросом из другой книги, то можно переименовать закрытый файл

name староеимя новоеимя

Но я бы старые варианты вообще не удалял, а переносил в архив. Наверняка когда-нибудь да пригодится предыдущая версия.
Ну совсем старые раз в год можно вручную или кодом удалить, если напрягают.

[Казанский]

Файл можно переименовать. Но для этого он не должен использоваться приложением, т.е. кодом в самОм файле это сделать невозможно. Значит, перед закрытием файла надо создать и запустить файл со скриптом (.bat или .vbs, .js), который через некоторое время (тут без задержки уже 100% не обойдешься) переименует файл, а потом удалит себя.
Можете попробовать

[Bezdar]

Спасибо!
Логику поняла, слишком заморочно (для меня, во всяком случае).
Про архив - дельная мысль.