SAVEAS do EXCEL

[Hasse]

Boa noite colegas.

Estou apanhando com SAVEAS do Excel.

Uso assim:

Código: Selecionar todos

cPArqXls := "FulanoDeTal.xls"
oExcel:ActiveWorkbook:SaveAs( c_ArqXls ) 

Num segundo momento necessito, com frequência relativa, sobre-escrever este arquivo.
Qual a sintaxe para que este procedimento se efetue automaticamente, sem que o operador tenha que confirmar.

Obrigado pela atenção.

[Jairo Maia]

Olá Hasse,

Tente assim,

Código: Selecionar todos

cPArqXls := "FulanoDeTal.xls"

FileDelete( cPArqXls )  // deleta o arquivo se ele existe. Se não existe nada faz.

oExcel:ActiveWorkbook:SaveAs( c_ArqXls )

[Hasse]

Bom dia Jairo.

Vou usar a tua sugestão.
Obrigado.
Um Bom FDS.

[asimoes]

Lembrando que se o arquivo estiver uso, vai falhar o saveas()

[Hasse]

Boa tarde.

Esta será a dificuldade maior, pois é imprevisível o que o usuário descuidado irá fazer.
O pior é que o Excel não avisa que o SaveAs() falhou.

Acredito que antes de deletar irei pesquisar com File() se o arquivo já existe. Se positivo incremento o nome com 1, 2, 3 e assim por diante.

Ou ainda, se o arquivo existir, avisar o usuário para fechar o arquivo aberto.
Acredito que será a melhor opção, pois a responsabilidade será transferida. E teremos somente um arquivo válido, o último.

[asimoes]

Hasse,

Dá erro sim, eu trato com begin sequence...

[asimoes]

Exemplo:

Código: Selecionar todos

         BEGIN SEQUENCE WITH __BreakBlock()
            fErase("D:\EXCEL\ASSIM.XLS")
            oExcel:ActiveWorkbook:SaveAs("D:\EXCEL\ASSIM.XLS")
            oDW:DialogWask("A planilha foi salva em D:\EXCEL com o nome ASSIM.XLS", "Atenção")
            oExcel:Visible:=.T.
            lVerifica:=.F.
         RECOVER USING oErro
            oDW:DialogWask("A planilha ASSIM está aberta, por favor feche-a.", "Erro", , "E")
         END

[Hasse]

Bom dia.

AHHAAAAAAA !!!!!

Muito legal esta rotina.
Ainda hoje vou implantar.

Obrigado.