іх розділів цієї глави, вікно
Immediate в VBE використовується для тестування операторів та перевірки різних виразів
VBA. Рекомендується відображати вікно Immediate, так як воно часто використовується для про-
верки виразів і при налагодженні коду.
1.2.2 Приклади на використання VBA в середовищі Excel
Об'єктна модель
Об'єктна модель MS Excel являє собою ієрархію об'єктів, підпорядкованих одному об'єкту Application, який відповідає самому додатком Excel. Багато з цих об'єктів зібрані в бібліотеці об'єктів Excel, але деякі з них, наприклад, об'єкт Assistant, входять до бібліотеки об'єктів Office, яка є спільною для всіх офісних додатків. br/>
Об'єкт Application
Об'єкт Application - це головний (кореневий) об'єкт в ієрархії об'єктів MS Excel, представляє сам додаток MS Excel. Він має величезну кількість властивостей і методів, які дозволяють встановити загальні параметри програми MS Excel.
В В
Властивості об'єкта Application
Об'єкт Application, завдяки великій колекції властивостей, дозволяє програмно встановити значення багатьох опцій вікна Параметри, відображуваного при виборі команди Сервіс - Параметри. Крім того, він забезпечує доступ до об'єктів верхнього рівня типу ActiveCell, ActiveSheet і т.д. Перелічимо основні властивості цього об'єкта:
ActiveCell ActiveChart
AcfcivePrinter ActiveSheet
ActiveWorkBook AddIns
CellDragAndDrop Charts
Cursor DefaultFilePath
DefaultWebOptions DisplayAlerts
DisplayFormulaBar DisplayScrollBars
EditDirectlylnCell FileSearch
Height LibraryPath
MemoryTotal Names
Organ i zat ionName ProductCode
Referencestyle Selection
StatusBar Top
UsableWidth Version
Windows WorksheetFunction
Сімейство вбудованих діалогових вікон
Властивість Dialogs повертає сімейство всіх вбудованих діалогових вікон. Параметр цього сімейства ідентифікує ВІКНО, метод Show відображає його на екрані, а параметри цього методу задають параметри, спеціфіціруемие у видимій вікні. Метод show повертає значення True, якщо завдання, поставлене у видимій вікні, була виконана успішно. Наприклад, наступний код (лістинг 2) відображає вікно Відкриття документа для відкриття книги C: test.xls.
Лістінг2. Відкриття книги при допомогою вбудованого вікна
Sub DemoDialogs () Dim idx As Long
idx = Application.Dialogs (XlDialogOpen). Show ("з: Test.xls ") If idx Then
MsgBox "Файл відкрито" Else
MsgBox "Файл не відкритий" End If
End Sub.
Об'єкт FileDialog
Об'єкт FileDialog, що повертається властивістю FileDialog об'єкта Application, надає в розпорядження розробника діалогові вікна Відкрити і Зберегти як. Властивість FileDialog має один параметр DiaiogType. задає тип вікна. У цього параметра маються чотири допустимих значення:
msoFileDialogFiiePicker - дозволяє користувачеві вибрати файл;
msoFileDialogFolderPicker - Дозволяє користувачеві вибрати папку;
msoFileDialogopen - дозволяє користувачеві відкрити вибраний файл. Відкриття файлу проводиться методом Execute;
msoFileDialogsaveAs - дозволяє користувачеві зберегти файл. Збе-ня файлу проводиться методом Execute.
Для відображення вікна, сімуліруемого об'єктом FileDialog, необхідно скористатися методом show. Цей метод повертає значення 0, якщо натиснута кнопка Відміна і значення -1, Якщо натиснута інша функціональна кнопка. Для вікон Відкрити і Зберегти як після застосування треба скористатися методом Execute для реалізації обраної команди.
І в наступних трьох прикладах демонструється техніка збереження і завантаження файлу за допомогою вікон, які мають типи msoFileDialogFilePicker (ЛІСТІНГ3), msoFileDialogOpen (Лістинг 4) І msoFileDialogSaveAs (Лістинг 5). p> Лістинг 3. Завантаження файлів за допомогою вікна msoFiieDiaiogFiiePicker
Sub LoadFiles ()
Dim fd As FileDialog
Set fd = Application.FileDialog (msoFileDialogFilePicker) Dim itm As Variant With fd
If. Show = -1 Then
For Each itm In. Selectedlterns
Workbooks.Add itm Next End If End With
Set fd = Nothing
End Sub
В
Лістинг 4. Завантаження файлу за допомогою вікна msoFileDialogOpen
Sub LoadFile ()
Dim fd As FileDialog
Set fd = Application.FileDialog (msoFileDialogOpen) If fd.Show = -1 Then
fd.Execute Else
MsgBox "Вибрали скасування" End If
Set fd = Nothing
End Sub.
Лістинг +5. Збереження файлу з допомогою вікна msoFileDialogSaveAs
Sub SaveFile ()
...
