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

@Opanas · Регистрация: 29.12.2016

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

Доброго времени суток, уважаемые форумчане.

Во имя человеколюбия:
--сделайте пжста подарок под елку, помогите обрести душевное спокойствие и вернуться в семью)
--Как выгрузить данные таблицы из запроса в шаблон Word?

Упреждая возможные вопросы и замечания: да, тема избитая, но мой случай похоже клинический)), просмотрел все возможные решения на форуме, прокопипастил все похожие коды, как мог изучил матчасть.
Но что-то не осилил) Результат потуг: Документ(справка) формируется, данные из полей основной формы благополучно выгружаются в закладки, а вот таблица - никак(( Вернее запрос никак не выгружается; его нет почему-то в списке источников данных.

Скудным умишком понимаю,что где-то упущена какая-то настройка! А впрочем, чего гадать - уповаю только на помощь...

shanemac51 · 08.01.2017, 15:54

возможно не сбросилась точка останова
сбросила и посылаю вновь

@ВладимирКузьмин · 08.01.2017, 16:00

Уважаемые откликнувшиеся!!! Сейчас в двух функциях добавил параметры: Function funOutputWord(strPathDot As String, strPathWord As String, qryWordTable As String) As Boolean и Function funOutputWordQuery(strPathDot As String, strPathWord As String) As Boolean.
Красный это добавленное.
И при вызове функции тоже добавил параметр или аргумент: Call funOutputWord(strPathDot, strPathWord, qryWordTable)
Тоже и при вызове функции Call funOutputTableWordQuery(strPathDot, strPathWord, qryWordTable)
После этого все сразу заработало. УРА!!!

@alvk · 08.01.2017, 16:01

Сообщение от ВладимирКузьмин

Set rstTable

а где описание rstTable? должно быть в начале модуля:

Visual Basic
1
dim rsTable as dao.recordset

shanemac51 · 08.01.2017, 16:04

Сообщение от ВладимирКузьмин

И когда я сделаю несколько кнопок, то и документы будут выгружаться с разными мне нужными данными. Т.е. форма одна, на ней несколько кнопок и они выводят каждый свой документ.

не вижу проблем
--сообщите по кнопке имя шаблона
--и текст запроса для формирования табличной части

@ВладимирКузьмин · 08.01.2017, 16:20

Большое спасибо ВАМ shanemac51

и ВАМ alvk

.
Я еще только осваиваю этот загадочный мир Программирования.

Добавлено через 15 минут
Уважаемые shanemac51 и alvk. Сейчас в двух функциях добавил параметры или аргументы (как правильно называются еще не знаю : Function funOutputWord(strPathDot As String, strPathWord As String, qryWordTable As String) As Boolean и Function funOutputWordQuery(strPathDot As String, strPathWord As String, qryWordTable As String) As Boolean.
Красный это добавленное.
И при вызове функции тоже добавил параметр или аргумент: Call funOutputWord(strPathDot, strPathWord, qryWordTable)
Тоже и при вызове функции Call funOutputTableWordQuery(strPathDot, strPathWord, qryWordTable)
После этого все сразу заработало.
До этого добавлял этот параметр только в одну функцию funOutputTableWordQuery.
Поэтому и не работало.
Еще раз огромное Вам спасибо!!!

@ВладимирКузьмин · 21.01.2017, 22:37

Здравствуйте УВАЖАЕМЫЕ ЗНАТОКИ!!!
Опять вынужден обратится к Вам с просьбой. К сожалению найти сведения по организации выгрузки данных таблицы в Word c группировкой и код VBA не удалось. Попытки исправления имеющегося кода к положительным результатам не привели. Таблицу в таблицу вставить не смог.
Хотелось бы правильно (грамотно) организовать выгрузку данных главной формы и таблицу подчиненной формы базы Access в документ Word с использованием VBA. Выгрузку таблицы с данными подчиненной формы необходимо осуществлять с группировкой данных, как в отчете Access, который выводит их очень просто. Помогите пожалуйста, советами и кодом. Файл базы и пример отчета прилагаю. Буду признателен любой помощи.

shanemac51 · 22.01.2017, 00:44

Сообщение от ВладимирКузьмин

как в отчете Access, который выводит их очень просто.

К СОЖАЛЕНИЮ ЭТОТ ОТЧЕТ ОЧЕНЬ НЕКОРРЕКТНО ЭКСПОРТИРУЕТСЯ В ВОРД

@ВладимирКузьмин · 22.01.2017, 09:57

Как его экспортировать в Word я знаю, но после экспорта очень много времени тратится на его корректирование.

Документов таких распечатывается больше десятка и тратить на каждый время на корректировку (в век возможностей программирования) расточительно.
Мне бы хотелось выгружать его именно через VBA сразу в Word и без корректировки.
Когда данные в таблице имеют небольшой размер, то можно воспользоваться и отчетом Access, так как данные умещаются в экспортируемой таблице, и выглядят в отчете красиво.
Я же кроме этого, хочу использовать данные строкового типа, и еще их конкатенировать, (создавать из них предложения) и выводить их в отчет.
При выводе в отчет или экспорте в Word текстовых данных большой длины, правая граница выгружаемого текста в отчете становится не ровной и руководство данные документы на подпись принимать не хочет (приходится все переделывать ручками).

Очень хочется хочется чтобы Access, VBA и Word помогали экономить время и приносили радость от выполнения задуманного.

shanemac51 · 22.01.2017, 14:58

мне понятно, что вам надо ---может завтра попробую сотворить пример
---

@ВладимирКузьмин · 22.01.2017, 16:49

Огромное спасибо за Ваше чуткое отношение к нам (начинающим изучать мир VBA в Access). Буду с нетерпением ждать от Вас сообщений. С уважением ВК.

@commun · 22.01.2017, 23:20

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

ЭТОТ ОТЧЕТ ОЧЕНЬ НЕКОРРЕКТНО ЭКСПОРТИРУЕТСЯ В ВОРД

ну почему, если отчет нормальных геометрических размеров, то

Visual Basic
1
2
3
4
5
Private Sub Кнопка1_Click()
 
      DoCmd.OutputTo acReport, "Оглавление", acFormatRTF, "e:\Отчет1.doc", True
 
End Sub

@ВладимирКузьмин · 23.01.2017, 21:58

Спасибо большое Вам commun за хороший рабочий вариант.

Но после экспорта приходится корректировать документ (подгонять поля и т.д.), а на это уходит время. Документов как я говорил выше бывает больше десятка, а то и больше двух и тратить на это время жалко, но приходится. И поэтому хотелось, чтобы документ выгружался уже без необходимости корректировки, но возможности мелкого редактирования в случае необходимости в Word имелись.

Еще раз спасибо за внимание и рабочий вариант. Это строка кода VBA теперь в моей копилке знаний.

И всё же с нетерпением жду ответа от Галины ......

shanemac51 · 24.01.2017, 06:39

вчера нашла прототип, но на большее времени не хватило --была занята другой работой

shanemac51 · 24.01.2017, 09:42

один из вариантов решения(с шаблоном и переходом листа при смене заказчика)
ОТЧЕТ ПО ГРУППИРОВКЕ

Заказчик	Иванов Иван Иванович	Банк	Большой банк
Адрес	ул. Иванова д. 15 кв. 23	РС	65432165432165432165
АдресЖит	ул. Петровская д. 35 кв. 45	КС	23156432165432165432
Телефон	12-45-78	БИК	1232132132
Сотовый	8 905 456 123 78	ИНН	9879879879

Производитель:Владимир

№№	Обозначение	Цена	Качество
1	Колбаса копченая с черносливом, на любителя ))).	350	Высший сорт
2	Сыр	100	Первый сорт

Подписи _____________

@ВладимирКузьмин · 24.01.2017, 14:40

Уважаемая Галина! Очень Вам признателен и благодарен. Спасибо за ОТЛИЧНЫЙ отчет.

Все точно как в аптеке, БРАВО!!!

Теперь буду развиваться дальше. Как говорится "Изучать матчасть". Еще раз огромное СПАСИБО!!!
С уважением к профессионалам!!!

shanemac51 · 24.01.2017, 16:06

я такие отчеты чаще формирую программно в НТМ-формате(в стандартных тегах)
в этом случае намного больше возможностей и скорость намного больше

все-таки вывод в ворд --достаточно медленная процедура, особенно если отчет будет более 20 страниц

НТМ можно открывать
--в броузере
--ворде
--екселе

@ВладимирКузьмин · 24.01.2017, 19:16

Добрый вечер Уважаемая Галина!

Меня сейчас скорость формирования отчета в ворде очень - при очень устраивает. То что мне раньше приходилось все документы в ручную доделывать (корректировать) и сейчас, когда я этот код внедрю в свою базу - это будет "НЕБО и ЗЕМЛЯ". Так что я и так очень рад что Вы мне очень сильно помогли.

Б-О-О-О-Л Ь Ш О Е С П А С И Б О !!!

Сейчас изучал Ваш код, переделал шаблон под себя, и столкнулся с тем, что на первой странице отчета перед выведенной таблицей формируются две пустые строки , а на последующих страницах отчета перед таблицей формируется по одной пустой строке (в шаблоне лист начинается с таблицы, перед ней никаких пустых строк нет).
Почему?
В действительности хотелось бы (не критично, но желательно) что бы расстояние сверху до таблицы у всех страниц отчета было одинаковым.

