Pessoal
 
Basta criar uma função tipo GeraExcel e colocar toda a funcionalidade de abertura, geração dos dados e fechamento da planilha, que o Excel é encerrado assim que a função terminar.
 
Abçs
 
JC.Schmidt


De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de Erasmo
Enviada em: quinta-feira, 3 de novembro de 2005 10:44
Para: sqlwin@virtualand.net
Assunto: Re: RES: RES: [sqlwin] Crair arquivo XLS

Marcelo,

Fiz os testes aqui e realmente o processo do Excel fica na memória até que se encerre a aplicação, não encontrei nenhuma rotina que derrube o processo, construí até uma Dynalib com as funções de acesso ao Excel (para não ter aquele monte de código Include para o desenvolvedor final), e mesmo assim o processo só é encerrado quando fechamos a aplicação. Uma observação, somente um processo do Excel fica aberto por cada instância da aplicação, mesmo que vc inicialize e finalize o ActiveX várias vezes dentro da mesma aplicação.

Sds,
Erasmo

Marcelo Guimarães wrote:
Caro Erasmo,
Já estou conseguindo exportar e importar dados em EXCEL, utilizando a versão CTD 1.5 PTF 3, Microsoft Excel 9.0 Library e Excel 2000.
 
O problema é que mesmo depois de fechar a planilha e finalizar o Excel (testei e estão realmente fechados p/ o aplicativo), o processo Excel continua ativo no windows e só finaliza quando fecho o aplicativo ou o executável centura.
 
Você já percebeu este detalhe, ou não?
Em caso afirmativo, qual o motivo e, se possível qual a solução para finalizar o processo Excel sem ter que fechar o Centura?
 
Atenciosamente,
Marcelo Guimarães
----- Original Message -----
From: Erasmo
Sent: Friday, October 28, 2005 1:25 PM
Subject: Re: RES: RES: [sqlwin] Crair arquivo XLS

Achei a solução:

Function: NovoArquivo
    Description: Novo arquivo do Excel
    Returns
    Parameters
    Static Variables
    Local variables
        Variant: Template
    Actions
        If (bExcelIniciado) and (not bArquivoAberto)
            Call oApp.PropGetWorkbooks( oWorkbooks )
            Call Template.SetNumber( 1, 1 )
            If oWorkbooks.Add( Template, oWorkbook )
                If oApp.PropGetActiveSheet( oWorksheet )
                    Set bArquivoAberto = TRUE

Sds,
Erasmo

Erasmo wrote:
Fiz os testes com CTD 1.5.1 PTF 6, Microsoft Excel 9.0 Library e Excel 2000, e funcionou tudo. Agora outra dúvida, tem como ao invés de abrir um arquivo existente, criar um novo arquivo? Não encontrei rotinas para criar um novo Workbook diretamente.

Sds,
Erasmo
--
 

Erasmo Bispo de Oliveira Junior
Gerente de Pesquisa e Desenvolvimento

Softway - SoftComex Informatica Ltda.

Web: http://www.softcomex.com.br
Email:
[EMAIL PROTECTED]
Fone: (19) 3739-9361
Fax: (19) 3739-9240
Cel: (19) 9213-5572




> wrote:
Salve Washington.

Tem razão colega. Utilizei a função Call oApp.PropSetVisible( TRUE ),
mencionado pelo colega Ricardo Gomes e o Excel abriu com a planilha. Mas a
função do Lairton para transferir os dados para uma table child não
funciona. Retorna erro de abertura.

Se alguem tiver mais alguma sugestão agradeço.
[[]]
Ledo 

-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Em nome
de WASHINGTON LUIZ SAMPAIO MARQUES
Enviada em: quinta-feira, 27 de outubro de 2005 05:45
Para: sqlwin@virtualand.net
Assunto: Res: RES: [sqlwin] Crair arquivo XLS

Caro Ledo,
Na verdade sua planilha está aberta porem o objetivo não é enxerga-la, e sim
manipula-la, assim vc pode capturar o conteudo da planilha para seu form e
vice-versa. segundo o colega da lista existe uma função que deixa visivel a
planilha aberta oculta, se não me engano é alguma função do objeto oApp,
veja se isso lhe ajuda, mas não esqueça que com a função abrirarquivo do
exemplo do Lairton a planilha já está aberta porem não visível.

[]
Washington Marques
<<Ledo>> <[EMAIL PROTECTED]> Escrito :

  
Salve Ricardo.
&nbsp;
Agradeço muito se puder me ajudar. Na verdade quando crio a APL no 
Wizard ActiveX, fico meio em duvida do que devo marcar. Tentei seguir 
o exemplo do nobre colega Lairton mas estou emperrado por aqui.
Consultei as msg da lista de alguns anos atrás e percebi que muita 
gente ralou com isso mas não encontrei uma solução tipo EURECA.
&nbsp;
Zerei tudo... e tentei recriar a APL do Excel mas esbarro num erro de 
duplicidade de constantes. Ao depurar percebi que é declarada a mesma 
constante na APL MSOffice 11.0 &nbsp;e no Excel 11.0. Mas eu só 
carreguei o Excel no Wizard e mesmo assim ele cria uma APL MSOffice 
11.0. Então eliminei a declaração da apl do Office e compilou sem 
erro. Mas não abre uma planilha.
&nbsp;
Na verdade eu só preciso que um relatório seja salvo no formato excel. 
Tentei usar a função SalReportPrintToFile mas o resultado fica uma 
bagunça.
&nbsp;
Realmente estou a deriva e não encontro documentação que fale a 
respeito.
&nbsp;
Agradeço se puder me ajudar
[[]]
Ledo



De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] Em nome de Ricardo GomesEnviada 
em: quarta-feira, 26 de outubro de 2005
11:59Para: [EMAIL PROTECTED]: Re: [sqlwin] Crair arquivo 
XLS

Amigo, utilizo ActiveX com Excel e, para abrir a tela do Excel, eu 
faço um Call oApp.PropSetVisible( TRUE ), sendo que oApp é uma 
instância de Excel__Application. Será que não está faltando isso? Se 
vc quiser, mando-te um exemplo de como faço.
----- Original Message -----
From: &lt;&lt;Ledo&gt;&gt;

To: sqlwin@virtualand.net
Sent: Tuesday, October 25, 2005 11:41 PM
Subject: RES: [sqlwin] Crair arquivo XLS

Salve Marcelo.
&nbsp;
Peço desculpas pelo meu erro. Realmente ele é aberto como um processo.
Debugando o exemplo, percebi que o Excel é aberto como processo no 
Windows XP.
Mas não sei porque não consigo abrir a planilha.
&nbsp;
Outra coisa que percebi é que a tentativa de abrir tantas vezes a 
mesma planilha resulta num novo processo.
O exemplo do Lairton não encerra o excel aberto. Mas isso não seria 
problema, bastaria acrescentar um comando a mais.
&nbsp;
O problema todo é que a infeliz da planilha não abre e não consigo 
saber porque.
Não creio que seja do windows ou da versão pois como dito o Excel é 
aberto normalmente. Meu defeito é não entender as classes com que 
estou trabalhando.
&nbsp;
Ainda espero que algum colega possa nos ajudar.
&nbsp;
[[]]
Ledo
&nbsp;
    



______________________________
EMPREL, http://www.recife.pe.gov.br


==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no
corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================


==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================

  

--
 

Erasmo Bispo de Oliveira Junior
Gerente de Pesquisa e Desenvolvimento

Softway - SoftComex Informatica Ltda.

Web: http://www.softcomex.com.br
Email:
[EMAIL PROTECTED]
Fone: (19) 3739-9361
Fax: (19) 3739-9240
Cel: (19) 9213-5572





--
 

Erasmo Bispo de Oliveira Junior
Gerente de Pesquisa e Desenvolvimento

Softway - SoftComex Informatica Ltda.

Web: http://www.softcomex.com.br
Email:
[EMAIL PROTECTED]
Fone: (19) 3739-9361
Fax: (19) 3739-9240
Cel: (19) 9213-5572




--
 

Erasmo Bispo de Oliveira Junior
Gerente de Pesquisa e Desenvolvimento

Softway - SoftComex Informatica Ltda.

Web: http://www.softcomex.com.br
Email:
[EMAIL PROTECTED]
Fone: (19) 3739-9361
Fax: (19) 3739-9240
Cel: (19) 9213-5572



Responder a