Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/32: Рейтинг темы: голосов - 32, средняя оценка - 4.53
PuLbKa
1 / 1 / 1
Регистрация: 11.01.2013
Сообщений: 153
1

Задать количество листов при создании нового excel-файла

01.04.2013, 09:53. Просмотров 6426. Ответов 3
Метки нет (Все метки)

Не могу понять как задать количество страниц при создании нового excel-файла
Содаю я его так

Visual Basic
1
2
Dim xlWb As Excel.Workbook
Set xlWb = Workbook.Add
Добавлено через 5 минут
Все получилось
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2013, 09:53
Ответы с готовыми решениями:

VBA при каждом создании нового листа в Excel окрашивать ярлык
как создать по средствам VBA процедуру, которая будет при каждом создании нового листа в Excel...

Из Excel в Word / Задать количество листов для печати в Word
Добрый день многоуважаемые, надеюсь на ваш совет. Есть задание из Excel таблицы переносить...

При создании нового листа произвести проверку на существование вводимого имени листа в текущей книге EXCEL
При создании нового листа, произвести проверку на существование вводимого имени листа в текущей...

Ошибка при создании нового layout файла
Не могу создать новый файл .xml :sorry: Уже который раз выдает ошибку: no XML content. Plese...

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

3
S.V.I.N.
5 / 5 / 1
Регистрация: 06.04.2012
Сообщений: 38
01.04.2013, 15:50 2
Количество страниц можно увеличивать следующим образом.

Visual Basic
1
2
3
4
5
for i=0 to x
With New_Ex
Sheets.Add After:=Sheets(Sheets.Count)
end With 
next i
где х - это кол-во циклов (требуемое кол-во листов)
0
Казанский
14912 / 6313 / 1721
Регистрация: 24.09.2011
Сообщений: 9,977
01.04.2013, 16:44 3
Ладно, раз ТС не написал, что там у него получилось, я напишу, как буквально "задать":
Visual Basic
1
2
3
4
5
Dim tmp
tmp = Application.SheetsInNewWorkbook 'сохранить свойство "число листов в новой книге"
Application.SheetsInNewWorkbook = 200 'установить новое значение свойства в пределах 1..255
Set xlWb = Workbooks.Add              'создать книгу с заданным кол-вом листов
Application.SheetsInNewWorkbook = tmp 'вернуть значение свойства
Кстати, добавлять листы в существующую книгу тоже можно не по одному:
Visual Basic
1
Sheets.Add after:=ActiveSheet, Count:=200
Параметр Count тоже в пределах 1..255.
2
Hugo121
6501 / 2550 / 458
Регистрация: 19.10.2012
Сообщений: 7,660
01.04.2013, 18:08 4
На практике обычно нужно
Visual Basic
1
Set xlWb = Workbooks.Add(1)             'создать книгу с одним листом
Далее можно листы добавить, но это нужно редко.
1
01.04.2013, 18:08
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2013, 18:08

Ошибка Excel при создании файла
Прога выдает ошибку (см. скрин) вот код. void StartAndCreateFile(string fileName) {...

При создании нового файла hosts без расширение, компьютер сообщает, что файл с таким именем уже существует
подскажите, пожалуйста, а если при создании нового файла hosts без расширение, компьютер сообщает,...

Возникает ошибка при создании листов типа DataTable
private DataTable TablePoint() { //создаём таблицу DataTable dtPoint = new...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.