Как вывести стандартное диалоговое окно MS Excel?

Категория: Basic

2012-07-27 13:52:05

code: #vba

Application.Dialogs(xlDialogPrint).Show
Application.Dialogs(xlDialogDefineStyle).Show
Application.Dialogs(xlDialogWorkbookName).Show

С помощью необязательных аргументов метода .Show можно управлять стандартным диалоговым окном:

code: #vba

Application.Dialogs(xlDialogPrint).Show Arg1:=2, Arg2:=5, Arg3:=10, Arg4:=3

Также возможно "отловить" нажатие кнопок Отмена или Закрыть [X]

code: #vba

iOpenFile = Application.Dialogs(xlDialogOpen).Show _
            (Arg1:="C:\Sample\", Arg2:=False)
 
If iOpenFile = True Then
   MsgBox "Вы открыли " & ActiveWorkbook.Name
Else
   MsgBox "Вы не открыли нужную рабочую книгу"
End If

Поделиться:

Sample Code

категории

Как вывести стандартное диалоговое окно MS Excel?

Похожие статьи: