Подскажите, как можно узнать какие ячейки выделенны в Excel?

← →
Ilya___ (2005-01-16 13:15) [0]

Подскажите, как можно узнать какие ячейки выделенны в Excel?
Так я узнаю индекс выделенной ячейки:

var
Col, Row: Integer;
XLApp,
WS: Variant

begin
XLApp := GetActiveOleObject(XLAppVersion);

Col := XLApp.Selection.Column;
Row := XLApp.Selection.Row;

А как это узнать, если выделено несколько ячеек или получить
доступ к массиву выделенных ячеек (если таковой имеется) ?

← →
YurikGL © (2005-01-16 13:24) [1]

Попробуй что-то типа

selection.Range.Top.
selection.Range.Left
selection.Range.Width
selection.Range.Height

← →
Ilya___ (2005-01-16 14:46) [2]

А как можно присвоить выделенным ячейкам значения?
Например:
var
va: variant;
begin
VarArrayCreate([1, 2], varInteger);

XLApp.Selection.Range.FillRight(VA);
end;

Но только так не работает.

← →
olookin © (2005-01-16 15:17) [3]

procedure WriteRange(BookName,SheetName: Ansistring; Col,Row: integer;
var Value: Variant);
...
if VarIsArray(Value)=false then begin tr:=Row; tc:=Col; end else begin
if VarArrayDimCount(Value)=1 then begin
tc:=Col; tr:=Row+VarArrayHighBound(Value,1); end;
if VarArrayDimCount(Value)=2 then begin
tc:=Col+VarArrayHighBound(Value,2);
tr:=Row+VarArrayHighBound(Value,1); end; end;
Excel.Workbooks[k].Sheets[j].Range[
Excel.Workbook[k].Sheets[j].Cells[Row,Col],
Excel.Workbook[k].Sheets[j].Cells[tr,tc]]:=Value;
...

← →
Ilya___ (2005-01-16 16:38) [4]

Спасибо!

Подскажите, как можно узнать какие ячейки выделенны в Excel? Найти похожие ветки