Вывести стандартное диалоговое окно MS Excel — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Application.Dialogs(xlDialogPrint).Show
Application.Dialogs(xlDialogDefineStyle).Show
Application.Dialogs(xlDialogWorkbookName).Show
С помощью необязательных аргументов метода .Show можно управлять стандартным диалоговым окном:
 
Application.Dialogs(xlDialogPrint).Show Arg1:=2, Arg2:=5, Arg3:=10, Arg4:=3
Также возможно "отловить" нажатие кнопок Отмена или Закрыть [X]
 
iOpenFile = Application.Dialogs(xlDialogOpen).Show _
            (Arg1:="C:\Sample\", Arg2:=False)
  
If iOpenFile = True Then
   MsgBox "Вы открыли " & ActiveWorkbook.Name
Else
   MsgBox "Вы не открыли нужную рабочую книгу"
End If

Похожие записи/страницы:

Leave a Comment