Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 16 Visitantes :: 2 Motores de busca

Douglas Pascini

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Conexão Sql Server
Hoje à(s) 12:18 por Douglas Pascini

» como fazer essa imagem clicavel
Ontem à(s) 13:56 por flavio dos reis

» USAR REPORT FORM
20/1/2017, 15:00 por ImRicoh

» Impressora Ticket
20/1/2017, 08:25 por ImRicoh

» Visite meu canal no Youtube
20/1/2017, 00:45 por ImRicoh

» Protocolo de comunicação porta serial
19/1/2017, 16:48 por rodiney

» Bloquear edição do ListBox
17/1/2017, 23:38 por Dipaula

» Ajuda em Script VBS
16/1/2017, 11:22 por carlosdantasf

» automação do mozilla e chrome
15/1/2017, 12:16 por Handerson Mildroz

» Aplicação Android algoritmos de aprendizagem pseudocódigo
4/1/2017, 01:09 por diegoveloper

» COMO ESTÃO DESENVOLVENDO EM WEB?
3/1/2017, 10:21 por felipe.palucoski

»  Um For não enxerga outro no DataGrid! (VIsual Basic)
2/1/2017, 12:44 por Ana Waldila

» C# criar checkBox Transparente
28/12/2016, 12:26 por flavio dos reis

» Menu lateral exemplo em VFP
28/12/2016, 11:55 por mxavier

» dll pertocheck
23/12/2016, 13:47 por FERNANDOMATRELLA

» Rota de um arquivo
23/12/2016, 09:01 por Julio

» BANIMENTO DE USUARIO
22/12/2016, 12:48 por Marcos Guedes

» USAR WEBSERVICE NO VFP9
20/12/2016, 18:33 por FAF

» CALCULO
19/12/2016, 18:48 por David Valerio

» Erro programa compartilhado em rede
16/12/2016, 11:45 por FERNANDOMATRELLA

Conexão Sql Server

23/1/2017, 12:18 por Douglas Pascini

Estou mudando meu servidor, para uma máquina remota. Até ai perfeito, o problema acontece que …

Comentários: 0

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: 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: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

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

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

Os nossos membros postaram um total de 11 mensagens em 5 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

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