Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Вниз

Господа! Как достучаться до Excel? (группировка строк)   Найти похожие ветки 

 
Малиновский Владимир   (2003-11-11 15:09) [0]

Вывожу отчеты в Excel. Захотел фичу - группировка строк.

В макросе на VBA все выглядит так:

Rows("24:26").Select
Range("A26").Activate
Selection.Rows.Group


Как из Delphi достучаться до интерфейса Selection?

Или как-то еще запустить Group?


 
sapsi   (2003-11-11 15:41) [1]

Например так.
var range, xlapp,xlsheet1,xlsheet,xlbook,Cell1,Cell2: Variant;

xlApp:=CreateOleObject("Excel.Application");
xlbook:=XLApp.Workbooks.Add(xlWbatWorkSheet);
xlsheet:=xlbook.sheets[1];
xlsheet.name:="Отчет такой-то";
xlsheet.pagesetup.Orientation:=xlLandscape;

Дальше выбираем границы области
Cell1:=xlsheet.Cells[1, 1];
Cell2:=xlsheet.Cells[1, 6];
range:=xlsheet.range[cell1,cell2];
Сливаем ячейки
range.mergecells:=true;
Шрифт устанавливаем и рамочку
range.Font.Bold:= True;
range.Borders.LineStyle:=xlContinuous;
range.Borders.Weight:= xlMedium;
Дальше - в том же духе.
Cell1:=xlsheet.Cells[3, 7];
Cell2:=xlsheet.Cells[3, 8];
range:=xlsheet.range[cell1,cell2];
range.mergecells:=true;
range.Borders.LineStyle:=xlContinuous;
range.Borders.Weight:= xlMedium;
range.Font.Bold:= True;
и т.п.


 
Малиновский Владимир   (2003-11-11 16:05) [2]

Да, вот еще подказали - при работе с TExcelApplication и т.п.:

MyExcelWorkSheet.Range["A10","A15"].Rows.Group(EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Всем спасибо ! Отчеты - просто блеск!

sapsi - СПАСИБО.



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
1-37764
miracle_fox
2003-12-29 16:51
2004.01.13
помогите новичку (работа с ListBox)


14-37937
}|{yk
2003-12-19 18:45
2004.01.13
Помогите выбрать мобильный!


1-37780
TuZ
2003-12-29 13:27
2004.01.13
Как добавить иконку в консольное приложение?


1-37641
Pa5ha
2003-12-26 23:44
2004.01.13
Кнопарь рядом с границей.


14-37887
Rouse_
2003-12-23 12:15
2004.01.13
Не могу определить источник неполадок с изображением в DOS MODE





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский