Овај чланак ће вам показати како се користи метода Цреате Објецт у ВБА.
ВБА је објектно оријентисан језик - користи процедуре за контролу и креирање објеката.
Цреате Објецт
Методу Цреате Објецт можемо користити за креирање Објекта у апликацији Мицрософт Оффице. На пример, ако пишемо ВБА код у Екцелу и желимо да отворимо копију Ворда, можемо користити методу Креирање објекта за креирање нове инстанце Ворда.
На пример:
| 12345 | Суб ЦреатеВордИнстанце ()Затамните вдАпп као објекатПодесите вдАпп = ЦреатеОбјецт ("Ворд.Апплицатион")вдАпп.Висибле = ТачноЕнд Суб |
Слично томе, можемо створити нову инстанцу ПоверПоинт или Аццесс.
| 12345 | Суб ЦреатеПоверПоинтАпплицатионЗатамните ппАпп као објекатПостави ппАпп = ЦреатеОбјецт ("ПоверПоинт.Апплицатион")ппАпп.Висибле = ТачноЕнд Суб |
Такође можемо користити Цреате Објецт за креирање других објеката осим Објекта апликације. На пример, можемо га користити за креирање Екцел листа.
| 1234567 | Суб ЦреатеЕкцелСхеет ()Затамните клСхеет као објекатПостави клСхеет = ЦреатеОбјецт ("Екцел.Схеет")клСхеет.Апплицатион.Висибле = ТачноклСхеет.Апплицатион.Ранге ("А2") = "Добро јутро"Постави клСхеет = НиштаЕнд Суб |
Међутим, ово заправо ствара нову инстанцу програма Екцел - не ствара лист у инстанци која је већ отворена. Из тог разлога морамо поставити Примена новог листа (тј. Нова инстанца Екцела) на Видљиво да бисмо видели објекат.
У свим горе наведеним примерима користимо касно везивање - стога декларишемо променљиве као објекте. Такође можемо користити Еарли Биндинг постављањем референце на Ворд или ПоверПоинт у нашем ВБА пројекту, а затим писањем подпроцедуре као што је приказано испод. Да бисте разумели више о касном и раном везивању, кликните овде.
Прво за Еарли Биндинг, унутар ВБЕ -а, поставили смо референцу на Мицрософт Ворд.
У Мени трака, изаберите Алатке> Референце и померите се надоле да бисте пронашли референцу на Библиотека објеката Мицрософт Ворд 16.0.
Уверите се да је референца означена, а затим кликните У РЕДУ.
НАПОМЕНА: верзија можда није 16.0, све зависи од тога коју верзију Мицрософт Оффице -а користите на рачунару!
Сада декларишемо Објекат користећи Еарли Биндинг - то значи да, уместо да вдАпп прогласимо Објектом, ми га декларишемо као Ворд.Апплицатион. Остатак кода је исти као када смо горе користили Лате Биндинг.
| 12345 | Суб ЦреатеВордИнстанце ()Затамните вдАпп као нову Ворд.АпплицатионПодесите вдАпп = ЦреатеОбјецт ("Ворд.Апплицатион")вдАпп.Висибле = ТачноЕнд Суб |
