Как узнать сколько листов в книге excel

Как узнать сколько листов в книге excel

Лисков а не книг, в файле к которому ты потключаешься.


sniknik ( 2003-09-09 10:45 ) [1]

один из способов
ADOConnection1.ConnectionString:= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:BookName.xls;Extended Properties=Excel 8.0;Persist Security Info=False";
ADOConnection1.LoginPrompt:= false;
ADOConnection1.GetTableNames(SL);
SL.Count


P0tia ( 2003-09-09 10:50 ) [2]

я подключаюсь так:
Excel := GetActiveOleObject("Excel.Application");


dima_shapkin ( 2003-09-09 11:09 ) [3]

Данная коллекция представляет собой набор листов (Sheets) в книге (Workbooks). Давайте посмотрим, какие действия мы можем делать над листами.

Как посчитать количество листов в книге

Сначала попробуем узнать сколько листов имеет наша книга:

Данным кодом мы вызвали сообщения на экран (MsgBox), которое отобразило количество листов (Sheets.Count) в книге (Workbooks) " Test.xls".

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

Как добавить лист в книгу

В коллекции листов также есть возможность добавлять свои листы, для этого существует метод Add. Этот метод имеет 4 параметра Add (Before, After, Count, Type). Все эти параметры необязательны. Первые два отвечают за место вставки листа. Далее, количество листов, вставляемых Count и тип листа Type . Типы могут быть, например, такие xlWorkSheet для расчетного листа и xlChart для диаграммы. Если местоположение не указывать, то лист будет вставляться относительно текущего листа.

Таким образом мы вставили 4 листа (Count: = 4) после листа "Лист3" .

Также можно вставить лист в самый конец книги:

Как скрыть лист

Если у Вас есть желание, то некоторые листы можно скрыть. Это бывает полезно, если у Вас есть константы или расчеты, которые Вы не хотите чтобы видели на экране в виде листов. Для этого можно использовать метод Visible. Устанавливая это свойство в TRUE или FALSE вы можете убрать или отобразить необходимый лист.

Читайте также:  Iphone 6 включается и сразу выключается

Sub count1()

‘ программисткое решение, записываете макрос, запускаете по Alt+F8 , и в А1 и В1 смотрите ответ
Cells(1, 1) = ActiveSheet.HPageBreaks.Count ‘ это число горизонтальных разделителей страниц
Cells(2, 1) = ActiveSheet.VPageBreaks.Count ‘ это число вертикальных разделителей страниц

‘ если вертикальных разделителей нет то число страниц = ЧислоГоризонтальных+1
‘ иначе число страниц = (ЧислоВертикальных+1)х(ЧислоГоризонатльных+1)
End Sub

Ссылка на основную публикацию
Как узнать песню если не знаешь названия
Знакомая ситуация: в голове крутится одна и та же композиция, но вспомнить название, хоть убей, не получается? Лайфхакер поможет определить...
Как удалить повторяющиеся значения в столбце excel
Доброго времени суток! С популяризацией компьютеров за последние 10 лет — происходит и популяризация создания отчетов (документов) в программе Excel....
Как удалить поиск в windows 10
Привет ребята Значит если вам надоел процесс SearchUI.exe, то пора от него избавляться. Как остановить службу SearchUI.exe? Вот тут к...
Как узнать пишущий ли дисковод на компьютере
Использование дисководов в компьютерах – DVD и CD-ROM – все дальше отходят на второй план. Но работа с ними для...
Adblock detector