TVariant One = 1;
ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item(One));
режим "release"
я скомпилировал свою программу в режиме "release". Когда пробую ее пустить, выскакивает error таблица:
(this->get_Item(Index,(LPDISPATCH*)&RHS)) Error:C0000005 (-1073741819) @C:/program files/borland/cbuilder6/include/vcl/Excel_2k.h/9908
Мой код:
...
try {
ExcelApplication1->Connect();
ExcelApplication1->set_Visible(true,true);
ExcelApplication1->set_DisplayAlerts(0,false);
ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Add());
ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item(TVariant)1));
...
Таблица ошибки появляется при выполнении последней строки. Может быть есть предложения, как это исправить? Сам никак не могу разобраться в чем ошибка...:(
(this->get_Item(Index,(LPDISPATCH*)&RHS)) Error:C0000005 (-1073741819) @C:/program files/borland/cbuilder6/include/vcl/Excel_2k.h/9908
Мой код:
...
try {
ExcelApplication1->Connect();
ExcelApplication1->set_Visible(true,true);
ExcelApplication1->set_DisplayAlerts(0,false);
ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Add());
ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item(TVariant)1));
...
Таблица ошибки появляется при выполнении последней строки. Может быть есть предложения, как это исправить? Сам никак не могу разобраться в чем ошибка...:(
А в режиме "full debug" нормально работает?
Цитата:
ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item(TVariant)1));
А почему "1". Или в екселе нумерация листов не с нуля начинается ?
привет, el scorpio
в режиме "full debug" работает нормально. А нумерация в екселе листов начинается с единицы.
Есть ли какие то идеи чтобы это решить? :(
в режиме "full debug" работает нормально. А нумерация в екселе листов начинается с единицы.
Есть ли какие то идеи чтобы это решить? :(
Вообще-то приводить вручную 1 к вариантному типу необязательно. Builder вставляет вызовы подходящего конструктора с параметрами (и деструктора) автоматически.
Цитата: Plisteron
А если явно создать объект?
?
Код:
TVariant One = 1;
ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item(One));
ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item(One));
?
спасибо, Plisteron, это работает! :)