Здравствуйте! Помогите, пожалуста, исправить макрос.Макрос применяется к файлам с разными именами, хотелось бы чтобы при сохранении файла присваивалось первоначальное имя, а не "FALSE" как сейчас, и желательно без вопроса "Файл с таким именем существует.Заменить?"
Вот часть макроса:
ActiveWindow.SelectedSheets.PrintPreview
ChDir "C:\Documents and Settings\Марина\Мои документы\"
ActiveWorkbook.SaveAs Filename:=Dir_name = "C:\Documents and Settings\Марина\Мои документы\", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Вот часть макроса:
ActiveWindow.SelectedSheets.PrintPreview
ChDir "C:\Documents and Settings\Марина\Мои документы\"
ActiveWorkbook.SaveAs Filename:=Dir_name = "C:\Documents and Settings\Марина\Мои документы\", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False