ВБА Рад са радним свескама (објекат радне свеске)

Овај водич ће вас упознати са радом са Објекат радне свеске у ВБА.

Објекат радне свеске

Прво, да бисте имали интеракцију са радним свескама у ВБА, морате разумети Објекат радне свеске.

Са објектом радне свеске, радне свеске можете референцирати по њиховом имену овако:

1 Радне свеске ("Боок2.клсм"). Активирајте

Међутим, овај код ће радити само ако је радна свеска отворена. Ако је радна свеска затворена, мораћете да наведете целу путању радне свеске:

1 Воркбоокс.Опен ("Ц: \ Усерс \ СтевеПЦ2 \ Довнлоадс \ боок2.клсм")

Уместо да откуцате целу путању, ако се ваша жељена радна свеска налази у истом директоријуму у којем је и радна свеска у којој је ваш код ускладиштен, можете да користите овај редни код за отварање радне свеске:

1 Воркбоокс.Опен (ТхисВоркбоок.Патх & "\ боок2.клсм")

Ово користи објект ТхисВоркбоок о којем ћемо говорити у следећем одељку.

Индексни број радне свеске

На крају, радне свеске можете референцирати према њиховом „индексном броју“. Индексни број радне свеске одговара редоследу отварања радне свеске (технички то је њен положај у Збирци радних свески).

1 Радне свеске (1) .Активирати

Ово је корисно ако желите да учините нешто попут затварања прве (или последње) отворене радне свеске.

Активирајте радну свеску, активну радну књигу и ову радну свеску

Ако је радна свеска НИЈЕ АКТИВНО, објектима радне свеске можете приступити овако:

1 Радне свеске ("Боок2.клсм"). Табеле ("Схеет1"). Опсег ("А1"). Вредност = 1

Међутим, ако је радна свеска активна, можете изоставити објекат радне свеске:

1 Табеле („Лист1“). Опсег („А1“). Вредност = 1

А ако желите да ступите у интеракцију са активним листом радне свеске, можете и да изоставите објекат листова:

1 Опсег („А1“). Вредност = 1

Активирајте радну свеску

Да бисте активирали радну свеску, користите Ацтивате Метход.

1 Радне свеске ("Боок2.клсм"). Активирајте

Сада можете комуницирати са објектима Боок2 без изричитог навођења назива радне свеске.

АцтивеВоркбоок

Тхе АцтивеВоркбоок Објекат се увек односи на активну радну свеску. Ово је корисно ако желите да АцтивеВоркбоок доделите променљивој за касније коришћење.

12 Дим вб Као радна свескаПодесите вб = АцтивеВоркбоок

ТхисВоркбоок

Тхе ТхисВоркбоок Објекат се увек односи на радну свеску у којој је ускладиштен текући код. Да бисте активирали ову радну књигу, користите овај ред кода:

1 ТхисВоркбоок.Ацтивате

Отворите радну свеску

Да бисте отворили радну свеску, користите Отворени метод:

1 Воркбоокс.Опен ("Ц: \ Усерс \ СтевеПЦ2 \ Довнлоадс \ боок2.клсм")

Новоотворена радна свеска увек ће постати АцтивеВоркбоок, омогућавајући вам да лако комуницирате са њим.

1 АцтивеВоркбоок.Саве

Отворени метод има неколико других аргумената који вам омогућавају да отворите само за читање, отворите радну свеску заштићену лозинком и још много тога. Овде је обрађено у нашем чланку о отварању / затварању радних свезака.

Отвори и додели променљивој

Такође можете отворити радну свеску и доделити је променљивој у исто време:

12 Дим вб Као радна свескаСет вб = Воркбоокс.Опен ("Ц: \ Усерс \ СтевеПЦ2 \ Довнлоадс \ боок2.клсм")

Отворите дијалог датотека

Дијалошки оквир Отвори датотеку можете покренути и овако:

12345678 Под ОпенВоркбоок ()Дим стрФиле Ас СтрингстрФиле = Апплицатион.ГетОпенФиленаме ()Воркбоокс.Опен (стрФиле)Енд Суб

Направи нову (Додај) радну свеску

Ова линија кода ће створити нову радну свеску:

1 Воркбоокс.Адд

Нова радна свеска сада постаје АцтивеВоркбоок, омогућавајући вам интеракцију са њим (нпр. сачувајте нову радну свеску).

Додајте нову радну свеску у променљиву

Такође можете додати нову радну свеску директно у променљиву:

12 Дим вб Као радна свескаСет вб = Воркбоокс.Адд

Затворите радну свеску

Затвори и сачувај

Да бисте затворили радну свеску са чувањем, користите Метод затварања са Сачувај промене подешено на ТРУЕ:

1 АцтивеВоркбоок.Цлосе СавеЦхангес: = Тачно

Затвори без чувања

Да бисте затворили без чувања, подесите Сачувај промене једнако ФАЛСЕ:

1 АцтивеВоркбоок.Цлосе СавеЦхангес: = Фалсе

Радна свеска Сачувај као

Тхе СавеАс Метход користи се за чување радне свеске као.

Да бисте сачували радну свеску са новим именом, у истом директоријуму можете навести ово:

1 АцтивеВоркбоок.СавеАс "нев"

где је „ново“ нови назив датотеке.

Да бисте сачували радну свеску у нови директоријум са одређеном екстензијом датотеке, једноставно наведите нови директоријум и назив датотеке:

1 АцтивеВоркбоок.СавеАс "Ц: \ Усерс \ СтевеПЦ2 \ Довнлоадс \ нев.клсм"

Други примери ВБА радне свеске

Назив радне свеске

Да бисте добили назив радне свеске:

1 МсгБок АцтивеВоркбоок.Наме

Заштитите радну свеску

Да бисте заштитили структуру радне свеске од уређивања, можете користити Метода заштите (лозинка опционално):

1 Радне свеске ("боок1.клсм"). Заштитите "лозинку"

Да бисте уклонили заштиту радне свеске, користите Метода УнПротецт:

1 Радне свеске ("боок1.клсм"). Уклоните заштиту са "лозинке"

Прелистајте све отворене радне свеске

Да бисте прошли кроз све отворене радне свеске:

123456789 Суб ЛоопТхроугхВБс ()Дим вб Као радна свескаЗа сваку вб у радним свескамаМсгБок вб.НамеНект вбЕнд Суб

Радна свеска Активирај догађај

Можете покренути неки код кад год се одређена радна свеска отвори помоћу Отворени догађај радне свеске.

Ову процедуру поставите у радну свеску у модулу ТхисВоркбоок:

123 Привате Суб Воркбоок_Опен ()Табеле („лист1“). АктивирајтеЕнд Суб

Ова процедура ће се активирати Схеет1 сваки пут када се радна свеска отвара.

wave wave wave wave wave