Как можно получить диапазон Excel

← →
вик © (2004-10-18 09:33) [0]

Как можно получить диапазон ячеек которые выделены мышкой на активной странице в Excel
Ну очень надо!!! плиз

← →
GuAV © (2004-10-18 11:41) [1]

WB.ActiveSheet.Selected ?

← →
вик © (2004-10-19 02:38) [2]

selected возвращает у меня начальную ячейку выделения а я пытаюсь получить диапазон что бы не извращаться на каждой книге присваиванием диапазону имени TABLE для последующего импорта
типа
var IntRange:ExcelRange; //... IntRange := range ["TABLE",EmptyParam];
только место table хочу получить выделенные мышкой ячейки.

← →
Мирон © (2004-10-19 03:39) [3]

> selected возвращает у меня начальную ячейку выделения

Уверен? Может не Selected, а Selection?
Если в VBA выполнить:
Selection.Value = 123
то заполнятся все ячейки выдленного диапазона.
И, по-моему, также у меня работало и из Delphi...

А возможно, но как его использовать в делфях если можно киньте кусочек исходника. плиз ну очень нужно

вик © (19.10.04 8:22) [4]

Как оказалось, я тебя обманул. Сам раньше делал так:
MyRange := Range[...].Select; MyRange.Value := "123";

НО! Полазив по справкам и поэкспериментировав, выяснил, что следующее работает:
var Excel: TExcelApplication; List: TExcelWorkSheet; W: TExcelWorkBook; R: Range; ... List := TExcelWorkSheet.Create(Self); List.ConnectTo(W.ActiveSheet as Excel97.ExcelWorksheet); List.Range["A1", "D10"].Select; R := Range(Excel.ActiveWindow.Selection); R.Value := 123; ...

а дальше, думаю, тебе остается в цикле пройтись по Selection:

for I := 0 to R.Rows.Count - 1 do begin
for J := 0 to R.Columns.Count - 1 do begin
Range[..] := ...
end;
end;

Сам ковыряй...

Как можно получить диапазон Excel Найти похожие ветки