Овај водич ће расправљати о разлици између ВБА АцтивеВоркбоок -а и ТхисВоркбоок -а.
АцтивеВоркбоок вс. ТхисВоркбоок
Важно је знати разлику између АцтивеВоркбоок -а и ТхисВоркбоок -а у ВБА -и:
АцтивеВоркбоок је радна свеска која је тренутно активна (слично као што је АцтивеСхеет тренутно активни лист). Ова радна свеска је радна свеска у којој се чува ВБА код. Ова радна књига се никада неће променити.
ТхисВоркбоок
Замислите ТхисВоркбоок као објектну променљиву која вам омогућава упућивање на радну свеску која садржи тренутно активни код.
Овај код ће приказати МессагеБок са именом ТхисВоркбоок:
| 123 | Суб Схов_ТхисВоркбоок ()МсгБок ТхисВоркбоок.НамеЕнд Суб |
АцтивеВоркбоок
АцтивеВоркбоок је објектна променљива која вам омогућава референцирање тренутно активне радне свеске.
Овај код ће приказати МессагеБок са именом АцтивеВоркбоок:
| 123 | Суб Схов_АцтивеВоркбоок ()МсгБок АцтивеВоркбоок.НамеЕнд Суб |
ВБА претпоставља АцтивеВоркбоок
Када покушавате да радите са објектима (нпр. Листовима) у оквиру АцтивеВоркбоок -а, не морате експлицитно навести објекат АцтивеВоркбоок. ВБА ће претпоставити да се позивате на АцтивеВоркбоок.
Тако да је ово:
| 1 | АцтивеВоркбоок.Схеетс ("Схеет1"). Ранге ("$ А $ 5"). Валуе = 1 |
Да ли је исто ово:
| 1 | Табеле („Лист1“). Опсег („$ А $ 5“). Вредност = 1 |
Нове или отворене радне свеске су активне
Кад год креирате нову радну свеску или отворите радну свеску, она постаје „Активна“. Можете се сами уверити у овај код који ће додати радну свеску и дохватити назив нове радне свеске:
| 1234 | Суб Схов_АцтивеВоркбоок_Адд ()Воркбоокс.АддМсгБок АцтивеВоркбоок.НамеЕнд Суб |
Након додавања или отварања радне свеске, можете је доделити променљивој помоћу објекта АцтивеВоркбоок. Показаћемо вам како у доњим примерима:
Примери ове радне књиге и активне радне свеске
Пребаците активну радну свеску
Промените активну радну свеску помоћу назива радне свеске:
| 1 | Радне свеске („Књига1“). Активирајте |
Пребаците активну радну свеску помоћу броја налога радног листа (1 је први радни лист у радној свесци)
| 1 | Радне свеске (1) .Активирати |
Учините ову радну књигу активном
Учините ову радну књигу (у којој се налази тренутно активни код) активном радном књигом:
| 1 | ТхисВоркбоок.Ацтивате |
Подесите АцтивеВоркбоок на променљиву
Доделите АцтивеВоркбоок променљивој објекта радне свеске:
| 12 | Дим вб Као радна свескаПодесите вб = АцтивеВоркбоок |
Затворите и сачувајте активну радну свеску
Затвара и чува АцтивеВоркбоок:
| 1 | АцтивеВоркбоок.Цлосе СавеЦхангес: = Тачно |
Затворите активну радну свеску без чувања
Затвара АцтивеВоркбоок без чувања:
| 1 | АцтивеВоркбоок.Цлосе СавеЦхангес: = Фалсе |
АцтивеВоркбоок - Сачувај као
Омогућава чување активне радне свеске.
| 123456789 | Суб СавеАсАцтивеВоркбоок ()Затамњени резултат као варијантаресулт = Апплицатион.ГетСавеАсФиленаме (ИнитиалФилеНаме: = "", _ФилеФилтер: = "Екцел Мацро-Енаблед Воркбоок ( *.клсм), *.клсм, Екцел Воркбоок ( *.клск), *.клск")Ако је резултат = Нетачно, вратите сеАцтивеВоркбоок.СавеАс резултатЕнд Суб |
