Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как, при создании отчёта, для некоторых его листов использовать шаблоны? / 6 сообщений из 6, страница 1 из 1
07.09.2010, 17:56
    #36834573
Очень нужно
Очень нужно
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
Книга из 11 листов. Отчёт создаётся программно и каждый новый лист добавляется через:
Код: plaintext
1.
Set xlsSheet = xlsBook.sheets.Add(After:=xlsBook.Worksheets(xlsBook.Worksheets.Count))
Подскажите, какой д.б. код, если какой-нибудь лист будет основан на заранее сохранённом шаблоне?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2010, 10:21
    #36835222
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
создать шаблон из 11 листов и уже в него пихать данные
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2010, 11:32
    #36835450
Очень нужно
Очень нужно
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
PlanBсоздать шаблон из 11 листов и уже в него пихать данныехм...
но в книге только 2 листа со сложными отчётами, которые хотелось бы основывать на шаблонах.
"Шаблон для одного из листов" - это невозможно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2010, 12:52
    #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, 14:02
    #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, 15:21
    #36836191
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как, при создании отчёта, для некоторых его листов использовать шаблоны?
Очень нужноPlanBсоздать шаблон из 11 листов и уже в него пихать данныехм...
но в книге только 2 листа со сложными отчётами, которые хотелось бы основывать на шаблонах.
"Шаблон для одного из листов" - это невозможно?ну, в шаблоне будет два листа со сложными отчетаи, а остальные - пустые.

зачем огород городить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как, при создании отчёта, для некоторых его листов использовать шаблоны? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 532ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2177707]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 201ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 247ms
total:  532ms
x
x
Закрыть


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