Вызов формы "Save as" в VBA
Формулировка задачи:
Добрый день.
Пишу макрос для Outlook, в котором нужно вызвать форму "Save as".
Нашла в Additional Controls, расположенном на форме Toolbars, CommonDialog, пытаюсь разместить его на своей форме, а мне пишет, что интерфейс не поддерживается.
Я предполагаю, что не хватает какой-то библиотеки с формами windows, но не могу понять.
Помогите, пожалуйста!
Пользуюсь MS Outlook 2013 и пишу макрос на встроенном в outlook VBA.
Пишу макрос для Outlook, в котором нужно вызвать форму "Save as".
Нашла в Additional Controls, расположенном на форме Toolbars, CommonDialog, пытаюсь разместить его на своей форме, а мне пишет, что интерфейс не поддерживается.
Я предполагаю, что не хватает какой-то библиотеки с формами windows, но не могу понять.
Помогите, пожалуйста!
Пользуюсь MS Outlook 2013 и пишу макрос на встроенном в outlook VBA.
Решение задачи: «Вызов формы "Save as" в VBA»
textual
Листинг программы
Set xlApp = CreateObject("Excel.application")
xlApp.WindowState = -4137 'xlMaximized
xlApp.Caption
xlApp.Visible = False
Set strSaveAsFilename = xlApp.FileDialog(msoFileDialogFolderPicker)
With strSaveAsFilename
.Show
.vbNormalFocus
k = .SelectedItems(1)
End With
If IsEmpty(k) Then Exit Sub
k = IIf(Right(k, 1) = "\", k, k & "\") ' переменная для пути сохранения
xlApp.Quit
Set xlApp = Nothing
...