"Selection.End(xlDown).Select" в Excel

← →
Krants (2006-09-19 13:15) [0]

Как можно осуществить процедуру Selection.End(xlDown).Select в паскале?,
обращаясь к Excel`ю данным образом:

XLApp:= CreateOleObject("Excel.Application");
XLApp.Workbooks.Open(FileName);
Sheet:=XLApp.Workbooks[1].WorkSheets[1];

← →
Сергей М. © (2006-09-19 13:18) [1]

Sheet.Range[такой-то].End(значение константы xlDown).Select

← →
Krants (2006-09-19 13:29) [2]

В том то и дело: "значение константы!", а каким образом можно узнать это значение да и прочие..., а то задалбливает цифры перебирать)

← →
Сергей М. © (2006-09-19 13:34) [3]

> Krants (19.09.06 13:29) [2]

В Ёхеле открываешь редактор визуального васика, жмешь Ctrl-G, в открывшемся при этом окне набираешь ?xlDown и имеешь удовольствие

← →
Krants (2006-09-19 15:16) [4]

> Сергей М.

Узнал код(-4121), но чегото не выходит...

ЗЫ: за "визуальный васик" респект.

← →
Сергей М. © (2006-09-19 15:25) [5]

> чегото не выходит

Для того чтобы "чегото" вышло, нужно чтобы это "чегото" сначала туда вошло

> каким образом можно узнать это значение да и прочие

uses ..., Excel97, ...;
вместо 97 надо подставить номер версии оффиса (2000, ХР и т.д.)

← →
Krants (2006-09-20 13:15) [7]

> umbra

Да просто нехочется засорять программу лишними библиотеками, да и к тому же может возникнуть конфликт при использовании 2000 б-ки на машине с 97 Офисом...

> Сергей М.

Это "чегото" входит, только "ничегото" не выходит...
можеш показать на примере, если несложно.

XLApp.Selection.End[-4121].Select;

"Selection.End(xlDown).Select" в Excel Найти похожие ветки