Основы офисного программирования и язык VBA


Пример 1.2


Public Sub WorkWithExcel()

'НЕ забудьте включить ссылку на Excel в меню References

'Объявление и создание объектов Excel.Application

Dim MyXlApp As New Excel.Application

'Работа с приложением Excel

With MyXlApp

.Visible = True

'Excel появился на линейке и его можно раскрыть

'Добавить новую книгу

.Workbooks.Add

'Теперь можно работать и с ячейками данной книги

.Range("A1") = "Hello!"

'Идет работа с книгой

.Range("B1") = "By-By"

.Workbooks(1).Activate

'Закрываем открытую книгу

MsgBox ("Закрываем рабочую книгу Excel?")

.Workbooks(1).Close

'Будет задан вопрос о необходимости сохранения книги

'Закрываем приложение

.Quit

End With

End Sub

Public Sub WorkWithAccess()

'НЕ забудьте включить ссылку на Access и Dao 3.6 в меню References

'Приложение Access и его компоненты:

'База данных, форма и путь к базе

Dim MyAc As New Access.Application

Dim MFDb As Database

Dim FormPoetAges As Form

Dim PathDb As String

'Открываем базу данных Access

PathDb = "E:\O2000\CD2000\Ch1\AgeOfPoet.mdb"

MyAc.OpenCurrentDatabase (PathDb)

Set MFDb = MyAc.CurrentDb

'Открываем форму

MyAc.DoCmd.OpenForm ("AgeOfPoets")

Set FormPoetAges = MyAc.Forms("AgeOfPoets")

MyAc.Visible = True

FormPoetAges.SetFocus

'Закрываем базу данных

MsgBox ("Закрываем базу данных Access?")

MyAc.Quit

End Sub




Начало  Назад  Вперед



Книжный магазин