Клиентите и сървъри за автоматизация
Когато интегриране на двете заявления един предлага на своите съоръжения, които се използват, а другият използва обекта на първата заявка.
- предмети за кандидатстване, които са достъпни за други приложения, наречени автоматизация сървър (понякога се нарича като компонент)
- Приложение, което използва предмети от друго приложение, наречено клиент (или контролера) автоматизация. Обектите, които са на разположение на други приложения, по-нататък за автоматизация на обекти
За автоматизация софтуер за управление на обект на от всяко приложение на Microsoft Office, трябва да:
- Задайте препратка към сървъра на приложения за автоматизация на обекта библиотека.
- Създаване на желания обект клас.
- За да се извърши всички необходими действия за обекта, отнасящи се до неговите свойства и методи.
- Затваряне на обекта.
Microsoft Access като клиент за автоматизация
За да се създаде обект за използване в автоматизирането на операции, първо трябва да се създаде инстанция на класа си и възлага линк към него от променлив обект. Въпреки това, не можете да създадете всеки обект от модела на обекта на сървъра на приложения, и единствените световни обекти. По този начин световната обекта за всички модели на обекта на Microsoft Office семейство на заявления е обект на приложения, който е на върха на йерархията обект.
С помощта на новата ключова дума
Тази ключова дума описва променлива на обект и едновременно с това създава препратка към нова инстанция на обекта.
Дим приложение Както Ню Excel.Application
Когато използвате нова ключова дума, за да се създаде нова инстанция на класа за кандидатстване започва съответното приложение (например Word или Excel). Ако това приложение вече е стартиран, той не е да тече втора инстанция, по-добре е да се използва за създаване на нова инстанция на клас GetObject на () функция
Под PowerPointOpenFile_Click ()
На Error GoTo Err_
Дим strAppName Както стринга
Дим приложение Както Ню PowerPoint.Application
strAppName = CurrentProject.Path "\ Prezentatsiya1.ppt"
С приложението
.Видим = True
.Presentations.Open strAppName
завършва с
Комплект приложение = Нищо
Exit_:
Exit Sub
Err_:
MsgBox Err.Description
Възобновяване Exit_
End Sub
Използване CreateObject () функция
Комплект приложение = CreateObject ( "Excel.Application")
променлив обект в този случай може да бъде обявен за обект, а след това се свържете с библиотеката на Microsoft Word обекти не трябва да се инсталира. И това може да бъде обявена, както следва:
Дим приложение Както Excel.Application
Комплект приложение = CreateObject ( "Excel.Application.11")
Един пример за използване на функцията:
Под ExcelOpenFile ()
На Error GoTo Err_
Дим strAppName Както стринга
Дим приложение Както Excel.Application
strAppName = CurrentProject.Path "\ Kniga1.xls"
Комплект приложение = CreateObject ( "Excel.Application")
С приложението
.Видим = True
.Workbooks.Open strAppName
завършва с
Комплект приложение = Нищо
Exit_:
Exit Sub
Err_:
MsgBox Err.Description
Възобновяване Exit_
End Sub
Използване на функция GetObject ()
Този метод се използва, за да получите препратка към съществуваща инстанция на класа, т.е.. Д. За достъп до съществуващите документи, съхранени във файлове или за достъп до обекта за кандидатстване вече е стартиран сървър приложения. Getobject () функция има следния синтаксис:
Задайте <объектнаяПеременная> = Getobject ([<путь>] [<класс>])
Той трябва да съдържа най-малко един от аргументите на функцията!
Помислете три начина на писане на функции:
- Комплект приложение = GetObject ( "Excel.Application")
тук първия параметър попада - тогава функцията работи подобно на горното, два - просто да се създаде обект инстанция на класа.
- Комплект приложение = GetObject ( "C: \ Базе \ Kniga1.xls", "Excel.Application")
Ето и двата начина - път и файл името на приложението. В този случай, файлът се стартира Kniga.xls
- Комплект приложение = GetObject ( "C: \ Базе \ Kniga1.xls")
Един пример за използване на функцията:
Под WordOpenFile ()
На Error GoTo Err_
Дим strAppName Както стринга
Дим приложение Както Word.Application
strAppName = CurrentProject.Path "\ Doc1.doc"
Комплект приложение = GetObject ( "", "Word.Application")
С приложението
.Видим = True
.Documents.Open strAppName
завършва с
Комплект приложение = Нищо
Exit_:
Exit Sub
Err_:
MsgBox Err.Description
Възобновяване Exit_
End Sub
След като бъдат направени всички необходими операции за сървъри на приложения обекти, тези обекти трябва да бъдат затворени, за да освободите памет, заета от тях. Повечето обекти подкрепят методи за това близо или откажат. Освен това трябва да се освободи променливата на обект, като я присвоите стойност от нищо.
Приложеният пример показва опции статия отворени документи на Word, Excel, Power Point. За промяна, един от трите начина за отваряне се използва за всеки документ. Но, разбира се, някой от документите, може да се отвори по никакъв начин.
Downloads