Как да превключвам между два различни Екселски файла (workbooks) във VBA

0 одобрения 0 неодобрения
попитан 2016 декември 6 в VBA от Дянко Алексиев
Здравейте отново,

Опитвам се да напиша кратък код чрез който да мога да взема част от информацията от един екселски файл и да го пейстна в друг. Как мога да превключвам между различните файлове чрез VBA? Мерси предварително!

1 отговор

0 одобрения 0 неодобрения
отговорени 2016 декември 6 от BgExcelAdmin цар (647 точки)

Трябва ти следния код:

Sub SwitchBetweenWorkbooks()

Workbooks.Add
wb = ActiveWorkbook.name
ThisWorkbook.Activate
Workbooks(wb).Activate

End Sub

За да се върнеш отново в стария файл, използваш метода "Activate". Aко например файла ти се казва "Book1":

Windows("Book1").Activate

1 коментар

коментиран 2016 декември 7 от Дянко Алексиев начинаещ (10 точки)
Изключително елегантно решение! Хиляди благодарности на Админа :)
Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...