Buscar

Abrir um arquivo xls protegido por senha

Código

Abrir um arquivo XLS protegido por senha e salvar com outra senha.

var
xls, xlw: Variant;
begin
{load MS Excel}
xls := CreateOLEObject('Excel.Application');

{open your xls-file}
xlw := xls.WorkBooks.Open(FileName := 'd:book1.xls', Password := 'qq', ReadOnly := True);
{save with other file name}
xlw.SaveAs(FileName := 'd:book2.xls', Password := '');

{unload MS Excel}
xlw := UnAssigned;
xls := UnAssigned;
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 29/08/07
Por: Fernando Blomer
Visualizada: 7391 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009