Delphi+Excel

← →
Daria (2006-03-27 12:59) [0]

Привет всем! вопрос такой: как объединить ячейки на листе Excel, созданном через Delphi? Проблема в том, что № столбца не буквенный (как в Excel),а цифровой. Поэтому команда, например, excel.workbooks[1].worksheets[1].range["A1:B1"].merge не подходит

← →
KSergey © (2006-03-27 13:35) [1]

Во всех этих проблемах есть стопудово рульный вариант: в excel начинаем запись макроса, делаем нужые дейсвия, останавливаем запись, смотрим код макроса

Далее достаточно косметических преобразований - и нудный код готов!

← →
Daria (2006-03-27 13:36) [2]

если бы! в макросе промисывается range(A1,B2) например, а мне нужно без букв.

← →
KSergey © (2006-03-27 13:36) [3]

PS
Не для мерения, а просто вспомнилось: вычитал я этот метод на ixtb-шной конферении в 97 году.... Скоро, однако, десятилетие проставлять придется....

← →
KSergey © (2006-03-27 13:40) [4]

тада
http://www.delphikingdom.ru/asp/itemq.asp?mode=1&itemid=2

Особливо статьи "По волнам интеграции". Думаю - найдется то, что нужно

← →
jack128 © (2006-03-27 14:21) [5]

Range(Cells(1, 1), Cells(10, 15))
Возможно где-то круглые скобки на квадратные нужно заменить..

← →
Daria (2006-03-27 14:37) [6]

jack128, выдается ошибка undeclared identifier cells

ну можно же и самой немножко подумать?

Cells - это свойство рабочего листа - выводы делай сама..

← →
так себе (2006-03-27 19:48) [8]

http://www.kornjakov.ru/stat.htm#s12

Хм...
А что мешает через буквенный код сделать? Это же элементарно!

Типа:
Var
Excel: Variant;
List : OleVariant;

procedure TFReestr.FormCreate(Sender: TObject);
begin
try
Excel:=GetActiveOLEObject("Excel.Application");
except
try
Excel:=CreateOleObject("Excel.Application");
except
ShowMessage("Excel недоступен!");
abort;
end;
end;
List := Excel.WorkBooks.Open(s+"Reestr.xls");
Excel.Visible:=false;
....
end;
Тогда буквенные названия доступны полностью!

Delphi+Excel Найти похожие ветки