Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Количество строчек на странице Excel / 10 сообщений из 10, страница 1 из 1
01.08.2007, 16:43
    #34698799
Access denied
Access denied
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
не пинайте сильно, если вопрос обсасывался неоднократно - не могу сообразить как по 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:54
    #34698851
Куликов Алексей
Куликов Алексей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
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, 17:28
    #34699016
Access denied
Access denied
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
Куликов АлексейЗапиши макрос и посмотри как называется эта ячейка...
Код: plaintext
ActiveCell.SpecialCells(xlLastCell).Select

макрос я первым делом и сгенерил, только непонятно как его анализировать :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2007, 17:39
    #34699072
Куликов Алексей
Куликов Алексей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
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:41
    #34699079
Куликов Алексей
Куликов Алексей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
Код: 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, 18:20
    #34699230
Access denied
Access denied
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
спасибо, оно:)
Код: 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
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
10.04.2020, 13:19
    #39945815
kuzduk
kuzduk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
Код: 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:59
    #39945836
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
И кому, кроме тебя, это нужно ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2020, 14:27
    #39945857
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
Да пусть будет, для тех кто будет искать.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2020, 14:28
    #39945859
ъъъъъ
ъъъъъ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество строчек на странице Excel
DimaBr,

это же ТС. 13 лет исследований.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Количество строчек на странице Excel / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 316ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2038414]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 222ms
total:  316ms
x
x
Закрыть


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