Мобильная версия форумов
Открыть
 −8°C
завтра: −2°C
Погода в Перми
−8°C
утром−6°C
днем−4°C
завтра−2°C
Подробно
 65,86
−0.3454
Курс USD ЦБ РФна 21 февраля
65,8568
−0.3454
 74,68
−0.1335
Курс EUR ЦБ РФна 21 февраля
74,6816
−0.1335
PRM.Форум /Компьютеры Интернет Связь / Программирование /

Excel & Ole -> программа выполнила недопустимую ..

  • veteran

    Сообщений: 1583

    var
    Excel:Variant;
    begin

    Excel:=Unassigned;
    Excel:=CreateOleObject('Excel.Application');
    Excel.DisplayAlerts:=false
    WBook:=Excel.WorkBooks.Add
    //...и.т.д.
    //потом завершаем работу

    Excel:=Unassigned

    {вот тут на win98 вылетает стандартное виндовая ошибка "программа выполнила недопустимую операцию и будет закрыта...". Причём ругается именно на Excel, что он выполнил недопустимую операцию.}

    end;

    P.S. Дельфи5. Воспроизводится только на машинах с windows98 от версии MS Office не зависит.

  • Господин Уэф!

    Анонимный пользователь

    я по такой схеме работаю, глюков нет

    uses OleServer, Excel2000, OleCtnrs, ComObj....
    var
    MSExcel: TExcelApplication;
    ExcelWSh: ExcelWorksheet;
    ExcelWB: ExcelWorkbook;
    .....
    begin
    MSExcel:=TExcelApplication.Create(self);
    MSExcel.ConnectKind:=ckNewInstance;
    MSExcel.AutoQuit:=true;
    MsExcel.WindowState[LOCALE_USER_DEFAULT]:=xlNormal;
    MsExcel.Left[LOCALE_USER_DEFAULT]:=Form1.Left+140;
    MsExcel.Top[LOCALE_USER_DEFAULT]:=Form1.Top+65;
    MSExcel.Width[LOCALE_USER_DEFAULT]:=Form1.Width-410;
    MSExcel.Height[LOCALE_USER_DEFAULT]:=Form1.Height-320;
    MSExcel.Visible[LOCALE_USER_DEFAULT]:=true;
    MSExcel.Workbooks.Open(filename,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,1);
    ExcelWB:=MSExcel.Workbooks:1: ;
    ExcelWB.Activate(LOCALE_USER_DEFAULT);
    ......
    end;

    Закрываю

    MSExcel.Destroy;

  • рыжий котэ

    Сообщений: 12083

    В ответ на: Excel:=Unassigned;
    А какой смысл в этой строчке? По моему она вообще не нужна.

    Осторожнее с травой!
    Если хапнешь много дряни
    Увезут тебя с собой
    Злые инопланетяне

  • veteran

    Сообщений: 1583

    Нужна, проблема была в том, что я не "освобождал" переменные WBook, WSheet и.т.д.

Записей на странице:

Перейти в форум

Модератор: