Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 15 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
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 7063 usuários registrados
O último usuário registrado atende pelo nome de Bravera

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