Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
10 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 10 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6988 usuários registrados
O último usuário registrado atende pelo nome de lucasburitis

Os nossos membros postaram um total de 3 mensagens em 1 assuntos

Exportação de Campo Memo para Excel

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Exportação de Campo Memo para Excel

Mensagem por Nelson Arcas em 2/12/2009, 13:44

Pessoal, boa tarde

Tenho um processo que forma uma tabela com diversas informações de clientes inclusive algumas com observações sobre a execução do serviço.

Foi solicitado que as informações ao inves de gerar um relatorio fosse exportada as informações para o excel.

Utilizei o comando
copy to c:\infocli.xls type xl5

Todos os campos foram exportados menos o que contem observações que são campos tipo Memo.

Alguem ja passou por esta situação e conseguiu resolver?
Ou exite outra forma de fazer isso.

Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Nelson Arcas em 2/12/2009, 16:11

Pessoal, boa tarde
Consegui resolver não sei se foi a melhor maneira e correta mais atendeu o que estava precisando.

Segue o exemplo abaixo.

*** Seleção dos dados necessarios ***
SELECT codcli AS codigo,;
nomecli AS cliente,;
obs;
FROM cadcli;
WHERE filial=6;
INTO CURSOR auxcli

GO TOP

** Variavel indicadora onde deve ser gerado o valor ***
m.contador=1

WAIT WINDOW 'Abrindo o Excel' NOWAIT

tmpsheet = GETOBJECT('','excel.sheet')

xlapp = tmpsheet.APPLICATION

xlapp.VISIBLE = .T.
xlapp.workbooks.ADD()
xlsheet = xlapp.activesheet

xlsheet.cells(1,1).VALUE = "Codigo"
xlsheet.cells(1,2).VALUE = "Cliente"
xlsheet.cells(1,3).VALUE = "OBS"

SCAN

xlsheet.cells(M.contador+1,1).VALUE=auxcli.codigo
xlsheet.cells(M.contador+1,2).VALUE=auxcli.cliente
xlsheet.cells(M.contador+1,3).VALUE=auxcli.obs

m.contador=M.contador+1

ENDSCAN

Very Happy

Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Marcos Guedes em 2/12/2009, 16:25

Ótima sua iniciativa de informar a solução encontrada para o seu problema, Nelson!


