| Stranger |
| Отправлено: 15.04.2004, 20:18 |
|
Не зарегистрирован
|
Короче, отчет создается, но данные в ячейки не записываются. Подскажите пожалуйста что неправильно в этом коде:
*******************************************************
try
{
Form1->ExcelApplication1->Connect();
}
catch (Exception &exception)
{
MessageDlg("Excel не установлен", mtError, TMsgDlgButtons() << mbYes, 0);
Abort;
}
Form1->ExcelApplication1->set_Caption(StringToOleStr("Отчет по моделям оборудования"));
//Create new workbooks
Form1->ExcelApplication1->Workbooks->Add();
//Assign Excel component
Form1->ExcelWorksheet1->ConnectTo(Form1->ExcelApplication1->ActiveSheet);
//Insert data
for(int i=0;i>100;i++)
{
Form1->ExcelWorksheet1->Range[Variant(i)][Variant(1)]->set_Value(Variant(1));
}
Form1->ExcelApplication1->set_Visible(0,true);
*******************************************************
Заранее благодарен. |
|
| Gedeon |
| Отправлено: 16.04.2004, 08:37 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Уже надоело, читайте уроки.
|
|
|
