Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
7 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 7 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
» USAR WEBSERVICE NO VFP9
Ontem à(s) 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

» Total Code Generator
9/9/2016, 17:43 por robsonpassos

» Envio de e-mail por PHP
30/8/2016, 10:19 por Gilberto

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

TRANSPOR TABELA

9/11/2016, 10:34 por hidroluz

Bom dia a todos, gostaria de saber como consigo fazer a transposição de uma tabela no VFP.



Comentários: 0

MUDANÇA DO .DBF PARA POTSGREE

7/10/2016, 14:59 por AJC

Pessoal boa tarde,
Já uso meus sistemas utilizando banco de dados do visual foxpro
há muito …

Comentários: 2

Estatísticas
Temos 6957 usuários registrados
O último usuário registrado atende pelo nome de STENIO SILVA

Os nossos membros postaram um total de 17116 mensagens em 2574 assuntos

Exportação para Excel

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

Resolvido Exportação para Excel

Mensagem por Fernando Milanez em 18/12/2009, 15:06

Srs, Boa Tarde,

Estou exportando algumas informações para o excel, porém esta gerando erro após eu ter incluído a linha 19 do campo previnicio (date),

O erro gerado é: OLE error code 0x800a03ec:unknown com status code

Segue linha abaixo:

Código:
** 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 = "REP"
xlsheet.cells(1,2).VALUE = "diferenciada"
xlsheet.cells(1,3).VALUE = "area"
xlsheet.cells(1,4).VALUE = "motivo"
xlsheet.cells(1,5).VALUE = "posto"
xlsheet.cells(1,6).VALUE = "nomeposto"
xlsheet.cells(1,7).VALUE = "endereco"
xlsheet.cells(1,8).VALUE = "bairro"
xlsheet.cells(1,9).VALUE = "cep"
xlsheet.cells(1,10).VALUE = "complemento"
xlsheet.cells(1,11).VALUE = "cidade"
xlsheet.cells(1,12).VALUE = "cargo"
xlsheet.cells(1,13).VALUE = "escala"
xlsheet.cells(1,14).VALUE = "hentrada"
xlsheet.cells(1,15).VALUE = "hsaida"
xlsheet.cells(1,16).VALUE = "dtinclusao"
xlsheet.cells(1,17).VALUE = "dtinicio"
xlsheet.cells(1,18).VALUE = "perfil"
xlsheet.cells(1,19).VALUE = "previnicio"



SCAN

xlsheet.cells(M.contador+1,1).VALUE=excel.rep
xlsheet.cells(M.contador+1,2).VALUE=excel.diferenciada
xlsheet.cells(M.contador+1,3).VALUE=excel.area
xlsheet.cells(M.contador+1,4).VALUE=excel.motivo
xlsheet.cells(M.contador+1,5).VALUE=excel.posto
xlsheet.cells(M.contador+1,6).VALUE=excel.nomeposto
xlsheet.cells(M.contador+1,7).VALUE=excel.endereco
xlsheet.cells(M.contador+1,8).VALUE=excel.bairro
xlsheet.cells(M.contador+1,9).VALUE=excel.cep
xlsheet.cells(M.contador+1,10).VALUE=excel.complemento
xlsheet.cells(M.contador+1,11).VALUE=excel.cidade
xlsheet.cells(M.contador+1,12).VALUE=excel.cargo
xlsheet.cells(M.contador+1,13).VALUE=excel.escala
xlsheet.cells(M.contador+1,14).VALUE=excel.hentrada
xlsheet.cells(M.contador+1,15).VALUE=excel.hsaida
xlsheet.cells(M.contador+1,16).VALUE=excel.dtinclusao
xlsheet.cells(M.contador+1,17).VALUE=excel.dtinicio
xlsheet.cells(M.contador+1,18).VALUE=excel.perfil
xlsheet.cells(M.contador+1,19).VALUE=excel.previnicio

m.contador=M.contador+1

ENDSCAN

Obrigado,

