Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.11.2015, 10:46   #1
maksim510
Новичок
Джуниор
 
Регистрация: 02.11.2015
Сообщений: 4
По умолчанию Перенос изменяющейся таблицы с листа Excel в место метки в шаблоне Word - VBA

Искал тут в разных местах как что сделать, но мои навыки в VBA примерно на 2 с "+"...
Попробую как можно грамотнее объяснить необходимое.

В приложенном файле Excel есть 2 листа (было больше, но пришлось обезличить практически всё). На втором листе с именем Sostav находится таблица, которую необходимо вставить в шаблон Word в место, указанное меткой "Tab_1". Всё дело в том, что таблица всегда будет иметь определённое количество столбцов, то есть 4, а вот количество строк будет меняться (шапка таблицы постоянно одна и та же).
Как написать макрос, что бы он по метке "Tab_1" открывал нужный лист, определял количество строк таблицы и потом уже подставлял её в место метки "Tab_1" шаблона?

Сейчас уже в этом файле реализовано открытие нужного шаблона word, создание документа word, поиск и замена данных из ячеек листа "Data", всё это заведено на 1 кнопку.

В дальнейшем так же в Excel появится ещё несколько листов с таблицами, так же как и другие шаблоны Ворд, но таблица 1, так же будет соответствовать метке "Tab_1", а таблицы с других листов, думаю, можно будет сделать по аналогии.
Вложения
Тип файла: zip вариант 1.zip (52.4 Кб, 16 просмотров)

Последний раз редактировалось maksim510; 02.11.2015 в 10:48.
maksim510 вне форума Ответить с цитированием
Старый 02.11.2015, 11:41   #2
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Если я правильно все понял, то на втором листе зеленая кнопка...
Вложения
Тип файла: zip вариант 1.zip (55.1 Кб, 42 просмотров)
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 02.11.2015, 12:57   #3
maksim510
Новичок
Джуниор
 
Регистрация: 02.11.2015
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Watcher_1 Посмотреть сообщение
Если я правильно все понял, то на втором листе зеленая кнопка...
Всё именно так! Решение, как всегда, оказалось проще, чем думается
Спасибо огромное!!!
maksim510 вне форума Ответить с цитированием
Старый 02.11.2015, 14:59   #4
maksim510
Новичок
Джуниор
 
Регистрация: 02.11.2015
Сообщений: 4
По умолчанию

Цитата:
Сообщение от maksim510 Посмотреть сообщение
Всё именно так! Решение, как всегда, оказалось проще, чем думается
Спасибо огромное!!!
хотя, сейчас глянул подробнее.
Там на первом листе есть кнопка создания документа, по ней он подставляет данные в из ячеек в разные места по тексту.
Там он создаёт документ .doc из шаблона dot в другой папке и уже там замену делает. Я не пойму просто как это всё объединить
Как на одну кнопку завести замену и создание таблицы?

Последний раз редактировалось maksim510; 02.11.2015 в 15:02.
maksim510 вне форума Ответить с цитированием
Старый 02.11.2015, 15:45   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

А тут есть готовое решение для вашей задачи:
http://excelvba.ru/programmes/FillDocuments

И данные подставит, и таблицы скопирует, — и всё нажатием одной кнопки.
EducatedFool вне форума Ответить с цитированием
Старый 03.11.2015, 09:39   #6
maksim510
Новичок
Джуниор
 
Регистрация: 02.11.2015
Сообщений: 4
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
А тут есть готовое решение для вашей задачи:
http://excelvba.ru/programmes/FillDocuments

И данные подставит, и таблицы скопирует, — и всё нажатием одной кнопки.
да помогло бы конечно это решение, но смысл в том, что эту надстройку надо слить на комп, а в комп у нас нельзя флешки вставлять, машина закрытая.
Вот и переписываю всё ручками с ноута на комп
maksim510 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как с помощью VBA растянуть нижнюю границу таблицы до конца листа (Word 2013). ac1-caesar Microsoft Office Word 12 08.02.2015 09:41
Вставка таблицы в Word как листа Excel и форматирование его размеров Nalim06 Microsoft Office Excel 0 08.10.2012 15:08
VBA Word Перенос текста из ячеек таблицы одного файла в другой bietins Microsoft Office Word 2 13.09.2011 16:04
Перенос таблицы Excel в Word (2 вопроса) romahjvf Microsoft Office Excel 2 16.08.2011 15:43
VBA Перенос слов в ячейке (проблема связи Excel с Word) DJTreeno Microsoft Office Excel 3 20.06.2011 14:21