| [Makc] |
 Отправлено: 06.07.2005, 05:49 |
|
Не зарегистрирован
|
Знающие, подскажите, пожалуйста, как через OLE объединить экселевские ячейки? |
|
| Zmiy |
| Отправлено: 11.07.2005, 09:07 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 3
|
ExcelApplication1.Range['A1','B2'].Merge(0);
А1- верхный левый угол, В2-нижний правый выделяимой группы, 0- идентификатор |
|
| grebenyk |
| Отправлено: 18.07.2005, 17:04 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 73
|
Можно и так:
AnsiString aa1=raschet(Row1,Column1);
AnsiString aa2=raschet(Row2,Column2);
Sh.OlePropertyGet("Range",(aa2+":"+aa1).c_str()).OlePropertySet("WrapText",true);
где
AnsiString raschet(int Row,int Column)
{
AnsiString aa;
if(Column<27){ char aaa=64+Column;
aa=String(aaa)+IntToStr(Row);
}
else
{char aaa=64+Column-26;
aa="A"+String(aaa)+IntToStr(Row);
}
return aa;
}
|
|
|
