Экспорт данных из таблицы Excel в Word или Excel по шаблонам

@Алик73 · Регистрация: 17.03.2023

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

Всем здравствуйте!

В продолжении темы созданной ранее Создание файлов Excel по шаблону

возникла необходимость экспортировать данные из таблицы в разные файлы, и в excel, и в word.

Мне понравился этот простой и короткий макрос и хотелось бы его доработать и сделать универсальным.

Сейчас макрос осуществляет экспорт данных из таблицы в новый файл excel по одному шаблону excel с условием, если во 2 столбце есть какое-то имя, то данные из строки этого имени копируются и создается одноименная папка, а имя файлу присваивается по данным из 4 и 5 столбца.

По аналогии с тем, что осуществляется сейчас требуется, чтобы одни и те же данные из строчки таблицы копировались в несколько шаблонов excel и word.
По какому шаблону нужно создать файл и скопировать одну и ту же строку с данными в разные файлы, например, указываем в 3 столбце "Шаблоны". Ну и наверное надо будет всем создаваемым файлам присваивалось соответствующее имя.

Спасибо заранее всем за отклик!

Образец, работающий только с одним шаблоном excel прикладываю

Экспорт данных из таблицы в файлы.7z

@Punkt5 · 29.01.2024, 14:46

Сообщение от Алик73

В excel всё нормально, можно и формат ячейки изменить в бланке, тогда в необходимом формате дата будет.

Попробуйте брать не значение ячейки с датой, а текст, который уже преобразован по формату:

Visual Basic
64
mrepl "[Дата_рождения]", sh.Cells(i, 7).Text

Да и для остальных строк, передаваемых из Excel-ячеек в Word лучше брать sh.Cells(i, ..).Text

@Алик73 · 29.01.2024, 15:49 **[ТС]**

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

проверьте настройки формата даты в WINDOWS- системных настройках

Да, из-за этого. Надо в текстовом формате забивать дату в таблице или в системных настройках WINDOWS исправить формат даты.

Добавлено через 12 минут

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

Да и для остальных строк, передаваемых из Excel-ячеек в Word лучше брать sh.Cells(i, ..).Text

Спасибо, сделаю так, чтобы не менять формат в системных настройках

Добавлено через 9 минут

Сообщение от Алик73

2. У меня ниже таблицы есть текст с информацией. Макрос формирует папки и копирует этот текст тоже.
Необходимо задать диапазон таблицы для кода, что-то типа Range("B4:B11") или если умная таблица Range("Таблица1[Название папки]")

Если возможно, подскажите пожалуйста решение ещё по этому моменту

@Алик73 · 30.01.2024, 09:01 **[ТС]**

Больше идей и решений нет?
Тогда получается надо 2 столбец ниже таблицы оставлять всегда пустым, чтобы не создавались папки. Другие столбцы не влияют на это.

Я конечно не разбираюсь в VBA, но смотрю по аналогии другие макросы, может как-то повлияет, если в коде исправить что-то в виде этого

Visual Basic
1
2
3
4
With sh
For i = 1 To Sheets("Документы").ListObjects("Таблица1").ListRows.Count
    If .Cells(i, 2) <> "" Then
    ...

@Punkt5 · 30.01.2024, 10:49

Сообщение от Алик73

Тогда получается надо 2 столбец ниже таблицы оставлять всегда пустым, чтобы не создавались папки.

Ну, или где-то как-то обозначать что надо заканчивать перебор строк. Например, если написать после последней строки, которую надо обрабатывать в том же втором столбце "Конец обработки", то можно прерывать цикл, встретив такую запись:

Visual Basic
1
2
3
4
With sh
For i = 1 To Sheets("Документы").ListObjects("Таблица1").ListRows.Count
    If .Cells(i, 2).Text = "Конец обработки" Then Exit For
    ...

@Алик73 · 10.07.2024, 14:40 **[ТС]**

Здравствуйте, Галина! Подскажите, пожалуйста, спустя время выявилось в коде, что если в документе excel текст больше 255 символов, то текст не копируется в бланк word. Вылетает ошибка 5854: Слишком длинный строковый параметр. С бланком excel таких проблем нет.
Можно ли подправить код, чтобы текст больше 255 символов копировался в бланк word?
Заранее благодарен!

shanemac51 · 10.07.2024, 15:17

Сообщение от Алик73

Можно ли подправить код, чтобы текст больше 255 символов копировался в бланк word

как один из вариантов(замена 1 -го вхождения)
есть и другие(если вхождений несколько)

@Алик73 · 11.07.2024, 10:13 **[ТС]**

Благодарю!

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Алик73 0 / 0 / 0 Регистрация: 17.03.2023 Сообщений: 47

	Excel Экспорт данных из таблицы Excel в Word или Excel по шаблонам 25.01.2024, 11:32. Показов 4367. Ответов 26 Метки нет (Все метки) Всем здравствуйте! В продолжении темы созданной ранее Создание файлов Excel по шаблону возникла необходимость экспортировать данные из таблицы в разные файлы, и в excel, и в word. Мне понравился этот простой и короткий макрос и хотелось бы его доработать и сделать универсальным. Сейчас макрос осуществляет экспорт данных из таблицы в новый файл excel по одному шаблону excel с условием, если во 2 столбце есть какое-то имя, то данные из строки этого имени копируются и создается одноименная папка, а имя файлу присваивается по данным из 4 и 5 столбца. По аналогии с тем, что осуществляется сейчас требуется, чтобы одни и те же данные из строчки таблицы копировались в несколько шаблонов excel и word. По какому шаблону нужно создать файл и скопировать одну и ту же строку с данными в разные файлы, например, указываем в 3 столбце "Шаблоны". Ну и наверное надо будет всем создаваемым файлам присваивалось соответствующее имя. Спасибо заранее всем за отклик! Образец, работающий только с одним шаблоном excel прикладываю Экспорт данных из таблицы в файлы.7z 0

@Алик73 0 / 0 / 0 Регистрация: 17.03.2023 Сообщений: 47
	11.07.2024, 10:13 [ТС]
	Благодарю! 0

Экспорт данных из таблицы Excel в Word или Excel по шаблонам

Решение