Всем доброе время суток! Есть макрос, после обработки которого вылетает окно с сохранением (имя файла берется автоматически с ячейки "А31" :
НО..
как переписать макрос, чтобы файл сохранялся автоматически (без подтверждения кнопки: "Сохранить" в папку откуда открыт файл?
Заранее спасибо.
Код |
---|
Имя_для_сохранения = [A31] FName = Application.GetSaveAsFilename(InitialFileName:=Имя_для_сохранения, _ FileFilter:="Excel Files (*.xls), *.xls", _ Title:="Выберите имя файла для сохранения") If VarType(FName) <> vbBoolean Then ThisWorkbook.SaveAs FName |
как переписать макрос, чтобы файл сохранялся автоматически (без подтверждения кнопки: "Сохранить" в папку откуда открыт файл?
Заранее спасибо.