Сохранение листов Excel в новую книгу

@GoodLife · Регистрация: 23.10.2012

Студворк — интернет-сервис помощи студентам

Добрый день!

Для создания новых книг использую код

Visual Basic
1
2
3
4
5
6
7
Set New_Wb = Workbooks.Add
NewFileName = NewFileName & ".xlsx"
New_Wb.SaveAs (x & "\" & NewFileName)
New_Wb.Worksheets("Лист1").Columns(7).ColumnWidth = 50
ThisIsWorkbook.Worksheets("ReportCard").Rows("" & iterRc & ":" & EndDiap).Copy Workbooks(NewFileName).Worksheets("Лист1").Rows("1:" & EndDiap - iterRc + 1)
New_Wb.Save
New_Wb.Close

То есть
1. Создается новая книга
2. В новую книгу копируется область с текущего листа
3. Сохраняем изменения в новой книге
4. Закрываем книгу

Минусы:
1. Долго, если новых книг создается большое количество (более 100) то компьютер надолго зависает
2. Во время обработки на экране пользователя вместо красивого индикатора процента обработки постоянно аль-табают книги эксель.

Вопрос: можно копировать данные в новые листы в режиме скрытности? чтобы пользователю не было видно постоянные переключения между книгами Ексель.
Как можно ускорить процесс? В коде два раза сохраняю книгу, дело в том что до сохранения не понятно как обращаться к новой книге, после сохранения у книги уже известно имя.

Спасибо!

@art1289 · 31.10.2019, 11:52

GoodLife, привет!
Да можно тоже так гружу данные с созданием листов в новых книгах создаем новый поток в нем запускаем excel в скрытом режиме и там уже заполням, в принципе книг 20 примерно мин 3-5 в зависимости от кол-ва данных

вот код, это пример вырезка из кода рабочего

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub LoadMain()
Dim MyExcel As Application
Dim MyBook As Workbook
  Set MyExcel = CreateObject("Excel.Application") 'инициализация
  MyExcel.DisplayAlerts = False
  MyExcel.Visible = False 'скрыть
  Set EBook = MyExcel.Workbooks.Open(ePath, False, False) 'эталонный файл
  MyExcel.Calculation = xlCalculationManual
 
........
.......
    MyBook.Application.Calculation = xlCalculationAutomatic
    MyBook.Close SaveChanges:=True
MyExcel.Quit
end sub

Надстройка: Macro Tools VBA – инструменты разработки макросов VBATools

@Hugo121 · 31.10.2019, 20:20

Сообщение от GoodLife

до сохранения не понятно как обращаться к новой книге

- так ведь сами написали: Set New_Wb = Workbooks.Add
А я бы делал иначе:
1. копируем ThisIsWorkbook.Worksheets("ReportCard")
2. в активной книге удаляем лишние строки.
3. сохраняем и закрываем активную книгу.
P.S. обновление экрана можно отключить, но будут в панели задач мигать ярлыки книг. Но можно и вообще скрыть на время работы приложение.

@bmv98rus · 31.10.2019, 21:06

Visual Basic
1
2
3
4
5
6
7
8
9
10
Application.ScreenUpdating = False
With Workbooks.Add
    NewFileName = NewFileName & ".xlsx"
    .Worksheets("Лист1").Columns(7).ColumnWidth = 50
    ThisIsWorkbook.Worksheets("ReportCard").Rows("" & iterRc & ":" & EndDiap).Copy _
        .Worksheets("Лист1").Rows ("1:" & EndDiap - iterRc + 1)
    .SaveAs (x & "\" & NewFileName)
    .Close
End With
Application.ScreenUpdating = True

и

2. в активной книге удаляем лишние строки.

тоже можно обдумать, вопрос в объемах данных.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .