Clipper On Line • Ver Tópico - Exportar para excel com Abas

Exportar para excel com Abas

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Re: Exportar para excel com Abas

Mensagempor Toledo » 13 Dez 2010 18:43

O exemplo abaixo foi testado, e está funcionando certinho:

FUNCTION MAIN()
LOCAL oExcel, oSheet

oExcel := TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Add()
oSheet := oExcel:Get( "ActiveSheet" )
oSheet:Name := "Aba 1"

oSheet:Cells( 1, 1 ):Value := "Codigo"
oSheet:Cells( 1, 2 ):Value := "Nome"

oExcel:Sheets:Add()
oSheet := oExcel:Get( "ActiveSheet" )
oSheet:Name := "Aba 2"

oSheet:Cells( 1, 1 ):Value := "Data"
oSheet:Cells( 1, 2 ):Value := "Valor"

oSheet:Cells( 2, 2 ):Value := 30
oSheet:Cells( 3, 2 ):Value := 45
oSheet:Cells( 4, 2 ):Value := "=SOMA(B2:B3)"  //Inserir Função

oSheet:Cells( 1, 1 ):Select()
oSheet:Protect("pctoledo")  //Protege a Planilha Aba 2
oExcel:Visible := .T.

Return Nil


Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Re: Exportar para excel com Abas

Mensagempor pauloa1 » 13 Dez 2010 22:00

Olá Toledo!

Consegui resolver.

    oSheet:Columns("A:I"):Select()
    oSheet:Columns("A:I"):Locked := .F.
    oSheet:Columns("A:I"):FormulaHidden := .F.

    oSheet:Columns("G:G"):Select()
    oSheet:Columns("G:G"):Locked := .T.
    oSheet:Columns("G:G"):FormulaHidden := .T.

    oSheet:Protect("123")


Assim funcionou blz.

Exportar a formula também
   Sheet:Cells( l, 9 ):Formula := "=soma(D6,E6)     


Obrigado pelas dicas.

Paulo
Nota de Moderação:
Toledo: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
pauloa1
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 223
Data de registro: 25 Jun 2008 14:57
Cidade/Estado: Augusto Pestana-RS
Curtiu: 2 vezes
Mens.Curtidas: 11 vezes

Re: Exportar para excel com Abas

Mensagempor asimoes » 28 Fev 2011 08:58

Pessoal,

Como é o comando para formatar uma cetula como texto?

[]´s
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Re: Exportar para excel com Abas

Mensagempor Toledo » 28 Fev 2011 13:43

Bom, se você atribuir um campo caracter ou um texto entre aspas, automaticamente será um célula no formato texto.

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Re: Exportar para excel com Abas

Mensagempor asimoes » 28 Fev 2011 18:50

Toledo,

Resolvi fazendo assim:

oSheet1:Cells( nLinha, 1):NumberFormat:="00000"
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Exportar para excel com Abas

Mensagempor Adalberto » 07 Jun 2011 22:47

Ola amigos,

Desejo saber como inserir uma linha em uma folha que já está existe, já tem formato y dados; por favor me ajudem tenho certa urgência.

Grato de verdade,
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Exportar para excel com Abas

Mensagempor ROBERTO SÁVIO » 19 Ago 2015 17:21

Muito bom os exemplos do PToleto.
Eu gostaria de saber se tem como fazer merge de várias planilhas em uma só.
Cada uma seria uma página.
Isto permitiria imprimir uma vez só

Tenho um sistema de laboratório, onde posso emitir os resultados em PDF.
O usuário solicita o resultado em PDF, o programa gera uma planilha em
excel, a partir de uma máscara previamente definida, e manda imprimir em
PDF, utilizando as facilidades do PDFILL.
Se o paciente fez um hemograma, urina e fezes são 3 planilhas e,
consequentemente, 3 PDFs, pois estes exames tem máscaras exclusivas.
Eu preciso que os 3 fiquem em uma planilha só, para gerar um PDF só.
Qual seria a melhor solução?
Como eu poderia juntar estas planilhas em uma só, via programa.
Trabalho com o xHarbour.


Obrigado
Roberto Sávio
ROBERTO SÁVIO
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 29
Data de registro: 29 Mai 2014 10:56
Cidade/Estado: CORONEL FABRICIANO/MG
Curtiu: 3 vezes
Mens.Curtidas: 1 vez

Exportar para excel com Abas

Mensagempor Toledo » 20 Ago 2015 08:11

ROBERTO SÁVIO escreveu:o programa gera uma planilha em excel, a partir de uma máscara previamente definida

Roberto, esta "máscara previamente definida" é algum arquivo do Excel já pronto e você só atualiza os dados?

Se for arquivos, anexar aqui neste tópico um exemplo destes arquivos.

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Exportar para excel com Abas

Mensagempor ROBERTO SÁVIO » 20 Ago 2015 10:26

