ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Количество строчек на странице Excel
10 сообщений из 10, страница 1 из 1
Количество строчек на странице Excel
    #34698799
Access denied
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access denied
Гость
не пинайте сильно, если вопрос обсасывался неоднократно - не могу сообразить как по OLE узнать сколько строчек на странице документа Excel :-(
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 var 
  XL : Variant;
 begin 
  XL := CreateOleObject('Excel.Application');
  XL.Workbooks.Open(AFileName);
...
  XL.Sheets[ 1 ].Rows.Count;
...
пишет общее количество строчек, а мне нужно то, на которое осуществляется переход по Ctrl-End
...
Рейтинг: 0 / 0
01.08.2007, 16:43
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #34698851
Фотография Куликов Алексей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куликов Алексей
Участник
Access deniedне пинайте сильно, если вопрос обсасывался неоднократно - не могу сообразить как по OLE узнать сколько строчек на странице документа Excel :-(
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 var 
  XL : Variant;
 begin 
  XL := CreateOleObject('Excel.Application');
  XL.Workbooks.Open(AFileName);
...
  XL.Sheets[ 1 ].Rows.Count;
...
пишет общее количество строчек, а мне нужно то, на которое осуществляется переход по Ctrl-End

Запиши макрос и посмотри как называется эта ячейка...
Код: plaintext
ActiveCell.SpecialCells(xlLastCell).Select
...
Рейтинг: 0 / 0
01.08.2007, 16:54
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #34699016
Access denied
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access denied
Гость
Куликов АлексейЗапиши макрос и посмотри как называется эта ячейка...
Код: plaintext
ActiveCell.SpecialCells(xlLastCell).Select

макрос я первым делом и сгенерил, только непонятно как его анализировать :(
...
Рейтинг: 0 / 0
01.08.2007, 17:28
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #34699072
Фотография Куликов Алексей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куликов Алексей
Участник
Access denied Куликов АлексейЗапиши макрос и посмотри как называется эта ячейка...
Код: plaintext
ActiveCell.SpecialCells(xlLastCell).Select

макрос я первым делом и сгенерил, только непонятно как его анализировать :(

Как видишь, так и анализируешь...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 procedure  Excel_Delphi;
 var 
  Excel, WorkBook, Sheet, Rabge, Value : OleVariant;
  CountRow, CountCol : integer;
 begin 
    Excel := CreateOleObject('Excel.Application'); 
    WorkBook := Excel.Workbooks.Open(sToFileName); 
    Sheet := Excel.Workbooks[ 1 ].Sheets[ 1 ]; 
    Range := Sheet.UsedRange;
    Value := Range.Value;

    CountRow := Range.Rows.Count;  
    CountCol := Range.Columns.Count; 
 end ;
...
Рейтинг: 0 / 0
01.08.2007, 17:39
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #34699079
Фотография Куликов Алексей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куликов Алексей
Участник
Код: plaintext
1.
2.
3.
4.
5.
    XL:=CreateOleObject('Excel.Application');
    XL.Application.EnableEvents := False;
    WorkBook:=XL.WorkBooks.Add(ExtractFileDir(Application.ExeName)+'\Report.xls');
    Workbook.WorkSheets[ 1 ].Cells.SpecialCells(xlLastCell, EmptyParam).Activate;
    Size_X := XL.ActiveCell.Column;
    Size_Y := XL.ActiveCell.Row;
...
Рейтинг: 0 / 0
01.08.2007, 17:41
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #34699230
Access denied
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access denied
Гость
спасибо, оно:)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
 var 
  XL : Variant;
  Rows: Integer;
 begin 
  XL := CreateOleObject('Excel.Application');
  XL.Workbooks.Open(AFileName);

  XL.Sheets[ 1 ].Select;
  XL.Sheets[ 1 ].Cells.SpecialCells(xlLastCell, EmptyParam).Activate;

  Rows := XL.ActiveCell.Row;
...
  XL.Sheets[ 2 ].Select;
  XL.Sheets[ 2 ].Cells.SpecialCells(xlLastCell, EmptyParam).Activate;

  Rows := XL.ActiveCell.Row;
...
...
Рейтинг: 0 / 0
01.08.2007, 18:20
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Количество строчек на странице Excel
    #39945815
Фотография kuzduk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuzduk
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
XL := CreateOleObject('Excel.Application');
XL.Workbooks.Open(ExcelFilePath);

//Первый вариант:
UsedRowCount := iSheet.UsedRange.Rows.Count;  //Если у тебя заняты первые десять строк то вернёт 10. Однако если идут первые две строки пустые, а потом 10 занятых, то один хрен вернёт 10, ибо возвращает количество занятых строк.
UsedColCount := iSheet.UsedRange.Columns.Count;
FirstUsedRow := iSheet.UsedRange.Row; //Номер первой строки в которой прописана ячейка
FirstUsedCol := iSheet.UsedRange.Column; //Номер первой колонки в которой прописана ячейка
LastUsedRow  := FirstUsedRow + UsedRowCount - 1;
LastUsedCol  := FirstUsedCol + UsedColCount - 1;
     

//Второй вариант: через активацию последней непустой ячейки
//const xlCellTypeLastCell = $0000000B;
iSheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate; //Если лист пуст(ни одна ячейка не прописана), то строка вызывает ошибку
LastUsedRow := XL.ActiveCell.Row;
LastUsedCol := XL.ActiveCell.Column;
...
Рейтинг: 0 / 0
10.04.2020, 13:19
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #39945836
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
И кому, кроме тебя, это нужно ?
...
Рейтинг: 0 / 0
10.04.2020, 13:59
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #39945857
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Да пусть будет, для тех кто будет искать.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
10.04.2020, 14:27
| Ответить | Цитировать | Написать  
Количество строчек на странице Excel
    #39945859
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
DimaBr,

это же ТС. 13 лет исследований.
...
Рейтинг: 0 / 0
10.04.2020, 14:28
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Количество строчек на странице Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&tid=2038414]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 208ms
total:  315ms
созд. / загр.: 315ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]