Имя: Пароль:
1C
 
v8: количество строк в Excel?
0 chavalito
 
17.01.07
17:42
Как получить количество строк в Excel?
1 Scooter
 
17.01.07
17:45
Лист = Excel.Worksheets(1);
       
   //Лист.Cells.SpecialCells(11).Select();//xlCellTypeLastCell = 11;
   КолСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
   
   Если КолСтрок < 2 Тогда
       Сообщить("В документе Excel лист № 1 пустой!!!");
       Возврат;
   КонецЕсли;
2 Neco
 
17.01.07
17:54
Или

Строк = Excel.Cells.CurrentRegion.Rows.Count;
3 chavalito
 
17.01.07
18:10
Спасибо.
Scooter, что передается в качестве параметра SpecialCells(11), почему 11?
4 Scooter
 
17.01.07
18:16
(3)ну ты спросил
яндекс знает, VBA
5 Ковычки
 
17.01.07
19:12

//*******************************************
Функция ПоследняяСтрока(Лист)
   Вверх=-4162;
   ПоследняяСтрокаВсе=Мин(Лист.Cells.SpecialCells(11).Row,65535);
   ПоследняяКолонка=Лист.Cells.SpecialCells(11).Column.Count;
   //РабочаяОбласть=Лист.Range(Лист.Cells(1,1),Лист.Cells(ПоследняяСтрока,ПоследняяКолонка));
   ПоследняяСтрока = 0;
   Для к=1 по ПоследняяКолонка Цикл
       ПосленяяВрем=Лист.Cells(ПоследняяСтрокаВсе+1, к).End(Вверх).Row;
       ПоследняяСтрока =Макс(ПосленяяВрем, ПоследняяСтрока );
   КонецЦикла;
   Возврат ПоследняяСтрока;
КонецФункции
6 Анцеранана
 
17.01.07
19:34
(3) Передается значение типа XlCellType :
Const xlCellTypeLastCell = 11
Думаю слова LastCell расшифровывать не надо.

(Посмотрел в "Яндексе" который в Excele. ObjectBrowser называется)
7 Ковычки
 
17.01.07
19:49
(6) варианты (1)(2) невсегда верно найдут последнюю заполненную ячейку...
8 zbv
 
17.01.07
19:58
Так еще можно:

Excel.ActiveSheet.UsedRange.Rows.Count
9 Ковычки
 
17.01.07
20:04
(8) К сожалению это вкорне не верно, в чем и я заблуждался :(