Toledo
As máscaras são arquivos excel. Nelas coloco todas as informações fixas e formatações de onde vou inserir dados do resultado. O programa somente coloca os dados do resultado, onde já está definido e na formatação exigida, eliminando necessidade de programação. Vou anexar um exemplo da máscara de resultado de hemograma. Retirei o logo da empresa, colocado na parte de cima e, do rodapé, nomes dos bioquímicos e outras informações inerentes à empresa. Tive que gerar em PDF por não aceitar o XLSX.
Abraços
Roberto
Anexos
teste.pdf
Máscara hemograma
(35.44 KiB) Baixado 288 vezes
ROBERTO SÁVIO
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 29
Data de registro: 29 Mai 2014 10:56
Cidade/Estado: CORONEL FABRICIANO/MG
Curtiu: 3 vezes
Mens.Curtidas: 1 vez

Exportar para excel com Abas

Mensagempor Toledo » 20 Ago 2015 11:53

ROBERTO SÁVIO escreveu:Tive que gerar em PDF por não aceitar o XLSX.

Roberto, eu queria ver os arquivos XLSX mesmo, para tentar juntar todos em um só XLSX, então se for possível compactar (ZIP ou RAR) estes XLSX e anexar aqui, ficaria mais fácil.

Abraços
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Exportar para excel com Abas

Mensagempor ROBERTO SÁVIO » 20 Ago 2015 15:42

Toledo
Segue o TESTE.RAR com os arquivos teste.xlsl e teste1.xlsx.
O primeiro é a máscara para o hemograma e o outro para resultado de urina.
Funciona assim:
Usuário pede para emitir resultados de um paciente (digamos que ele fez hemograma e urina).
O programa lê o resultado de hemograma, abre a planilha máscara, preenche com os dados do resultado e manda gerar em PDF, usando PDFILL.
Quando pedir, o usuário tem que dar um nome para o PDF e informar a pasta de gravação.
O programa lê o resultado de urina, abre a planilha máscara, preenche com os dados do resultado e manda gerar em PDF, usando PDFILL.
Quando pedir, o usuário tem que dar um outro nome para o PDF e informar a pasta de gravação, normalmente a mesma anterior.
Posso alterar o programa para gravar as planilhas, depois de preenchidas, junta-las em uma só e mandar gerar o PDF, sem intervenção do usuário. como é hoje.
Abraços
Roberto
xHarbour
Anexos
teste.rar
Arquivos compactados
(25.3 KiB) Baixado 297 vezes
ROBERTO SÁVIO
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 29
Data de registro: 29 Mai 2014 10:56
Cidade/Estado: CORONEL FABRICIANO/MG
Curtiu: 3 vezes
Mens.Curtidas: 1 vez

Exportar para excel com Abas

Mensagempor alxsts » 20 Ago 2015 15:53

Olá!

Creio que a solução ideal seria gerar o PDF sem passar pelo Excel, usando uma lib tipo HaruPDF ou similar...

Tem um trabalho do Quintas que pode dar alguma luz: Passando pra Harupdf em etapas
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Exportar para excel com Abas

Mensagempor ROBERTO SÁVIO » 20 Ago 2015 16:25

Olá Alexandre
Obrigado pela dica, vou dar uma analisada na solução proposta.
Passo pelo excel porque acho mais fácil, na hora de preencher os resultados.
Tenho facilidade com esta técnica, mas queria melhorar o processo, pois tem dado trabalho ao usuário, apesar de ser bem esporádico.
Não sei se consigo faze-lo no PDF
[ ]s
Roberto
ROBERTO SÁVIO
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 29
Data de registro: 29 Mai 2014 10:56
Cidade/Estado: CORONEL FABRICIANO/MG
Curtiu: 3 vezes
Mens.Curtidas: 1 vez

Exportar para excel com Abas

Mensagempor ROBERTO SÁVIO » 20 Ago 2015 18:09

Alexandre
Dei uma olhada na classe para PDF e achei excelente contribuição.
Poderia usar no meu caso sim, mas teria que desenhar todas as máscaras na munheca.
Provavelmente terei que fazer isto, mais tarde, mas agora, só se não tiver outra saída.
Obrigado
[]'s
Roberto
ROBERTO SÁVIO
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 29
Data de registro: 29 Mai 2014 10:56
Cidade/Estado: CORONEL FABRICIANO/MG
Curtiu: 3 vezes
Mens.Curtidas: 1 vez

Exportar para excel com Abas

Mensagempor hs_paulo » 05 Fev 2016 09:56

Ola

Como faço pra salvar a planilha ?

Estou usando a ToleAuto(), e tudo funciona direitinho, só que na hora que dou o close, entra o sistema excel perguntando se desejo salvar, nao salvar ou cancelar. Eu queria ja salvar a planilha dentro da aplicação.
hs_paulo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 25
Data de registro: 02 Set 2015 17:11
Cidade/Estado: Bauru
Curtiu: 24 vezes
Mens.Curtidas: 1 vez

Anterior Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google Adsense [Bot], HASA e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro