photosdematures.com

ЦреатеОбјецт функција у ВБА

Објекти су веома важни концепти у ВБА кодирању и разумевање да је модел рада објекта прилично сложен. Када референцирамо објекте у ВБА кодирању, то радимо на два начина, тј. „Рано везивање“ и „Касно везивање“. „Рано везивање“ је поступак постављања референце на објект из библиотеке референци ВБА и када датотеку пошаљемо некоме другом, он такође захтева да постави референцу на те одговарајуће објекте. Међутим, „Касно везивање“ не захтева од корисника да постави референце на објекат, јер у кодирању са касним везивањем постављамо референцу на одговарајући објекат помоћу функције ВБА „ЦреатеОбјецт“.

Шта је ЦреатеОбјецт у програму Екцел ВБА?

„Направи објекат“ како само име каже да ће створити поменути објекат из Екцел ВБА. Дакле, функција Цреате Објецт враћа референцу на објекат који је покренула Ацтиве Кс компонента.

Испод је синтакса функције ЦреатеОбјецт у ВБА

• Класа: Име објекта који покушавамо да покренемо и поставимо референцу на променљиву.
• [Име сервера]: Ово је опциони параметар, ако се занемари, користиће само локалну машину.

Пример креирања функције објекта у програму Екцел ВБА

Испод су примери ВБА ЦреатеОбјецт.

Овај ВБА ЦреатеОбјецт Екцел предложак можете преузети овде - ВБА ЦреатеОбјецт Екцел Предложак

Пример # 1

Сада ћемо видети како покренути ПоверПоинт апликацију из екцела помоћу функције ЦреатеОбјецт у ВБА. Отворите екцел датотеку и идите на Висуал Басиц Едитор Виндов притиском на АЛТ + Ф11 кључ.

Шифра:

 Суб ЦреатеОбјецт_Екампле1 () Крај Суб 

Прогласите променљиву као ПоверПоинт.Апплицатион.

Као што видите горе када почнемо да куцамо реч „ПоверПоинт“, не видимо ниједну интеллисенсе листу која показује повезане претраге, јер је „ПоверПоинт“ спољни објекат. Али без бриге, променљиву прогласите „Објект“.

Шифра:

 Суб ЦреатеОбјецт_Екампле1 () Затамни ППТ као крај објекта Суб 

Будући да смо променљиву прогласили „Објект“, референцу на објекат морамо поставити помоћу кључне речи „Сет“. Уношењем кључне речи „Сет“ спомените променљиву и ставите знак једнакости.

Шифра:

 Суб ЦреатеОбјецт_Екампле1 () Затамни ППТ као скуп објеката ППТ = Крај Суб 

Сада отворите функцију ЦреатеОбјецт.

Пошто се позивамо на спољни објекат „ПоверПоинта“ за "Класа" параметар функције Цреате Објецт спомиње име спољног објекта у двоструким наводницима као „ПоверПоинт.Апплицатион“.

Шифра:

 Суб ЦреатеОбјецт_Екампле1 () Затамни ППТ као скуп објеката ППТ = ЦреатеОбјецт ("ПоверПоинт.Апплицатион") Крај Суб 

Функција Цреате Објецт сада ће покренути ПоверПоинт апликацију. Једном када је објекат покренут, морамо га учинити видљивим помоћу имена променљиве.

Један од проблема са методом Цреате Објецт или методом касног везивања је што не можемо видети листу интеллисенсе у одређеном тренутку, морате бити апсолутно сигурни у код који пишете.

За променљиву „ППТ“ користите својство „Висибле“ и подесите статус на „Труе“.

Шифра:

 Суб ЦреатеОбјецт_Екампле1 () Затамни ППТ као скуп објеката ППТ = ЦреатеОбјецт ("ПоверПоинт.Апплицатион") ППТ.Висибле = Труе Енд Суб 

Да бисте додали слајд на ППТ, дефинишите ВБА код доњег реда.

Шифра:

 Суб ЦреатеОбјецт_Екампле1 () Затамни ППТ као скуп објеката ППТ = ЦреатеОбјецт ("ПоверПоинт.Апплицатион") ППТ.Висибле = Труе ППТ.Пресентатионс.Адд Енд Суб 

Сада извршите код ручно или преко тастера Ф5 и погледајте да се апликација „ПоверПоинт“ отвара.

Једном када је ПоверПоинт апликација омогућена помоћу променљиве „ППТ“, можемо започети приступ ПоверПоинт апликацији.

Пример # 2

Сада ћемо видети како покренути Екцел апликацију помоћу функције ЦреатеОбјецт у ВБА. Још једном прогласите променљиву као „Објецт“.

Шифра:

 Суб ЦреатеОбјецт_Екампле2 () Дим ЕкцелСхеет као крај објекта Суб 

Оног тренутка када променљиву прогласимо објектом, то узрокује касно везивање и морамо да користимо кључну реч „Сет“ да поставимо референцу за тражени објекат.

Пошто се позивамо на радни лист екцел из апликације екцел, унесите „Екцел.Схеет“ у двоструке наводнике.

Шифра:

 Суб ЦреатеОбјецт_Екампле2 () Дим ЕкцелСхеет Ас Објецт Сет ЕкцелСхеет = ЦреатеОбјецт ("Екцел.Схеет") Енд Суб 

Једном када је постављена референца за Екцел лист, морамо га учинити видљивим да бисмо га користили. Ово је слично начину на који смо ПоверПоинт апликацију учинили видљивом.

Шифра:

 Суб ЦреатеОбјецт_Екампле2 () Затамни ЕкцелСхеет као скуп објеката ЕкцелСхеет = ЦреатеОбјецт ("Екцел.Схеет") ЕкцелСхеет.Апплицатион.Висибле = Труе Енд Суб 

Сада ће активирати радни лист Екцел.

Слично томе, да бисмо покренули Екцел радну свеску из других Мицрософт производа, можемо користити доњи код.

Шифра:

 Суб ЦреатеОбјецт_Екампле3 () Затамни ЕклВб као скуп објеката ЕклВб = ЦреатеОбјецт ("Екцел.Апплицатион") ЕклВб.Апплицатион.Висибле = Труе Енд Суб 

Ствари које треба запамтити о ЦреатеОбјецт-у у ВБА

• У ВБА, функција ЦреатеОбјецт користи се за референцирање објеката.
• Функција Цреате Објецт изазива процес касног везивања.
• Коришћењем функције цреате објецт не можемо да приступимо интеллисенсе листи ВБА.