сохранение книги без вопроса замены

сохранение книги без вопроса замены - Макрос

Daulet Пользователь Сообщений: 626 Регистрация: 01.01.1970	#1 18.11.2011 11:15:46 Здравствуйте! Как можно сохранить книгу без вопроса замены с помощью макроса Заранее спасибо Всем!!! Excel 2007

Daulet Пользователь Сообщений: 626 Регистрация: 01.01.1970	#2 18.11.2011 11:32:52 Фото Прикрепленные файлы post_279437.jpg (12.87 КБ) Excel 2007

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#3 18.11.2011 11:34:42 Application.DisplayAlerts = False ' Тут код сохранения файла Application.DisplayAlerts = True Редко но метко ...

Daulet

Пользователь

Сообщений: 626 Регистрация: 01.01.1970

18.11.2011 11:44:18

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As String
ActiveWorkbook.Save
strPath = ActiveWorkbook.Path & "\Temp\"
On Error Resume Next
x = GetAttr(strPath) And 0
If Err = 0 Then ' если путь существует - сохраняем копию книги
strdate = Format(Now, "yyyy/mm")
ActiveWorkbook.SaveAs Filename:=strPath & strdate & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Application.DisplayAlerts = True
'Application.DisplayAlerts = false
End If

End Sub

GIG_ant не получается
се равно спрашивает заменить книгу (Да,Нет,Отмена)

Excel 2007

Daulet Пользователь Сообщений: 626 Регистрация: 01.01.1970	#5 18.11.2011 11:47:04 Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim x As String ActiveWorkbook.Save Application.DisplayAlerts = false strPath = ActiveWorkbook.Path & "\Temp\" On Error Resume Next x = GetAttr(strPath) And 0 If Err = 0 Then ' если путь существует - сохраняем копию книги strdate = Format(Now, "yyyy/mm") ActiveWorkbook.SaveAs Filename:=strPath & strdate & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Application.DisplayAlerts = True End If End Sub GIG_ant понял Спасибо! Excel 2007

Читают тему