CreateOleObject(´Excel.Application´) está dando erro !!!

20/06/2005

0

uso o delphi 7.0
Galera, criei uma variavel excel: variant depois chamei a instrução abaixo

Excel := CreateOleObject(´Excel.Application´) e quando passa por aqui
diz ´CoInitialize não foi chamado´

o que faço ????


Dr. Interbase

Dr. Interbase

Responder

Post mais votado

20/06/2005

Tente incruir na uses da sua form [b:4372c9c613]comobj[/b:4372c9c613]... deve ser isso...


Japa

Japa
Responder

Mais Posts

20/06/2005

Dr. Interbase

Já coloquei o comobj, pois se não tivesse nem compilaria

O que faço ????


Responder

20/06/2005

Phibis

Experimente adicionar além do ComObj, a Unit Excel2000 ou 97 dependendo do caso.

até mais.


Responder

05/07/2005

Tronbr

na unit que está ocorrendo o erro inclua em uses ActiveX, e no final antes do
end. 
inclua o seguinte
 initialization
CoInitialize(nil);

finalization
CoUnInitialize;

t+


Responder

10/12/2007

Steve_narancic

Fiz isso e o erro continua ocorrendo. Alguem teria outra sugestão???


Responder

10/12/2007

Massuda

Pergunta boba... você tem o Excel instalado nessa máquina?


Responder

10/12/2007

Steve_narancic

Sim tenho,
o estranho é que para outro relatório que também faz exportaçao para excel funciona perfeitamente!


Responder

10/12/2007

Massuda

Você está fazendo isso numa thread separada?

A solução do tronbr é boa para os casos onde uma única thread (a principal) vai usar o Excel, mas não vai funcionar se houver mais de uma thread.


Responder

08/06/2016

Devmedia

olá

Na cláusula USES, adicione as 3 bibliotecas abaixo:

uses
xlconst, COMOBJ, SHELLAPI [...]
Responder

20/06/2023

Wanderson

Fiz isso e o erro continua ocorrendo. Alguem teria outra sugestão???






//Adiciona no Uses:

uses
System, ComObj;

//Declare a Variavel:

var
planilha : variant;

//Procedimento

planilha:= CreateoleObject('Excel.Application');
planilha.WorkBooks.add(1);
planilha.caption := 'Nome-desejado';
planilha.WorkBooks[1].WorkSheets[1].Name := 'Nome-desejado';
planilha.visible := true;
planilha.columns.Autofit;



Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar