открыть excel

← →
rosl (2003-05-12 03:26) [0]

Помогите, если не трудно.
Пытаюсь открыть excel, чтоб вставить туда данные:
var
ExcelApp: Variant;
begin
ExcelApp := CreateOleObject("Excel.Application");
выдаёт ошибку в последней строке, что я не так делаю?
Есть готовый исходник, вроде ни каких отличий от своего не нашёл.

← →
Rol (2003-05-12 06:14) [1]

Какую ощибку выдаёт-то?

← →
Anatoly Podgoretsky © (2003-05-12 08:22) [2]

Может тебе кажется

← →
Соловьев © (2003-05-12 09:41) [3]

if IsOLEObjectInstalled("Excel.Application") then begin try // Ищем запущеный экземплят Excel, если он не найден, вызывается исключение ExcelApp := GetActiveOleObject("Excel.Application"); except // Создание Excel ExcelApp := CreateOleObject("Excel.Application"); end; //try..except

function IsOLEObjectInstalled(Name: String): boolean; var ClassID: TCLSID; Rez : HRESULT; begin // Ищем CLSID OLE-объекта Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID); if Rez = S_OK then // Объект найден Result := true else Result := false; end;

Взято из королевства...
http://www.delphikingdom.com/helloworld/excelsm.htm

открыть excel Найти похожие ветки