Теперь Кью работает в режиме чтения

Мы сохранили весь контент, но добавить что-то новое уже нельзя

Есть файл Excel с вкладками. Как разбить ее на отдельные файлы: каждая вкладка - новый файл?

Анонимный вопрос
  · 29,1 K
Мы смотрим на бизнес через цифры и знаем, как получить максимум пользы.   · 18 дек 2018  · tdots.ru

Sub Листы_как_файлы()
Dim wsh As Worksheet
For Each wsh In ActiveWorkbook.Worksheets
wsh.Copy
Next wsh
End Sub

Этот макрос разобьет книгу на отдельные файлы, вытащив каждый лист.

Супер, спасибо!

Студент, учусь на 5 курсе Самарского Университета. Увлекаюсь спортом (футбол, баскетбол)...  · 18 дек 2018
Если вы имеете ввиду листы, то сделать это очень просто. Проделайте следующие шаги: - нажмите правой кнопкой мыши на нужном листе; - в списке выберите "Переместить или скопировать"; - в поле "Переместить выбранные листы в книгу" выберите "(новая книга)"; - нажмите кнопку ОК, у вас откроется новый файл (книга) с нужным листом; - далее нажмите в разделе Файл - Сохранить в... Читать далее

Да это круто, а как в офисе 16 сохранить их сразу, когда вкладок 100, по одному задолбаешься