Главная страница
    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.01 c
1-37654
SoS
2003-12-26 19:45
2004.01.13
не ставиться RxLibrary на 7-й делфи, пишет ошибки


1-37772
sergwolf
2003-12-26 07:42
2004.01.13
Скиньте пожалуста пример файлового менеджера


14-37874
JibSkeart
2003-12-22 14:02
2004.01.13
Что нибудь существует для мониторнига миниатс ?


1-37766
baataars
2003-12-31 15:08
2004.01.13
dbgrid и колесико мыши


1-37682
Кен
2003-12-25 02:34
2004.01.13
Как правильно проводить лексический анализ текста ? Разбиение





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский