Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/125: Рейтинг темы: голосов - 125, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 02.02.2012
Сообщений: 60
1

Работа с Excel: Узнать количество листов в книге

21.05.2012, 14:48. Показов 23254. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Есть необходимость определить количество созданных и заполенных (не пустых) листов в книге Excel.

Полученное значение записывается в переменную, а также надо чтобы записывалось в ячейку самого листа этой книги. (важнее первое - в переменную).

хорошо бы еще определить имя этих листов.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2012, 14:48
Ответы с готовыми решениями:

Как узнать сколько листов в книге Эксель?
.-.-.

Подсчёт листов в книге Excel
Можно ли составить программу в VBA чтобы она подсчитывала количество листов в книге Excel или же...

Работа с xlsx: Как заставить программу считывать названия листов в книге?
У меня вопрос : Как заставить программу считывать названия листов в книге .И нужны ли какие-нибудь...

Определить минимальное количество листов, которое должно быть в книге, чтобы редкие ингредиенты не пострадали
1935. Слёзы утопленников Ограничение времени: 1.0 секунды Ограничение памяти: 64 МБ Гадалка Тиа...

5
196 / 188 / 9
Регистрация: 14.06.2011
Сообщений: 495
21.05.2012, 18:23 2
Под рукой нет программы которая у меня вводила в листбокс имя страниц в ексель. Так на память - все листы независимо от имени пронумерованы, ты можешь обратиться к ним как "Лист 1" так и sheets(1). Использовать примерно так -


xls.Sheets.Count - 1
Поиграйся с этими параметрами.

Имя листов

xls.Sheets(i).name

Соответственно присвоение этих значений будет выглядеть примерно так

VB.NET
1
2
3
Dim Имя_листа As string = xls.Sheets(i).name ' Узнаем имя первого листа и заносим его в переменную "Имя_листа"
 
Dim Кол_во_Листов_В_Книге As integer = xls.Sheets.Count - 1 ' Узнаем кол-во листов и заносим их в переменную "Кол_во_Листов_В_Книге"
1
0 / 0 / 0
Регистрация: 02.02.2012
Сообщений: 60
22.05.2012, 12:31  [ТС] 3
Благодарю!

Вот вопрос тогда еще такой, а точнее дополнение моего. Вот узнал я сколько листов в книге, как сделать так чтобы сформировалось столько переменных с названием имен листов сколько их всего.

К примеру определилось, что листов 33, надо чтобы создалось 33 переменных с именами каждого листа.
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
22.05.2012, 12:38 4
как вариант забить имена в массив,листбокс,комбобокс - что вам больше нравится.
0
0 / 0 / 0
Регистрация: 02.02.2012
Сообщений: 60
22.05.2012, 12:48  [ТС] 5
можно конечно, еще бы понять как точно это сделать. Указать сколько должно быть в массиве строк, у меня не большой опыт работы с массивами. Буду признателен за код.
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
22.05.2012, 16:55 6
VB.NET
1
ReDim МассивИмяЛиста(0 To КоличествоЛистов-1)
далее перебрать имена всех листов в книге и заполнить массив.
0
22.05.2012, 16:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2012, 16:55
Помогаю со студенческими работами здесь

Как узнать Item листа в книге Excel
есть большая книга (листов больше 1000) Не ругайте - так удобнее мне для своих целей Name листов...

Как во всей книге Excel из 10-ти листов удалить " " двойные и более пробелы на " "
Очень хочется удалить во всей книге из 25 тысяч строк более одного пробелов одним махом, решится...

Работа с Excel: Удаление листов
Подскажите как удалять листы из книги Excel, что то ни как не удаляются. И еще как можно...

Определить количество листов Word из Excel
Нужно определить количество листов от одной до другой метки в документе Word из Excel Код...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru