Microsoft Excel reporting and 
 data analyzing with practically no coding. 
 .Net, ActiveX, and VCL versions. 
 www.AfalinaSoft.com

Главная    Продукты    Downloads    Поддержка    Регистрация    Delphi & Excel

[ English ]

MS Office COM Add-ins. Excel reports with minimal coding. Save your time. Get impressive results. VCL & OCX. Microsoft Excel reporting 
 and data analyzing

Delphi & Excel


Продукты



Delphi & Excel: работа с ячейками.

Способы обращения к ячейкам

Возможно использование различных способов обращения к ячейкам от привычного в Excel Cells(x,y) до коллекции Names. Приведем некоторые из них на примере чтения данных из ячейки "A2" листа "Лист1" (имя "TestCell"):

var
Value: OLEVariant;
ISheet: Excel8_TLB._Worksheet;
...
ISheet := IWorkbook.Worksheets.Item['Лист1'] as Excel8_TLB._Worksheet;
try
//различные способы
Value := ISheet.Cells.Item[2, 1].Value;
Value := ISheet.Range['A2', EmptyParam].Value;
Value := ISheet.Range['TestCell', EmptyParam].Value;
Value := IWorkbook.Names.Item('TestCell', EmptyParam, EmptyParam).RefersToRange.Value;
finally
ISheet := nil;
end;

Чтение данных из нескольких ячеек (области)

Наиболее просто чтение данных из области A1:B5 можно осуществить вот так:

var
Values: OLEVariant;
ISheet: Excel8_TLB._Worksheet;
IRange: Excel8_TLB.Range;
...
ISheet := IWorkbook.Worksheets.Item['Лист1'] as Excel8TLB._Worksheet;
IRange := ISheet.Range['A1', 'B5'];
Values := IRange.Value;

Для получения в массиве значений всех ячеек из используемой области на листе (прямоугольная область, заключенная между "A1" и "правой нижней непустой" ячейками), в предыдущем примере можно написать следующее:

IRange := ISheet.UsedRange[xlLCID];

Copyright © 1999-2003
Afalina Co., Ltd.
Все права защищены.

WebMaster