Збереження і закриття робочих книг

Dim MyWB as Workbook

Dim MyWB As Workbook

Set MyWB =Workbooks.Add

Як завжди, використання ключового слова Set обов'язково, якщо змінній привласнюється значення посилання на об'єкт. Змінна MyWB посилається на тільки що створену робочу книгу, і тепер її можна використовувати для звернення до даної книги. Крім того, посилання на цю книгу поміщається також в колекцію Workbooks.

Якщо потрібно відкрити вже існуючу робочу книгу (файл якої збережений на диску), використовуйте метод Ореn:

Workbooks.Open (Fileпame)

Аргумент Fileпame - це назва файлу робочої книги, яку слід відкрити (з вказівкою повного шляху, якщо існує така необхідність). Цей метод відкриває існуючу робочу книгу, поміщає посилання на неї в колекцію Workbooks і повертає це посилання як результат. Наприклад:

Set MyWB:= WоrkBооkS.Ореn("с:\ отчеты\ продажи.хls")

Якщо вказаний файл не існує або не може бути відкритий з якої-небудь причини (наприклад, якщо цей файл вже відкритий іншим додатком), виникає помилка виконання програми.

Щоб зберегти робочу книгу з використанням її поточної назви, викличте метод Save. Поточною є назва, привласнена робочій книзі в результаті виклику методу SaveAs чи ж стандартна назва (Книгаl, Книга2 і т.д.), привласнена їй у момент створення. Метод Save не має аргументів.

Щоб зберегти робочу книгу з новою назвою, використовуйте метод SaveAs:

WB.SaveAs (Filename)

WВ - це посилання на робочу книгу, що зберігається, а Filename - це назва файлу в якому дана робоча книга повинна бути збережена. Якщо в назві файлу не вказано розширення. XLS, то його буде додано автоматично.

Назва файлу може бути дана з вказівкою повного шляху, якщо робочу книгу необхідно зберігати не в тій папці, яка застосовується за умовчанням. Наприклад:

МояКнига. SaveAs ("g: \ отчеты\ продажи\ березень. xls")

Метод SaveAs має також декілька необов'язкових аргументів, використовуваних для призначення робочій книзі пароля, визначення режиму резервного копіювання і інших параметрів збереження. Повний список аргументів методу SaveAs приведений в довідковій системі VBA.

Метод SaveCopyAs дозволяє зберегти робочу книгу у файлі з іншим ім'ям, не змінюючи назви самої робочої книги:

WВ.SаvеСоруАs(Filеnаmе)

Закриття робочої книги здійснюється шляхом виклику методу Close:

WВ. Close (SaveChanges, Filename, RouteWorkbook)

Далі буде представлений опис аргументів методу Close:

- SaveChanges. Якщо даному аргументу передається значення True, зміни, внесені після останнього збереження, будуть збережені, якщо ж False, - ні. У тому випадку, коли значення аргументу не вказане, користувач повинен буде підтвердити своє бажання зберегти зміни.

- Filename. Даний аргумент визначає назву файлу, в якому буде збережена робоча книга. Якщо значення аргументу не вказане, книга зберігається з своєю колишньою назвою. Якщо робочій книзі не привласнюють назву, відмінну від стандартного (Книгаl, Книга2 і т.д.) і при виклику методу цьому аргументу не привласнюється ніяке значення, користувачу буде запропоновано вказати назву книги, що зберігається.

- RouteWorkbook. Цей аргумент має значення тільки в тому випадку, якщо передбачена розсилка даної робочої книги, яка раніше не виконувалася. Якщо аргументу передається значення True, розсилка виконується, якщо значення False - ні. Якщо розсилка передбачена, але значення аргументу не вказане, в запиті користувач повинен вказати необхідність виконання розсилки.

Приклад використання конструкції For Next In для закриття всіх відкритих робочих книг (при цьому зберігаються всі внесені зміни):

Дата добавления: 2014-01-05