Иллюстрированный самоучитель по Access 2002

       

Закрытие объектов Workbook и Application


Объект Microsoft Worksheet закрыть нельзя. Для закрытия объекта Excel Workbook может быть использован метод Close, а для выхода из приложения — метод Quit. Следующие операторы закрывают объект Workbook и затем осуществляют выход из приложения сервера автоматизации, освобождая системные ресурсы:

xlwProd.Close

xlaProd.Quit

Set xlsProd = Nothing

Set xlwProd = Nothing

Set xlaProd = Nothing

Если программно были внесены изменения в рабочем листе, то при закрытии объекта Workbook будет выдан вопрос о необходимости сохранения изменений. Если вы не хотите, чтобы пользователь получил такой вопрос, введите аргумент False для метода Close. Чтобы гарантировать освобождение всех ресурсов, необходимо освободить все использованные объектные переменные.

Замечание

После присвоения переменной, указывающей на объект Application значения Nothing, соответствующее приложение не закрывается, хотя память, занятая переменной, освобождается. Поэтому необходимо закрывать приложение с помощью метода Quit перед освобождением соответствующей объектной переменной.

Создание рабочего листа Excel с помощью кода автоматизации

Те же действия, что происходят при нажатии кнопки



Анализ в MS Excel,

можно осуществить при помощи кода автоматизации VBA. Преимуществом такого способа является возможность форматировать созданный объект специально под нужды конкретного приложения. Рассмотрим функцию CreateCustomSheet (), создающую новый объект Worksheet и заполняющую его данными из таблицы "Товары" базы данных Microsoft Access:

Function CreateCustomSheet() As Integer

'Создание рабочего листа MS Excel из таблицы "Товары"

'Описание локальных переменных

'(Объектные переменные описаны на уровне модуля)

Dim сйэБорей As Database 'Текущая база данных

Dim rstProd As Recordset 'Объект Recordset

Dim intRow As Integer 'Счетчик строк

Dim intCol As Integer 'Счетчик столбцов

'Открытие таблицы в текущей базе данных

Set dbБорей = CurrentDb()


Set rstProd = dbBopeu.OpenRecordset("Товары", dbdpenTable)

DoCmd.Hourglass True ' Создание нового объекта Excel Workbook

Set xlwProd = CreateObject("Excel.Sheet") ''Создание объекта

Application для применения метода Quit

Set xlaProd = xlwProd.Parent

intRow = 1

intCol = 1

rstProd.MoveFirst 'Переход к первой записи

Do Until rstProd.EOF

'Цикл с шагом в одну запись

For intCol = 1 То rstProd.Count

'Цикл с шагом в одно поле

If (Not IsNull(rstProd(intCol -1))) Then

xlwProd.ActiveSheet.Cells(intRow, intCol).Value =

CStr(rstProd(intCol -I}}

End If

Next intCol

rs t Prod.MoveNext intRow = intRow + 1 Loop

For intCol = 1 To xlwProd.ActiveSheet.Columns.Count

'Форматирование каждого столбца рабочего листа

xlwProd.ActiveSheet.Columns(intCol).Font.Size = 8

xlsCust.ActiveSheet.Columns(intCol).AutoFit If intCol = 8 Then

'Выравнивание по левому краю числовых и

'смешанных почтовых кодов

xlwProd.ActiveSheet.Columns(intCol).HorizontalAlignment = _

xlLeft

End If

Next

intCol DoCmd.Hourglass False

xlwProd.SaveAs (CurDir & "\Товары_2.xls")

xlaProd.Quit End Function

Тип данных, возвращаемых выражением rstProd(intCol-l), следует специально изменить с variant на string при помощи функции cstr(), иначе Microsoft Excel вместо нужной величины отобразит в соответствующем столбце #н/д (#N/A#). Если объект Recordset содержит поля, типы которых отличны от Text, то для определения типа данных в столбце используйте соответствующую функцию СТуре().

Константа xlLeft, присвоенная в качестве значения свойству HorizontalAlignment восьмого столбца, представляет собой встроенную константу Excel, определяемую в тот момент, когда устанавливается ссылка на объектную библиотеку Microsoft Excel 10.0 Object Library. Выделение элемента

Constants


(Константы) в списке

Модули/ Классы


окна просмотра объектов при подключенной библиотеке Excel отображает константы xlConst. На рис. 15.30 приведено числовое значение константы xlLeft, которая является одной из констант для задания значения свойства HorizontalAlignment.


Содержание раздела