Fernando

Fernando Milanez
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação para Excel

Mensagem por Marcos Guedes em 18/12/2009, 15:25

Nelson, testei o seu código e funcionou perfeitamente bem!
Segue o teste que realizei:
Código:
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 = "REP"
xlsheet.cells(1,2).VALUE = "diferenciada"
xlsheet.cells(1,3).VALUE = "area"
xlsheet.cells(1,4).VALUE = "motivo"
xlsheet.cells(1,5).VALUE = "posto"
xlsheet.cells(1,6).VALUE = "nomeposto"
xlsheet.cells(1,7).VALUE = "endereco"
xlsheet.cells(1,8).VALUE = "bairro"
xlsheet.cells(1,9).VALUE = "cep"
xlsheet.cells(1,10).VALUE = "complemento"
xlsheet.cells(1,11).VALUE = "cidade"
xlsheet.cells(1,12).VALUE = "cargo"
xlsheet.cells(1,13).VALUE = "escala"
xlsheet.cells(1,14).VALUE = "hentrada"
xlsheet.cells(1,15).VALUE = "hsaida"
xlsheet.cells(1,16).VALUE = "dtinclusao"
xlsheet.cells(1,17).VALUE = "dtinicio"
xlsheet.cells(1,18).VALUE = "perfil"
xlsheet.cells(1,19).VALUE = "previnicio"

FOR contador = 1 TO 50
   xlsheet.cells(M.contador+1,1).VALUE="cep"
   xlsheet.cells(M.contador+1,2).VALUE="diferenciada"
   xlsheet.cells(M.contador+1,3).VALUE="area"
   xlsheet.cells(M.contador+1,4).VALUE="motivo"
   xlsheet.cells(M.contador+1,5).VALUE="posto"
   xlsheet.cells(M.contador+1,6).VALUE="nome posto"
   xlsheet.cells(M.contador+1,7).VALUE="endereco"
   xlsheet.cells(M.contador+1,8).VALUE="bairro"
   xlsheet.cells(M.contador+1,9).VALUE="cep"
   xlsheet.cells(M.contador+1,10).VALUE="complemento"
   xlsheet.cells(M.contador+1,11).VALUE=.T.
   xlsheet.cells(M.contador+1,12).VALUE=.F.
   xlsheet.cells(M.contador+1,13).VALUE=DATETIME()
   xlsheet.cells(M.contador+1,14).VALUE=TIME()
   xlsheet.cells(M.contador+1,15).VALUE=TIME()
   xlsheet.cells(M.contador+1,16).VALUE=DATE()
   xlsheet.cells(M.contador+1,17).VALUE=DATE()
   xlsheet.cells(M.contador+1,18).VALUE="perfil"
   xlsheet.cells(M.contador+1,19).VALUE=NULL
ENDFOR

Verifique se não existe algum processo, do Excel, rodando!
Veja os tópicos abaixo, acredito que poderá lhe ajudar:

- [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 para Excel

Mensagem por mfelis em 21/12/2009, 11:11

Estou criando uma classe depois de passo

mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação para Excel

Mensagem por Marcos Guedes em 8/1/2010, 14:23

Conseguisse resolver o problema, Fernando?

_________________
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 para Excel

Mensagem por hvonk em 28/1/2010, 23:06

O seu internet explorer esta funcionando corretamente? Eu tive esse mesmo erro e o problema estava relacionado a internet explorer que estava com problema.

hvonk
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação para Excel

Mensagem por Nelson Arcas em 29/1/2010, 08:23

Pessoal, conversei com o Fernando esses dias e ele ja conseguir resolver a duvida dele.
Como ele mudou de area acredito que não está mais entrando no forum para responder.

Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Exportação para Excel

Mensagem por Marcos Guedes em 29/1/2010, 08:23

Obrigado por informar, Nelson!

_________________
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 para Excel

Mensagem por Conteúdo patrocinado Hoje à(s) 08:30


Conteúdo patrocinado


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