Сохранение файла по указанному пути без открытия с удалением макросов

[Whizer]

Здравствуйте! )
Ребята, выручайте.
Нужен макрос, сохраняющий файл с удалением в нём макроса по прописанному пути (в теле макроса), ничего, якобы, сложного. Но! для удобства хотелось бы иметь немного другой функционал.
Попытаюсь подробно описать:

Сейчас происходит так, что после сохранения файла (по указанному пути через макрос) открывается сохранённый файл, а исходник закрывается, а т.к. при сохранении макрос удаляется, то продолжить работу с файлом после его сохранения нельзя (нужно закрывать файл и открывать исходник).

Прошу помощи в написании макроса, который бы позволил сохранять файл c удалением макросов в нём так, чтобы при сохранении не открывался сохранённый файл и продолжалась работа с исходником.

Надеюсь на помощь.

[Watcher_1]

Сохраняйте файл в формате xlsx и в нем не будет никаких макросов. (При условии что ваш офис это 2007 и выше)

[slan]

используйте savecopyas

[Whizer]

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

Сохраняйте файл в формате xlsx и в нем не будет никаких макросов. (При условии что ваш офис это 2007 и выше)

Ругается. "...Формат или расширение являются недопустимыми. Убедитесь, что файл не повреждён и расширение его имени соответствует его формату."

slan, спасибо большое )

Одна проблема решилась, другая возникла, ну как всегда... )
Теперь сохраняется копия файла (это хорошо), но в исходнике умирают все макросы (это плохо).
Как сделать, чтобы макросы удалились в копии, а в исходнике остались?

[Watcher_1]

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

Ругается. "...Формат или расширение являются недопустимыми. Убедитесь, что файл не повреждён и расширение его имени соответствует его формату."

А как вы это делаете?
Пример кода можно?

[Whizer]

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

А как вы это делаете?
Пример кода можно?

Разумеется:

Sub SaveForm_Click()
iPath$ = "Путь сохранения"
    If Dir(iPath$, vbDirectory) = "" Then
       MsgBox "Сообщение об ошибке", vbExclamation
       Exit Sub
    End If
strFileName = Worksheets("Time").Range("F1").Value
 On Error Resume Next
    If Len(strFileName) < 1 Then
        MsgBox "Сообщение о незаполненных необходимых данных", vbCritical
        Range("C1").Select
        End
    End If
Worksheets("Time").Range("A1").Select
    ActiveWorkbook.SaveCopyAs Filename:=iPath$ + strFileName + ".xlsx"
MsgBox "Файл успешно сохранён: " + iPath$ + strFileName + ".xlsx"
End Sub

[Watcher_1]

Вот так попробуйте

ActiveWorkbook.SaveCopyAs Filename:=iPath$ + strFileName + ".xlsx", FileFormat:=xlOpenXMLWorkbook

[Whizer]

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

Вот так попробуйте

ActiveWorkbook.SaveCopyAs Filename:=iPath$ + strFileName + ".xlsx", FileFormat:=xlOpenXMLWorkbook

Named argument not found.

[slan]

наверное, все таки лучше сделать так:

Dim s$
s = ThisWorkbook.FullName
With ActiveWorkbook
    .SaveAs "svnomacro" + ".xlsx", 51
    Workbooks.Open s
    .Close
End With

[Whizer]

Сделал следующим образом.

wb.Sheets(Array("Имя листа")).Copy
ActiveWorkbook.SaveAs Filename:="Имя файла.xlsx", FileFormat:=xlOpenXMLWorkbook, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
wb.Activate

Если нужно скопировать всю книгу, то удаляем строчки wb. или перечисляем все листы.