PC Toledo

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,

Olá Toledo!

Consegui resolver.

Código: Selecionar todos

    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

Código: Selecionar todos

   Sheet:Cells( l, 9 ):Formula := "=soma(D6,E6)

Obrigado pelas dicas.

Paulo

Pessoal,

Como é o comando para formatar uma cetula como texto?

[]´s

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

Abraços,

Toledo,

Resolvi fazendo assim:

Código: Selecionar todos

oSheet1:Cells( nLinha, 1):NumberFormat:="00000"

Enviado: **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,

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

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

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

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

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

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.

PC Toledo

Exportar para excel com Abas

Re: Exportar para excel com Abas

Re: Exportar para excel com Abas

Re: Exportar para excel com Abas

Re: Exportar para excel com Abas

Re: Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas

Exportar para excel com Abas