Скачать: CL | DM;

Ошибка в при работе с Екселем   Найти похожие ветки 

← →
guru-guru ©   (2005-12-28 11:23) [0]

ребята помогите. Что за фигня пишу
     FileName:="Шаблон.xls";
     AppProgID:="Excel.Application";
     ServerIsRunning:=false;
     Result:=GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
     if (Result=MK_E_UNAVAILABLE) then
        begin
           App:=CreateOleObject(AppProgID);
           app.WorkBooks.add;
           app.visible:=true;
        end
     else
        begin
           ShowMessage("Закрой все копии ехеля");
           exit;
        end;
     try
        App.ActiveWorkBook.worksheets["Лист2"].Range["B1:F1"].Select; //ругается
     finally
        App:=Unassigned;
     end;
А он выдает что "метод select из класса range завершен неверно". Причем в одном месте программы рулит, а вот здесь нет. :(

---

← →
guru-guru ©   (2005-12-28 11:54) [1]

Спасибо за помощь! :)

Я сделал.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c