Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 48 mensagens em 25 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
avatar
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.
avatar
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.
avatar
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