| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить конец документа? [D6]
V l a d i m i r © (2004-08-12 11:40:00)Доброго всем дня! Уже вторую неделю ломаю голову над этим вопросом… Собственно, как получить информацию из документа я знаю. Например, я делаю это следующим образом: информация хранится в первом листе документа Excel, и доступ к ячейкам в упрощенном виде можно показать на следующем примере: размещаю на форме компонент типа TexcelApplication (Name: XLApp, свойство ConnectKind: ckNewInstance):
procedure TForm1.Button1Click(Sender: TObject);
var
WorkBook, Sheet: Variant;
FileLocate: WideString;
Info: String;
Begin
XLApp.Connect;
FileLocate := 'C:\1.xls';
//Открываю файл Excel
XLApp.WorkBooks.Open(FileLocate, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam,0);
//Открываю книгу и обращаюсь к первому листу
WorkBook := XLApp.WorkBooks.Item[1];
Sheet:=XLApp.Application.Worksheets.Item[1];
//Читаю вторую строку и второй столбец, т.е ячейку, содержащую любую информацию
Info:=Sheet.Cells[2,2];
ShowMessage(Info);
End;
Таким образом, в первом листе документа заполнена только ячейка со вторым столбцом и второй строкой. Следовательно, конец документа – вторая строка… Как можно определить, конец документа? То есть получить последнюю строку, после которой документ пуст?
V l a d i m i r (2004-08-12 12:45:00) [21]Подскажите хотя бы, какие статьи прочитать можно на эту тему, плз...
V l a d i m i r (2004-08-12 12:19:00) [22]
> nasty ©
> Sheet.UsedRange
... я неточно поставил вопрос... Мне нужно получить НОМЕРпоследней строки, после которой документ пуст.
nasty (2004-08-12 11:49:00) [23]ну это же так просто -)
Sheet.UsedRange
Ega23 (2004-08-12 11:43:00) [24]А может-ли это сделать сам Excel?
| |
Страницы: 