ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как, при создании отчёта, для некоторых его листов использовать шаблоны?
6 сообщений из 6, страница 1 из 1
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
    #36834573
Очень нужно
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень нужно
Гость
Книга из 11 листов. Отчёт создаётся программно и каждый новый лист добавляется через:
Код: plaintext
1.
Set xlsSheet = xlsBook.sheets.Add(After:=xlsBook.Worksheets(xlsBook.Worksheets.Count))
Подскажите, какой д.б. код, если какой-нибудь лист будет основан на заранее сохранённом шаблоне?
...
Рейтинг: 0 / 0
07.09.2010, 17:56
| Ответить | Цитировать | Написать  
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
    #36835222
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
создать шаблон из 11 листов и уже в него пихать данные
...
Рейтинг: 0 / 0
08.09.2010, 10:21
| Ответить | Цитировать | Написать  
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
    #36835450
Очень нужно
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень нужно
Гость
PlanBсоздать шаблон из 11 листов и уже в него пихать данныехм...
но в книге только 2 листа со сложными отчётами, которые хотелось бы основывать на шаблонах.
"Шаблон для одного из листов" - это невозможно?
...
Рейтинг: 0 / 0
08.09.2010, 11:32
| Ответить | Цитировать | Написать  
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
    #36835690
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Очень нужно,

может эта идея поможет

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
Dim wb_isx As Workbook, j
Dim wb_traf As Workbook

Sub mm100908_1241()
' открыть файл трафаретов и обрабатываемый файл
'можно сделать и из разных книг
'это только макет программы
'можно передавать имена книги, листа, диапвзон ячеек

Set wb_isx = Workbooks("Книга1.xls")
Set wb_traf = Workbooks("traf1.xls")
'в данном варианте книги надо открыть заранее
Do While wb_isx.Sheets.Count >  1 
j = wb_isx.Sheets.Count
wb_isx.Sheets(j).Delete
'ActiveWindow.SelectedSheets.Delete
Loop
j =  0 
ws_traf1 "tr1"  'tr-имена листов
ws_traf1 "tr2"
ws_traf1 "tr3"
ws_traf1 "tr3"
ws_traf1 "tr3"
ws_traf1 "tr3"
ws_traf1 "tr2"

'....

End Sub
Sub ws_traf1(n1z)
j = j +  1 
    wb_traf.Worksheets(n1z).Activate
    Range("a1:m999").Select
    Selection.Copy
    wb_isx.Activate
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Activate
    Sheets(Sheets.Count).Name = n1z & "_" & Trim(j)
    Range("A1").Select
    Selection.Insert Shift:=xlDown
End Sub
...
Рейтинг: 0 / 0
08.09.2010, 12:52
| Ответить | Цитировать | Написать  
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
    #36835915
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
2 Очень нужно

Если я правильно понял условие задачи:

1. Есть создаваемая программно рабочая книга.
2. Есть некий шаблон, содержащий 1 рабочий лист, на основе которого такой же лист должен быть добавлен в исходную книгу.

Решение:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub AddNewWorksheetInExistWorkbookOnTemplateBasis()
Application.ScreenUpdating = False
Set m = ActiveWorkbook
sCount = m.Sheets.Count
Workbooks.Add (m.Path & "/Templates/MWTCBT.xltx") 'Путь и имя файла шаблона, содержащего 1 рабочий лист
ActiveWorkbook.Sheets( 1 ).Move After:=m.Sheets(sCount)
Application.ScreenUpdating = True
End Sub
...
Рейтинг: 0 / 0
08.09.2010, 14:02
| Ответить | Цитировать | Написать  
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
    #36836191
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Очень нужноPlanBсоздать шаблон из 11 листов и уже в него пихать данныехм...
но в книге только 2 листа со сложными отчётами, которые хотелось бы основывать на шаблонах.
"Шаблон для одного из листов" - это невозможно?ну, в шаблоне будет два листа со сложными отчетаи, а остальные - пустые.

зачем огород городить?
...
Рейтинг: 0 / 0
08.09.2010, 15:21
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как, при создании отчёта, для некоторых его листов использовать шаблоны?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36835690&tid=2177707]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 184ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 209ms
total:  501ms
созд. / загр.: 501ms
x
x
Закрыть


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