ЦреатеОбјецт у ВБА - Како се користи функција ЦреатеОбјецт у ВБА?

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

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

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

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

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

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

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

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

Пример # 1

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

Шифра:

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

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

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

Шифра:

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

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

Шифра:

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

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

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

Шифра:

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

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

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

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

Шифра:

Sub CreateObject_Example1() Dim PPT As Object Set PPT = CreateObject("PowerPoint.Application") PPT.Visible = True End Sub

To add a slide to PPT, define the below line VBA code.

Code:

Sub CreateObject_Example1() Dim PPT As Object Set PPT = CreateObject("PowerPoint.Application") PPT.Visible = True PPT.Presentations.Add End Sub

Now execute the code manually or through the F5 key and see the “PowerPoint” application opens up.

Once the PowerPoint application is enabled using the variable “PPT,” we can start accessing the PowerPoint application.

Example #2

Now we will see how to initiate an Excel application using the CreateObject function in VBA. Once again, declare the variable as “Object.”

Code:

Sub CreateObject_Example2() Dim ExcelSheet As Object End Sub

The moment we declare the variable as an object, it causes late binding, and we need to use the “Set” keyword to set the reference for the required object.

Since we are referencing to excel worksheet from the application excel, enter “Excel. Sheet” in double-quotes.

Code:

Sub CreateObject_Example2() Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") End Sub

Once the reference for the excel sheet is set, we need to make it visible to use it. This is similar to how we made the PowerPoint application visible.

Code:

Sub CreateObject_Example2() Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet") ExcelSheet.Application.Visible = True End Sub

Now it will activate the excel worksheet.

Similarly, to initiate an excel workbook from other Microsoft products, we can use the below code.

Code:

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

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

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

Занимљиви Чланци...