ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Planilha excel gerada pelo Delphi readonly

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
andremelim567
Novato
Novato


Registrado: Sexta-Feira, 3 de Mai de 2019
Mensagens: 3

MensagemEnviada: Sex Mai 03, 2019 5:34 pm    Assunto: Planilha excel gerada pelo Delphi readonly Responder com Citação

Olá pessoal,

Estou com um problema sério aqui ao gerar uma planilha excel pelo Delphi. Ocorre que a planilha está sendo gerada do tipo ReadOnly (algum atributo do próprio Excel, não é atributo de arquivo pois não aparece no Windows Explorer para remover). Com isso o usuário não consegue ir na pasta da planilha gerada, abrir ela e começar a digitar os dados pois a planilha sempre aparece como ReadOnly. Já procurei nas propriedades do 'SaveAs' por alguma coisa para tirar esse atributo 'ReadOnly' mas não consegui encontrar. Preciso de ajuda. Segue o trecho de codigo abaixo. Estou usando Delphi 2007 e a versão do Excel é 2013...

uses ComObj;

Excel := CreateOleObject('Excel.Application');
//Excel.Workbooks.add(1);
Excel.visible := false;
Excel.Workbooks.Add;

// Preenche planilha com os dados
...

Excel.ActiveWorkbook.SaveAs(SaveDialog1.FileName); <-- Problema aqui (salva o arquivo como readonly e o usuario nao consegue inserir as informacoes quando vai na pasta e abre no Microsoft Excel)

Se alguém puder me ajudar, agradeço imensamente.

Att,
André
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jeaanCa
Novato
Novato


Registrado: Segunda-Feira, 29 de Abril de 2013
Mensagens: 31

MensagemEnviada: Qui Mai 23, 2019 10:30 am    Assunto: Planilha excel gerada pelo Delphi readonly Responder com Citação

Tenta usar o comando:
Código:

 Excel.Workbook.SaveAs(SaveDialog1.FileName);

ao inves de:

Código:

 Excel.ActiveWorkbook.SaveAs(SaveDialog1.FileName);
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Jun 18, 2019 12:33 pm    Assunto: Responder com Citação

Se você está utilizando o objeto, tem de saír para abrir o arquivo, ou seja, um Excel.quit no final.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB