Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA: запуск макроса по нажатию кнопки меню "Сохранить" или "Сохранить как..."
 
#1
19.11.2013 17:34:16
Здравствуйте уважаемые
возник вопрос и не совсем представляю как правильно спросить даже чтобы получить правильный ответ в поиске.
Мне надо при нажатии кнопки "Сохранить" в меню или Файл \ "Сохранить как.." вызвать диалог сохранения файла и подставить в поле Имя файла имя которое будет собрано из значений определенных ячеек (с созданием имени вопросов нет).
Заранее благодарен за подсказки
 
 
 
#2
19.11.2013 18:38:48
В модуль книги:

Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim fName
    Application.EnableEvents = 0
    fName = Application.GetSaveAsFilename(InitialFileName:="h:\TMP\" & [a1], _
                                          fileFilter:="xls Files (*.xls), *.xls")
    If fName <> False Then
        MsgBox "Save as " & fName
    End If
    ThisWorkbook.SaveAs fName
    Application.EnableEvents = -1
    Cancel = True
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#3
20.11.2013 11:37:49
К сожалению не работает. Вообще никак не вызывается макрос.
На листе книги, в модуль которой вставил этот макрос, есть Private Sub Worksheet_Change и скрытые лисы. Может это быть причиной?
 
 
 
#4
20.11.2013 11:43:26
Вы что ее в модуль листа вставили?
Я сам - дурнее всякого примера! ...
 
 
 
#5
20.11.2013 11:44:38
нет, в модуль книги. в модуле листа свой макрос отслеживающий изменения ячеек
 
 
 
#6
20.11.2013 11:48:38
У Вас путь существуюший указан?
Выполните откуда угодно:
Application.EnableEvents = -1
а потом сохраняйте.
Я сам - дурнее всякого примера! ...
 
 
 
#7
20.11.2013 11:54:39
Кстати заметил не то, что бы косяк - небольшая корявость, лучше так:

Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim fName
    Application.EnableEvents = 0
    fName = Application.GetSaveAsFilename(InitialFileName:="C:\" & Sheets(1).[a1], _
                                          fileFilter:="xls Files (*.xls), *.xls")
    If fName <> False Then
        MsgBox "Save as " & fName
        ThisWorkbook.SaveAs fName
    End If
    Application.EnableEvents = -1
    Cancel = True
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#8
20.11.2013 12:03:21
не работает. может пример выслать в почту? )
 
 
 
#9
20.11.2013 12:15:20
Тут работает?
Я сам - дурнее всякого примера! ...
 
 
 
#10
20.11.2013 12:24:10
всё. теперь понял.
вставлял в в Project\Modules\Module1, а надо было  Project\Objects\Эта книга
спасибо большое
 
 
 
Страницы: 1
Читают тему
Наверх