Ошибка в при работе с Екселем [D6, WinXP]
guru-guru © (2005-12-28 11:23:00)
ребята помогите. Что за фигня пишу
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:00) [1]
Спасибо за помощь! :)
Я сделал.
Наверх 
ЧАТ |
Орешник |
|
