Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 12:29:47

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  подскажите, пожалуйста, макрос, чтобы сохранял файл "сохранить как"
Страниц: [1]   Вниз
Печать
Автор Тема: подскажите, пожалуйста, макрос, чтобы сохранял файл "сохранить как"  (Прочитано 3499 раз)
0 Пользователей и 2 Гостей смотрят эту тему.
Kolobok27
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 18


Просмотр профиля
« : 23.08.2019, 15:15:44 »

Уважаемые знатаки, у меня есть кнопка макроса, после нажатия которой, предлагается выбрать файл, и на основе его данных, заполняется таблица. Мне надо добавить в код строчки, которые после нажатия кнопки и создания файла, будут предлагать сохранить новый файл и предлагать присвоить ему имя, которое вводится вручную.
Есть какие-то варианты?
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #1 : 23.08.2019, 15:58:58 »

Здравствуйте,
Метод Application.GetSaveAsFilename вам в помощь
Код: (vb)
    ActiveWorkbook.SaveAs _
        Filename:=Application.GetSaveAsFilename( _
                    FileFilter:="Excel Files (*.xlsx), *.xlsx", _
                    Title:="Save Workbook", _
                    InitialFileName:=Environ("USERPROFILE") & "\Desktop\"), _
        FileFormat:=xlWorkbookNormal
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Kolobok27
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 18


Просмотр профиля
« Ответ #2 : 26.08.2019, 14:01:18 »

Спасибо!!!

Можете подсказать отдельный код для создания кнопки, чтобы сохраняла файл (путь и имя файла выбираются вручную)?
Заранее благодарен за помощь!
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #3 : 26.08.2019, 14:03:49 »

Добрый день,
он перед вами.
или нажмите клавишу F12
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Kolobok27
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 18


Просмотр профиля
« Ответ #4 : 26.08.2019, 14:54:32 »

а можно как-то сделать так, чтобы макрос не выдавал ошибку, если нажать отмену во время сохранения файла?
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #5 : 26.08.2019, 15:57:24 »

можно
в справке все расписано
Код: (vb)
Sub test()
Dim vFileName As Variant
    vFileName = Application.GetSaveAsFilename( _
                    FileFilter:="Excel Files (*.xlsx), *.xlsx", _
                    Title:="Save Workbook", _
                    InitialFileName:=Environ("USERPROFILE") & "\Desktop\")
                   
    If vFileName <> False Then ActiveWorkbook.SaveAs Filename:=vFileName, FileFormat:=xlWorkbookNormal
End Sub
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru