| m-star |
| Отправлено: 16.09.2004, 13:42 |
|
Не зарегистрирован
|
есть код:
TExcelApplication *EA;
TExcelWorksheet *EW;
TExcelWorkbook *EB;
EA = new TExcelApplication(NULL);
EA->ConnectKind = ckNewInstance;
EA->Connect();
EA->set_Visible(TDefLCID(),true);
EW = new TExcelWorksheet(NULL);
EB = new TExcelWorkbook(NULL);
EA->set_ReferenceStyle(TDefLCID(), xlA1);
EA->Workbooks->Add();
EB->ConnectTo(EA->ActiveWorkbook);
EW->ConnectTo(EB->ActiveSheet);
EW->set_Name(StringToOleStr("111"));
EW->Cells->set_Item(TVariant("A2"),TVariant("A2"),TVariant("1"));
delete EW;
delete EB;
delete EA;
//
дык вот, вставка в ячейку А2 не происходит, мож кто-нить знает почему?
заранее пасиба!!! |
|
| xim |
| Отправлено: 16.09.2004, 17:46 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 143
|
EW->Cells->set_Item(TVariant(2),TVariant("A"),TVariant("1")); |
|
| m-star |
| Отправлено: 17.09.2004, 08:08 |
|
Не зарегистрирован
|
| QUOTE (xim @ 16/09/2004, 18:48) | | EW->Cells->set_Item(TVariant(2),TVariant("A"),TVariant("1")); |
попробовал, тоже не работает....
видимо все придеца переделывать без использования TExcelApplication |
|
|
