powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Wscript - как красивее "размножить" шаблоны
6 сообщений из 6, страница 1 из 1
Wscript - как красивее "размножить" шаблоны
    #38021255
DataDigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Отырываем шаблон экселя и форматируем данными из базы на основе шаблона:

Код: sql
1.
2.
3.
4.
5.
6.
Set objXL = Wscript.CreateObject("Excel.Application")

objXL.Visible = False

With objXL
  .WorkBooks.Add FullPath   



А вот как красивее организовать дело в случае, когда надо вывести инфу по нескольким объектам (например, данные по клиентам).
Пока на ум приходит только такой вариант, как поднять отфтрматированный шаблон, скопировать дипазон, вставить столько раз, сколько объектов, а потом последоватьно форматировать.
Просьба посоветовать более красивые варианты.
...
Рейтинг: 0 / 0
Wscript - как красивее "размножить" шаблоны
    #38021339
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Непонятно. " Поднять отфтрматированный шаблон " - это создать книгу на основе шаблона, как в коде?
Обычно шаблон содержит форматирование, и он заполняется данными из базы.
Вы хотите получить несколько диапазонов с данными на одном листе или несколько листов в книге, каждый для своего "объекта"?
В первом случае вполне нормально скопировать дипазон и вставить столько раз, сколько объектов.
Во втором случае можно либо копировать лист, либо создавать новый из шаблона.
...
Рейтинг: 0 / 0
Wscript - как красивее "размножить" шаблоны
    #38021357
DataDigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
КазанскийНепонятно. " Поднять отфтрматированный шаблон " - это создать книгу на основе шаблона, как в коде?
Обычно шаблон содержит форматирование, и он заполняется данными из базы.
Вы хотите получить несколько диапазонов с данными на одном листе или несколько листов в книге, каждый для своего "объекта"?
В первом случае вполне нормально скопировать дипазон и вставить столько раз, сколько объектов.
Во втором случае можно либо копировать лист, либо создавать новый из шаблона.
Бланк экселевского отчета по одному объекту (например, клиенту) состоит из данных, которые при печати войдут на несколько листов.
Шаблон, естественно, по одному объекту сделан.
Можно открыть Эксель на базе шаблона и, зная сколько в шаблоне строк, скопировать, и добавить столько раз, сколько объектов.
Но грамотнее было бы каждую "порцию" добавлять на базе шаблона по мере заполнения данными, чтобы не искать потом нужный кусок.
...
Рейтинг: 0 / 0
Wscript - как красивее "размножить" шаблоны
    #38029747
DataDigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вопрос скорее по Excel, но задам здесь же.
Шаблон экселя визуально представляет собой отформатированные ячейки на белом фоне, с правой стороны видна граница, выделенная синим.
Далее идет "серая" обасть
При копированиии шаблона, и вставки первая строчка после значимой строчки шаблона - "серая", и при вставки все вставленные фрагменты идут на "сером" (в результате чего не видны на печать).
Вопрос: как все-таки выполнить эту вставку в нормальном варианте?
...
Рейтинг: 0 / 0
Wscript - как красивее "размножить" шаблоны
    #38030228
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, задать область печати листа Excel уже после вставки данных...
...
Рейтинг: 0 / 0
Wscript - как красивее "размножить" шаблоны
    #38030508
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
For Each Object
  Open Template
  Edit It
  SaveAs WorkBook
  Close It
Next Object
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Wscript - как красивее "размножить" шаблоны
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]