Сейчас поэкспериментирую, надеюсь все получится. Но если подскажите как поправить, от помощи не откажусь.
Еще раз Б-О-О-О-Л Ь Ш О Е С П А С И Б О !!!

shanemac51 · 24.01.2017, 19:23

У меня сливались таблицы, поэтому добавила при вставке таблицы --вставку пустой строки
в начале отчета (после заголовка) --2 пустых --это удаление двух таблиц-шаблонов, одну можно убрать, а может и обе..... попробую

@ВладимирКузьмин · 24.01.2017, 19:29

Если по одной пустой строке перед таблицей останется - будет очень хорошо. СПАСИБО за помощь.

@ВладимирКузьмин · 27.08.2017, 19:57

Здравствуйте Уважаемая Галина (shanemac51). Вот прошло более пол года как я последний раз писал на форум.
Ранее благодаря Вашей помощи я в разы ускорил и улучшил свою производительность в подготовке документов, а главное от полученных результатов получил и продолжаю получать душевное удовлетворение. Применяю Ваш код при выгрузке данных из базы в Word в различных возможных ситуациях.
Конечно хочется усовершенствовать вывод данных в отчет Word. Желание есть, а знаний не хватает. Часть выходных документов приходится дорабатывать в ручную.
Ранее вы мне на форуме (Экспорт таблицы из запроса в шаблон Word) очень помогли.
Можно ли Вас попросить в код ВАШЕГО ранее присланного примера !!Кузьмич.zip, добавить возможность вывода примечания группировки?
В пример - !!!Кузьмич.rar-копия, добавил таблицу "Ответственные" и образец отчета "ОТЧЕТ С ГРУППИРОВКОЙ и суммой" с выводом примечания группировки данных.
Буду очень Вам признателен и благодарен!!!

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	08.01.2017, 16:00
	Уважаемые откликнувшиеся!!! Сейчас в двух функциях добавил параметры: Function funOutputWord(strPathDot As String, strPathWord As String, qryWordTable As String) As Boolean и Function funOutputWordQuery(strPathDot As String, strPathWord As String) As Boolean. Красный это добавленное. И при вызове функции тоже добавил параметр или аргумент: Call funOutputWord(strPathDot, strPathWord, qryWordTable) Тоже и при вызове функции Call funOutputTableWordQuery(strPathDot, strPathWord, qryWordTable) После этого все сразу заработало. УРА!!! 0

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	08.01.2017, 16:20
	Большое спасибо ВАМ shanemac51 и ВАМ alvk . Я еще только осваиваю этот загадочный мир Программирования. Добавлено через 15 минут Уважаемые shanemac51 и alvk. Сейчас в двух функциях добавил параметры или аргументы (как правильно называются еще не знаю : Function funOutputWord(strPathDot As String, strPathWord As String, qryWordTable As String) As Boolean и Function funOutputWordQuery(strPathDot As String, strPathWord As String, qryWordTable As String) As Boolean. Красный это добавленное. И при вызове функции тоже добавил параметр или аргумент: Call funOutputWord(strPathDot, strPathWord, qryWordTable) Тоже и при вызове функции Call funOutputTableWordQuery(strPathDot, strPathWord, qryWordTable) После этого все сразу заработало. До этого добавлял этот параметр только в одну функцию funOutputTableWordQuery. Поэтому и не работало. Еще раз огромное Вам спасибо!!! 0

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	22.01.2017, 09:57
	Как его экспортировать в Word я знаю, но после экспорта очень много времени тратится на его корректирование. Документов таких распечатывается больше десятка и тратить на каждый время на корректировку (в век возможностей программирования) расточительно. Мне бы хотелось выгружать его именно через VBA сразу в Word и без корректировки. Когда данные в таблице имеют небольшой размер, то можно воспользоваться и отчетом Access, так как данные умещаются в экспортируемой таблице, и выглядят в отчете красиво. Я же кроме этого, хочу использовать данные строкового типа, и еще их конкатенировать, (создавать из них предложения) и выводить их в отчет. При выводе в отчет или экспорте в Word текстовых данных большой длины, правая граница выгружаемого текста в отчете становится не ровной и руководство данные документы на подпись принимать не хочет (приходится все переделывать ручками). Очень хочется хочется чтобы Access, VBA и Word помогали экономить время и приносили радость от выполнения задуманного. 0

shanemac51 Модератор 12512 / 5086 / 814 Регистрация: 07.08.2010 Сообщений: 14,971 Записей в блоге: 4
	22.01.2017, 14:58
	мне понятно, что вам надо ---может завтра попробую сотворить пример --- 0

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	22.01.2017, 16:49
	Огромное спасибо за Ваше чуткое отношение к нам (начинающим изучать мир VBA в Access). Буду с нетерпением ждать от Вас сообщений. С уважением ВК. 0

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	23.01.2017, 21:58
	Спасибо большое Вам commun за хороший рабочий вариант. Но после экспорта приходится корректировать документ (подгонять поля и т.д.), а на это уходит время. Документов как я говорил выше бывает больше десятка, а то и больше двух и тратить на это время жалко, но приходится. И поэтому хотелось, чтобы документ выгружался уже без необходимости корректировки, но возможности мелкого редактирования в случае необходимости в Word имелись. Еще раз спасибо за внимание и рабочий вариант. Это строка кода VBA теперь в моей копилке знаний. И всё же с нетерпением жду ответа от Галины ...... 0

shanemac51 Модератор 12512 / 5086 / 814 Регистрация: 07.08.2010 Сообщений: 14,971 Записей в блоге: 4
	24.01.2017, 06:39
	вчера нашла прототип, но на большее времени не хватило --была занята другой работой 1

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	24.01.2017, 14:40
	Уважаемая Галина! Очень Вам признателен и благодарен. Спасибо за ОТЛИЧНЫЙ отчет. Все точно как в аптеке, БРАВО!!! Теперь буду развиваться дальше. Как говорится "Изучать матчасть". Еще раз огромное СПАСИБО!!! С уважением к профессионалам!!! 0

shanemac51 Модератор 12512 / 5086 / 814 Регистрация: 07.08.2010 Сообщений: 14,971 Записей в блоге: 4
	24.01.2017, 16:06
	я такие отчеты чаще формирую программно в НТМ-формате(в стандартных тегах) в этом случае намного больше возможностей и скорость намного больше все-таки вывод в ворд --достаточно медленная процедура, особенно если отчет будет более 20 страниц НТМ можно открывать --в броузере --ворде --екселе 2

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	24.01.2017, 19:16
	Добрый вечер Уважаемая Галина! Меня сейчас скорость формирования отчета в ворде очень - при очень устраивает. То что мне раньше приходилось все документы в ручную доделывать (корректировать) и сейчас, когда я этот код внедрю в свою базу - это будет "НЕБО и ЗЕМЛЯ". Так что я и так очень рад что Вы мне очень сильно помогли. Б-О-О-О-Л Ь Ш О Е С П А С И Б О !!! Сейчас изучал Ваш код, переделал шаблон под себя, и столкнулся с тем, что на первой странице отчета перед выведенной таблицей формируются две пустые строки , а на последующих страницах отчета перед таблицей формируется по одной пустой строке (в шаблоне лист начинается с таблицы, перед ней никаких пустых строк нет). Почему? В действительности хотелось бы (не критично, но желательно) что бы расстояние сверху до таблицы у всех страниц отчета было одинаковым. Сейчас поэкспериментирую, надеюсь все получится. Но если подскажите как поправить, от помощи не откажусь. Еще раз Б-О-О-О-Л Ь Ш О Е С П А С И Б О !!! 0

shanemac51 Модератор 12512 / 5086 / 814 Регистрация: 07.08.2010 Сообщений: 14,971 Записей в блоге: 4
	24.01.2017, 19:23
	У меня сливались таблицы, поэтому добавила при вставке таблицы --вставку пустой строки в начале отчета (после заголовка) --2 пустых --это удаление двух таблиц-шаблонов, одну можно убрать, а может и обе..... попробую 1

@ВладимирКузьмин 3 / 1 / 0 Регистрация: 17.10.2016 Сообщений: 21
	24.01.2017, 19:29
	Если по одной пустой строке перед таблицей останется - будет очень хорошо. СПАСИБО за помощь. 0