1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

delphi&excel (HELP)

Тема в разделе "Delphi - программирование", создана пользователем fenix, 12 янв 2004.

Статус темы:
Закрыта.
  1. fenix

    fenix Гость

    Репутация:
    0
    Пипл подскажите плиз как из делфы в Excel можно обединить 2 ячейки
    с помещением текста в центре (в екселе такая кнопка есть а как из delphi это зделать)
    Зарание благодарен.
     
  2. admin

    admin Well-Known Member

    Репутация:
    0
    Регистрация:
    8 авг 2003
    Сообщения:
    2.754
    Симпатии:
    1
    fenix
    хммм
    А ты вообще с экселем через Delphi работал? OLE знаешь такую фичу? Можно всё просто вывести в окне делфовом и нажать кнопку.
     
  3. GERASIM FROM MINSK

    GERASIM FROM MINSK Гость

    Репутация:
    0
    Сам только что накопал в Инете в проекте DELPHI WORLD

    ПОКА ЕЩЕ НЕ ПРОВЕРЯЛ :)

    MerCen('A4:J4');

    Исходный код:

    var
    xls: Variant;
    const
    xlCenter = -4108;

    procedure MerCen(ran: string);
    begin
    xls.Range[ran].Select;
    xls.Selection.HorizontalAlignment := xlCenter;
    xls.Selection.VerticalAlignment := xlCenter;
    xls.Selection.WrapText:= false;
    xls.Selection.Orientation := 0;
    xls.Selection.ShrinkToFit := False;
    xls.Selection.MergeCells := False;
    xls.Selection.Merge;
    end;
     
  4. Barmutik

    Barmutik Гость

    Репутация:
    0
    Работает:

    Код:
    ExcelApp.ActiveWorkBook.WorkSheets[1].Range['A1, 'C2'].MergeCells := True;
    Диапазон ячеек дан для примера само собой...
     
Загрузка...
Похожие Темы - delphi&excel (HELP)
  1. NekoKira
    Ответов:
    5
    Просмотров:
    1.792
Статус темы:
Закрыта.

Поделиться этой страницей