Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - макрос "Сохранить как..."

< Предыдущая 1 2
Ответить
Настройки темы
VBA - макрос "Сохранить как..."
who who вне форума

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


Сообщения: 67
Благодарности: 0

Профиль | Отправить PM | Цитировать

в моей книге-расчёте есть кнопка
на неё повешен макрос:

Код: Выделить весь код
Private Sub CommandButton35_Click()
Dim wb As Workbook, wbName, wbPath, today As String
 Set wb = Excel.Application.ActiveWorkbook
 wbName = Sheets(1).Cells(2, 2)
 today = Date
 ttime = Format(Time, "hh-mm")
 wbPath = wb.Path
 Sheets(1).Cells(3, 1) = wbPath & "\" & wbName & "_" & today & "_" & ttime & ".xlsm"
If Not Application.Dialogs(xlDialogSaveAs).Show(wbName & "_" & today & ".xlsm") Then
MsgBox "Сохранение отменено!", vbExclamation
End If
End Sub
При пошаговом выполнении пропускается именно выдача диалогового окна без всякой ругани на ошибки, причём даже если опустить в строке:

Код: Выделить весь код
If Not Application.Dialogs(xlDialogSaveAs).Show(wbName & "_" & today & ".xlsm") Then
это:

Код: Выделить весь код
(wbName & "_" & today & ".xlsm")
.

Не работает именно

Код: Выделить весь код
If Not Application.Dialogs(xlDialogSaveAs).Show
раньше был комп win7 x32 и там всё отлично работало:
выдавалось диалоговое окно "Сохранить как..." и в случае нажатия "Отмена" выдавалось сообщение "Сохранение отменено!"
теперь комп поменяли стоит win8.1 x64 и данный макрос просто выдаёт сообщение "Сохранение отменено!" и ничего не сохраняется
может нужно куда подключить какие-нибудь дополнительные библиотеки?

PS: офис был и остался тот же MS Office 2007 из того же самого дистрибутива.

Отправлено: 16:17, 31-08-2015

 
who who вне форума Автор темы

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


Сообщения: 67
Благодарности: 0

Профиль | Отправить PM | Цитировать

как бы странно это не было, но после очередной замены "(5)" на "(xlDialogSaveAs)" всё заработало...
и ведь я не набираю "xlDialogSaveAs" ручками, а подставляю то что предлагает редактор
может были проблемы с содержимым "(wbName & "_" & today & ".xlsm")" и диалоговое окно просто не могло их отобразить...

извините за отнятое время...

Отправлено: 08:16, 31-05-2016 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать

who, трудно сказать, что было. Константа определена в объектной библиотеки самого Excel, в зависимостях эту библиотеку даже нельзя отключить «ручками» (чтобы имя константы не работало)… Ну, заработало — вот и славненько.

Отправлено: 15:22, 31-05-2016 | #12

< Предыдущая 1 2


Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - макрос "Сохранить как..."

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - [решено] Не открывается проводник "Открыть файл..." и "Сохранить как..." T1wka Microsoft Windows 8 и 8.1 14 13-11-2016 16:43
2013 - [решено] Как сделать текущую строку в ворд-файле как "Заголовок 1" через макрос? megagogo Microsoft Office (Word, Excel, Outlook и т.д.) 3 02-03-2015 10:12
Интерфейс - [решено] Как изменить диалог "Сохранить/Сохранить как" ? Ciber SLasH Microsoft Windows 7 5 03-05-2014 18:03
Интерфейс - [решено] "Открыть файл..." и "Сохранить как..." не открывается проводник dembel_zone Microsoft Windows 7 16 24-03-2014 12:33
Не вижу разделов в менюшках "Сохранить как" "Открыть" и т.д. SettiBiz Microsoft Windows 2000/XP 20 14-08-2006 16:23


« Предыдущая тема | Следующая тема »


 
Переход