Страницы: 1
RSS
сохранение под первоначальным именем
 
Здравствуйте! Помогите, пожалуста, исправить макрос.Макрос применяется к файлам с разными именами, хотелось бы чтобы при сохранении файла присваивалось первоначальное имя, а не "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
 
Вы немного напутали с синтаксисом.  
 
Правильно будет так:  
 
Sub test()  
   ActiveWindow.SelectedSheets.PrintPreview  
   ПутьКПапке = "C:\Documents and Settings\Марина\Мои документы\"  
   ActiveWorkbook.SaveAs ПутьКПапке & ActiveWorkbook.Name, xlNormal  
End Sub
 
Огромное-преогромное спасибо!
Страницы: 1
Читают тему
Наверх
Loading...