подсчет символов в ячейке

← →
123456789igor © (2012-11-14 02:22) [0]

Как подсчитать количество символов в excel таблице через delphi?

← →
AV © (2012-11-14 10:04) [1]

сложить все ячейки в строку, взять ее длину

← →
AV © (2012-11-14 11:46) [2]

а можно еще поробовать ThisCell.Characters.Count
где ThisCell - range из excel

← →
AV © (2012-11-14 13:59) [3]

> ThisCell.Characters.Count

если получится - напишите, как именно сделали
что-то ради интереса попробовал - не получается

var
ExcelApp, WorkBook, ActiveSheets: Variant;
Cell1, Cell2,Range: Variant;
R: ExcelXP.ExcelRange;
S:string;
A: Variant;
i,j,n: integer;
begin
ExcelApp := CreateOleObject("Excel.Application");
ExcelApp.Visible := true;
WorkBook := ExcelApp.WorkBooks.Add("c:\1.xls");
ActiveSheets := WorkBook.WorkSheets[1];
Cell1 := ActiveSheets.Cells[1, 1];
Cell2 := ActiveSheets.Cells[3, 3];
Range := ActiveSheets.Range[Cell1, Cell2];
// если по простому
A := Range.Value;
for i := 1 to 3 do
for j := 1 to 3 do
S := S + string(A[i,j]);
ShowMessage(S + #13#10 + IntToStr(Length(S)));

// если иначе - засада, копать надо
// R := IDispatch(Range) as ExcelRange;
// ShowMessage( IntToStr( R.Characters.Count ));

← →
Dimka Maslov © (2012-11-14 18:40) [4]

> // если иначе - засада, копать надо

Range.Characters.Count ?

← →
AV © (2012-11-14 19:32) [5]

Characters[требует]

Чё то у меня с рейджем не получилось. Думаю, надо таки считать длины в отдельных ячейках и не наприться

> количество символов в excel таблице

Для чисел применяется форматирование отображения.
Видно 2,55, на самом деле в ячейке 2,551859425
Флаг в руки!!!

подсчет символов в ячейке Найти похожие ветки