Создание листов книги по шаблону

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Матраскин

Дата: Пятница, 07.09.2012, 15:49 | Сообщение № 1

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

Новую книгу по шаблону можно создать следующим макросом
[vba]

Код

Sub Tamplate_1()
Application.Workbooks.Add ("G:\saveData\test.xlsx")
End Sub

[/vba]
А как создать по шаблону несколько листов в книге с помощью макроса?)))

в интернете опять кто-то не прав

Ответить

Serge_007

Дата: Пятница, 07.09.2012, 15:55 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

А просто в настройках поставить нужное кол-во листов в новых книгах не подойдёт?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

KuklP

Дата: Пятница, 07.09.2012, 16:01 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

[vba]

Code

Sheets.Add Type:= "Полный_адрес_Вашего_шаблона.xlt"

[/vba] В цикле задаете нужное к-во листов.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

vikttur

Дата: Пятница, 07.09.2012, 16:02 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Пять новых листов в этой книге:
[vba]

Code

Sub Tamplate_2()
Dim i&
     For i = 1 To 5
         ThisWorkbook.Sheets.Add
     Next i
End Sub

[/vba]

Ответить

KuklP

Дата: Пятница, 07.09.2012, 16:04 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Витя, Серег, вопрос был: "А как создать по шаблону..."

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Пятница, 07.09.2012, 16:06

Ответить

Gustav

Дата: Пятница, 07.09.2012, 16:05 | Сообщение № 6

Группа: Админы

Ранг: Участник клуба

Сообщений: 2829

Репутация: 1190 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (Serge_007)

А просто в настройках поставить нужное кол-во листов в новых книгах не подойдёт?

Если по шаблону создается, то количество листов наследуется из шаблона.

МОИ: Ник, Tip box: 41001663842605

Ответить

Serge_007

Дата: Пятница, 07.09.2012, 16:06 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Я прочитал: "как создать в шаблоне несколько листов" smile

Сори

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Матраскин

Дата: Пятница, 07.09.2012, 16:06 | Сообщение № 8

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

мне надо получить книгу с большим кол-вом листов которые заполненны определённым образом.(все по разному) Однко у них общая структура: шапка , какие то ~~бесполезные~~ очень нужные комментарии, заголовки. Поэтому хотелось бы чтобы листы создавались сразу с нужной мне структурой.

P.s. пока писал....тут уже столько насоветовали))

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Пятница, 07.09.2012, 16:08

Ответить

KuklP

Дата: Пятница, 07.09.2012, 16:07 | Сообщение № 9

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Матраскин, я Вам показал в Сообщение № 3. А Виктор показал, как это зациклить.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Пятница, 07.09.2012, 16:09

Ответить

vikttur

Дата: Пятница, 07.09.2012, 16:10 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Quote (KuklP)

вопрос был: "А как создать по шаблону..."

Зато у меня буковок больше smile

Ответить

Gustav

Дата: Пятница, 07.09.2012, 16:13 | Сообщение № 11

Группа: Админы

Ранг: Участник клуба

Сообщений: 2829

Репутация: 1190 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (KuklP)

А Виктор показал, как это зациклить

Циклить не обязательно, там Count есть:

[vba]

Code

Sheets.Add(Before, After, Count, Type)

[/vba]

МОИ: Ник, Tip box: 41001663842605

Ответить

Матраскин

Дата: Пятница, 07.09.2012, 16:20 | Сообщение № 12

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

Gustav, а Вы не знаете, что ещё наследуется из шаблона? потому что оно вставляет эти листы(листы сделанные по шаблону) после 1 листа в книге, а хотелось бы после второго)
KuklP, спасибо , работает! happy

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Пятница, 07.09.2012, 16:23

Ответить

Gustav

Дата: Пятница, 07.09.2012, 16:24 | Сообщение № 13

Группа: Админы

Ранг: Участник клуба

Сообщений: 2829

Репутация: 1190 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (Матраскин)

потому что оно вставляет эти листы(листы сделанные по шаблону) после 1 листа в книге, хотелось бы после второго)

Так укажите явно после какого вставлять:
[vba]

Code

Sheets.Add After:= Sheets(2), Count:= 20 'новых листов

[/vba]

МОИ: Ник, Tip box: 41001663842605

Ответить

Матраскин

Дата: Пятница, 07.09.2012, 16:35 | Сообщение № 14

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

Репутация: 81 ±

Замечаний: 0% ±

20xx

[vba]

Код

Sheets.Add After:=Sheets(2), Type:="путь.xltm"

[/vba]
вставляет страницы-шаблоны после второй странице в книге

вот такой вот получился, вдруг кому ещё поможет)) Всем большое спасибо!

в интернете опять кто-то не прав

Ответить

Пуш

Дата: Вторник, 04.02.2014, 20:17 | Сообщение № 15

Группа: Гости

Товарищи прошу помощи.

Надо как и в исходном вопросе вставить несколько листов по шаблону, но есть несколько нюансов:
1) шаблон находится во втором листе книги в которую и надо вставлять новые листы с шаблоном (который называется Act)
2) вставить надо такое количество листов которое соответствует ячейке A1 на первом листе.

Помогите плиз с кодом.
[moder]Читаем Правила форума и создаем свою тему

Ответить

Создание листов книги по шаблону

Страница 1 из 1
1