У овом чланку ћемо научити о начину затварања и отварања у Екцел ВБА који се користи за отварање затворене радне свеске, а такође и за затварање отворене радне свеске.
Креирамо командно дугме у Екцел листу и додељујемо макро.
Да бисте сазнали како да креирате Ацтивек контролу, кликните на везу
хттпс://ввв.екцелтип.цом/типс/ацтивек-цонтролс-ин-мицрософт-екцел-2010.хтмл
Како отворити Екцел радну свеску кроз ВБА?
Следите доле наведене кораке и кодирање:-
- Уметните 2 командна дугмета.
- Прво командно дугме које користимо за десни клик мишем на командно дугме.
- ВБЕ страница ће се отворити и копирати доње кодирање и залепити на ВБЕ страницу.
- За отварање радне свеске доделите доле поменути макро.
'Дефинишите променљиву за назив датотеке
Дим цсФилеНаме Ас Стринг
'преузмите име датотеке из ћелије А1 на листу 1
цсФилеНаме = ТхисВоркбоок.Схеетс ("Пример отварања и затварања"). Распон ("А1")
„отворите радну свеску
Воркбоокс.Опен цсФилеНаме
МсгБок цсФилеНаме & "отворен"
Енд Суб
- Друго командно дугме које користимо за десни клик мишем на командно дугме.
- ВБЕ страница ће се отворити и копирати доње кодирање и залепити на ВБЕ страницу.
- За отварање радне свеске доделите доле поменути макро.
'Дефинишите променљиву за назив датотеке
Дим цсФилеНаме Ас Стринг
'преузмите име датотеке из ћелије А1 на листу 1
цсФилеНаме = ТхисВоркбоок.Схеетс ("Пример отварања и затварања"). Распон ("А1")
'затвори радне свескеРадне књиге (Сплит (цсФилеНаме, "\") (УБоунд (Сплит (цсФилеНаме, "\")))). ЦлосеМсгБок Сплит (цсФилеНаме, "\") (УБоунд (Сплит (цсФилеНаме, "\"))) & "затворено"
Енд Суб
Оба макроа ће се доделити командним тастерима, морамо користити испод кодирање макроа.
Опција ЕксплицитноСуб сЕкампле () Цонст цсФилеНаме Ас Стринг = _
"Ц: \ Тест \ Мастер.клск" Радне свеске.Отворите
цсФилеНамеВоркбоокс (Сплит (цсФилеНаме, "\") (УБоунд (Сплит (цсФилеНаме, "\")))). Затвори
Енд СубСуб сОпенВоркбоок ()
'Дефинишите променљиву за назив датотеке
Дим цсФилеНаме Ас Стринг
'преузмите име датотеке из ћелије А1 на листу 1
цсФилеНаме = ТхисВоркбоок.Схеетс ("Пример Отварање и затварање"). Распон ("А1") 'отварање радне свеске
Радне свеске.Отворите цсФилеНамеМсгБок цсФилеНаме & "отворите"
Енд СубСуб сЦлосеВоркбоок ()
'Дефинишите променљиву за назив датотеке
Дим цсФилеНаме Ас Стринг 'преузмите име датотеке из ћелије А1 на листу 1
цсФилеНаме = ТхисВоркбоок.Схеетс ("Пример отварања и затварања"). Распон ("А1")
'затворите радне свескеРадне књиге (Сплит (цсФилеНаме, "\") (УБоунд (Сплит (цсФилеНаме, "\")))). ЦлосеМсгБок Сплит (цсФилеНаме, "\") (УБоунд (Сплит (цсФилеНаме, "\"))) & "затворено"
Енд Суб
Белешка: - Морате навести путању према датотеци.