Caso seja do seu interesse, dê uma olhada nestes tópicos:
- [Você precisa estar registrado e conectado para ver este link.]
- [Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Tales Ruan em 3/12/2009, 08:58

Nelson, na sua primeira solução, acho que tinha um "jeitinho" bem simples de resolver, convertendo o campo memo para uma string antes de executar o comando
copy to c:\infocli.xls type xl5

Pra converter o campo memo você poderia usar o comando Substr(CampoMemo,1,nQuantosCaracteresVoceQuer)

Poderia ficar assim, no final:

SELECT codcli AS codigo,;
nomecli AS cliente,;
Substr(obs,1,120); <- Só vai pegar 120 caracteres do campo OBS
FROM cadcli;
WHERE filial=6;
INTO CURSOR auxcli

copy to c:\infocli.xls type xl5

Acho que também funciona.. é uma opção.

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Linghston em 1/4/2011, 10:50

[Você precisa estar registrado e conectado para ver este link.] escreveu:Nelson, na sua primeira solução, acho que tinha um "jeitinho" bem simples de resolver, convertendo o campo memo para uma string antes de executar o comando
copy to c:\infocli.xls type xl5

Pra converter o campo memo você poderia usar o comando Substr(CampoMemo,1,nQuantosCaracteresVoceQuer)

Poderia ficar assim, no final:

SELECT codcli AS codigo,;
nomecli AS cliente,;
Substr(obs,1,120); <- Só vai pegar 120 caracteres do campo OBS
FROM cadcli;
WHERE filial=6;
INTO CURSOR auxcli

copy to c:\infocli.xls type xl5

Acho que também funciona.. é uma opção.

Tales Ruan,

Esta sua sugestão não esta funcionado no VFP9, não esta trazendo nada do campo MEMO.
Nem a do nosso amigo Nelson Arcas.
Voce saberia me dizer porque?
Estou precisando exportar 16500 registro do campo MEMO para uma planilha Ecxel para analise da gerencia.

Aguardo, Obrigado.

Linghston

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Tales Ruan em 1/4/2011, 19:57

Olá.

Estou longe do VFP agora, mas acredito ser um problema de sintaxe.

Tente executar o comando assim:

Código:
SELECT codcli AS codigo, nomecli AS cliente, Substr(obs,1,120) as OBS FROM cadcli WHERE filial=6 INTO CURSOR auxcli

copy to c:\infocli.xls type xl5

Se isto não resolver, me avise qual a mensagem de erro e qual dos comandos não funcionou.

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Linghston em 2/4/2011, 07:50

[Você precisa estar registrado e conectado para ver este link.] escreveu:Olá.

Estou longe do VFP agora, mas acredito ser um problema de sintaxe.

Tente executar o comando assim:

Código:
SELECT codcli AS codigo, nomecli AS cliente, Substr(obs,1,120) as OBS FROM cadcli WHERE filial=6 INTO CURSOR auxcli

copy to c:\infocli.xls type xl5

Se isto não resolver, me avise qual a mensagem de erro e qual dos comandos não funcionou.

Bom dia,
Teste sua sugestão mas não funcionou, ele carrega na planilha todos os campo, menos o campo MEMO, este campo não vem nada na planilha excel e não da mensagem de erro algum.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Linghston em 2/4/2011, 09:07

[Você precisa estar registrado e conectado para ver este link.] escreveu:
[Você precisa estar registrado e conectado para ver este link.] escreveu:Olá.

Estou longe do VFP agora, mas acredito ser um problema de sintaxe.

Tente executar o comando assim:

Código:
SELECT codcli AS codigo, nomecli AS cliente, Substr(obs,1,120) as OBS FROM cadcli WHERE filial=6 INTO CURSOR auxcli

copy to c:\infocli.xls type xl5

Se isto não resolver, me avise qual a mensagem de erro e qual dos comandos não funcionou.

Bom dia,
Teste sua sugestão mas não funcionou, esta aparecendo a seguinte mensagem: "IMPOSSIVEL TER ACESSO A CARACTRES ALEM DA SEQUENCIA." Este erro ocoreu na linha do select.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Tales Ruan em 4/4/2011, 07:56

Opa..

Bobeei. Estava errado mesmo.

Agora deve funcionar. Fiz o teste também.

Código:
SELECT codcli as codigo, nomecli as cliente, CAST(STRTRAN(obs,CHR(13)+CHR(10),"  ") as c(NTAMANHO)) as obs FROM cadcli WHERE filial=6 INTO CURSOR auxcli

copy to c:\infocli.xls type xl5

Considerei que o campo memo é o OBS. Para o código funcionar você deve trocar NTAMANHO pelo tamanho máximo em caracteres que quer que o campo OBS possua no excel (ex: 150).

Espero ter ajudado.

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação de Campo Memo para Excel

Mensagem por Linghston em 4/4/2011, 14:55

[Você precisa estar registrado e conectado para ver este link.] escreveu:Opa..

Bobeei. Estava errado mesmo.

Agora deve funcionar. Fiz o teste também.

Código:
SELECT codcli as codigo, nomecli as cliente, CAST(STRTRAN(obs,CHR(13)+CHR(10),"  ") as c(NTAMANHO)) as obs FROM cadcli WHERE filial=6 INTO CURSOR auxcli

copy to c:\infocli.xls type xl5

Considerei que o campo memo é o OBS. Para o código funcionar você deve trocar NTAMANHO pelo tamanho máximo em caracteres que quer que o campo OBS possua no excel (ex: 150).

Espero ter ajudado.

Muito obrigado amigo, resolveu meu problema...

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum