Re: RES: RES: [sqlwin] Crair arquivo XLS

sqlwin\.jcs Mon, 31 Oct 2005 08:00:51 -0800

Crie uma função para fazer a exportação dos dados para o Excel. Assim que terminar a execução o excel é liberado.

Abçs

De:

[EMAIL PROTECTED]

Para:

sqlwin@virtualand.net

Cópia:

Data:

Mon, 31 Oct 2005 11:42:43 -0200

Assunto:

Re: RES: RES: [sqlwin] Crair arquivo XLS

> 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

To: sqlwin@virtualand.net

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

Re: RES: RES: [sqlwin] Crair arquivo XLS

Responder a