Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сохранение файла в два места., При сохранении файл сохраняется в нескольких местах.
 
#1
24.12.2015 08:43:40
Есть макрос. Сохраняет в файл по адресам, указанным в a1 и a2 под именем в a3. Что изменить чтобы не было запроса что этот файл уже существует в данном месте. Заменить? А было только одно сообщение: Сохранить файл: да нет отмена.
Макрос не мой, ничего в этом не смыслю, поэтому прошу написать код полностью.
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(1, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(2, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
End Sub

Заранее спасибо!
Изменено: kiv3383 - 24.12.2015 12:21:31
 
 
 
#2
24.12.2015 10:33:46
Отключайте сообщения вначале:
Код
Application.DisplayAlerts = 0

В конце не забывайте     вернуть в 1
Я сам - дурнее всякого примера! ...
 
 
 
#3
24.12.2015 11:55:46
kiv3383, код следует оформлять соответствующим тегом. Ищите такую кнопку и исправьте своё сообщение. Спасибо!
 
 
 
#4
24.12.2015 12:24:55
Цитата
KuklP написал:
Отключайте сообщения вначале:
Код?1Application.DisplayAlerts = 0
В конце не забывайте     вернуть в 1
Спасибо за ответ. Не могли бы Вы дать код полностью. Спасибо.
 
 
 
#5
24.12.2015 12:29:25
kiv3383, ну вот зачем процитировали сообщение полностью? На чём хотели сделать акцент?
Запомните - кнопка цитирования не для ответа!
И что в сообщении Сергея (KuklP) непонятно? Одна строка в начале кода, другая в конце.
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = 0
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(1, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(2, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
Application.DisplayAlerts = 1
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх