Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

marcos de boni

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

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

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7035 usuários registrados
O último usuário registrado atende pelo nome de marcos de boni

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Planilha XLSX via VFF9

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

Resolvido Planilha XLSX via VFF9

Mensagem por Linghston em 23/9/2011, 08:02

Caros amigos,
Bom Dia...
Alguém conseguiu trabalhar esta informação / dica que nosso colega Fernando mencionou?
Pois eu estou com este problema de criar planilhas Excel 2007 via VFP9 e pelo que lê parece ser uma boa alternativa esta dica, porem muito complicada para o meu nível.
Se alguém puder me ajudar fico muito agradecido.

Obrigado.

[Você precisa estar registrado e conectado para ver este link.]
avatar
Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido vai ai um bemmm simples

Mensagem por megasoft em 25/1/2012, 09:10

xFinal = RECCOUNT("rela_corprodutos")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT rela_corprodutos
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
Oexcel.cells(x,1).value=xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=rela_corprodutos.CODI_PROD

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.
Oexcel.cells(x,2).value=rela_corprodutos.CODI_CORE

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=rela_corprodutos.exp_8
ENDIF
SELECT rela_corprodutos
SKIP
x=x+1
ENDDO
WAIT CLEAR
avatar
megasoft
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por alceu11 em 25/1/2012, 10:14

Para deixar mais detalhada esta dica do Joao
Vou deixar o codigo dele, com uma tabela.,para executar o codigo e trazer a exp.

Código:

CLOSE DATABASES
 IF !FILE('CLIENTE.DBF')
  CREATE TABLE CLIENTE (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO C(20), CIDADE C(30), UF C(2))
 SELECT CLIENTE
 INDEX on cliente TAG cliente
 FOR I=1 TO 20
    INSERT INTO CLIENTE (NUMERO,noME_CLI,ENDERECO) VALUES (I,"CLIENTE "+STR(I), 'RUA ')
 ENDFOR
 ENDIF
 IF !USED("CLIENTE")
    USE CLIENTE IN 0 ALIAS CLIENTE SHARED
 ENDIF
 SELECT CLIENTE




xFinal = RECCOUNT("cliente")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT cliente
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
 OExcel.Range("B1").Value = 500
Oexcel.cells(x,1).value='Tabela de precos' &&xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=cliente.NUMERO

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.

Oexcel.cells(x,2).value=cliente.noME_CLI

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=cliente.endERECO
ENDIF
SELECT cliente
SKIP
x=x+1
ENDDO
WAIT CLEAR
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Julio em 26/1/2012, 08:19

Bom Dia Alceu

No codigo acima da gerando um erro na criação do indexe

Código:
INDEX on cliente TAG cliente
,

acho que seria nome_cli, ficando assim

Código:
index on NOME_CLI tag cliente

e esta gerando uma tabela vazia.


Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por alceu11 em 26/1/2012, 09:36

E isto ai , Julio fiz de Proposito se alguem ia testar....
Codigo certo
Código:
 CLOSE DATABASES
 IF !FILE('CLIENTE.DBF')
  CREATE TABLE CLIENTE (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO C(20), CIDADE C(30), UF C(2))
 SELECT CLIENTE
 INDEX on nome_cli TAG cliente
 FOR I=1 TO 20
    INSERT INTO CLIENTE (NUMERO,noME_CLI,ENDERECO) VALUES (I,"CLIENTE "+STR(I), 'RUA ')
 ENDFOR
 ENDIF
 IF !USED("CLIENTE")
    USE CLIENTE IN 0 ALIAS CLIENTE SHARED
 ENDIF
 SELECT CLIENTE
set orde to cliente
xFinal = RECCOUNT("cliente")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT cliente
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
 OExcel.Range("B1").Value = 500
Oexcel.cells(x,1).value='Tabela de precos' &&xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=cliente.NUMERO

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.

Oexcel.cells(x,2).value=cliente.noME_CLI

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=cliente.endERECO
ENDIF
SELECT cliente
SKIP
x=x+1
ENDDO
WAIT CLEAR

Vamos ver se resolve o topico com a dica do Joao, da Megasoft
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Julio em 26/1/2012, 10:13

Mas, Alceu;

Ainda esta gerando tabela em branco e esta dando erro na linha
Código:
set orde to cliente
antes do wait.

Apesar do indece ser criado dentro da pasta.


Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por alceu11 em 26/1/2012, 10:22

O erro esta dando:
Pq a tabela ja existe, e o indice só e gerado, se a tabela nao existir.
Entao execute o processo em outro local,e ou pasta, ou exclua a tabela cliente do seu diretorio.......,,,e execute o codigo......
Retorne se funcionar.......
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Julio em 26/1/2012, 12:45

Alceu

Agora funcionou e gerou com dados a planilha.

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Planilha XLSX via VFF9

Mensagem por Linghston em 23/2/2012, 08:38

Alceu obrigado pelas dicas e orientações, consegui assim resolver minha questão e gerei a planilha usando o código acima.

Valeu!!!!
avatar
Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Meritos do Joao

Mensagem por alceu11 em 23/2/2012, 09:25

Linghston
B.Dia
Kem resolveu o topico, foi a colaboracao do Joao da "Megasoft" em 25/1/2012 as 10hs;
Eu so crie uma situacao real baseado na resposta dele em 25/1/2012.
Agora nao sei no caso de acima de 15 mil registro, como ficara, pq era o seu problema, nos topicos seus de "Excel".
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


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