DELETAR ARQUIVOS EXCEL COM VBA

MANEL26 15/03/2012 07:28:58
#397177
Oi galera.

Peço desculpa, ainda sou meio novato, quer o VBA quer no fórum, daí a pergunta talvez ser de fácil resposta e eu a fazer.

A questão é o seguinte:

Existe algum comando ou conjunto de comandos em VBA que me permita fazer com que um documento em Excel se apague a si próprio em data e hora marcada?

Esteja ele em que PC estiver?

Ass: Manuel
ALEVALE 15/03/2012 08:10:20
#397180
Desconheço pq na realidade vc vai apagar o documento que contém uma macro, correto e como vc vai apagar um arquivo que está aberto ?
Vc terá que criar um outro documento e dai sim nele é possível coloque um timer dentro um form .....
MANEL26 15/03/2012 15:19:10
#397217
Correcto.

Mas seria possível no código VBA do ficheiro Excel dar ordem para que se criasse um arquivo que num determinado dia, a uma determinada hora marcada, esse arquivo percorreria todo o disco C: a procura do ficheiro Excel que lhe deu origem, que o fechasse se ele estivesse sendo executado no momento e que logo depois o deletasse?

Quais seriam os comandos VBA que eu teria de utilizar para fazer isso?
ALEVALE 15/03/2012 17:13:16
#397236
Então o problema é o seguinte a sua [Ô]planilha[Ô] teria que ficar aberta o tempo todo / dia inteiro......ou você poderia transformar seu form em exe existem programas que transformam forms do excel em aplicativos.
Dai você criaria uma tarefa no Windows para iniciar todo dia, de acordo com a sua necessidade o seu aplicativo.
Bom em excel nunca fiz nada do genero, mas tente procurar no google por FSO no Excel.
MANEL26 19/03/2012 11:27:06
#397494
Obrigado.

Vou fazer isso.

Se mais alguém tiver mais coisas sobre este tema, por favor, postem aqui.

Cups.
MITSUEDA 19/03/2012 22:31:34
#397578
Você pode excluir todas a sheets do arquivo e salvar...

Deixe uma sheet oculta com nome de plan1 por exemplo depois execute esse código

Sub excluir()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In ThisWorkbook.Sheets
If sht.Name <> [Ô]Plan1[Ô] Then
sht.Delete
End If
Next
Application.DisplayAlerts = True
ThisWorkbook.Save
End Sub


Ele deleta todas as sheets do workbook...

Com isso muita coisa não vai mais funcionar...

Outra possibilidade é excluir os modulos... mas ai já vai ser necessário ter habilitado o acesso ao VBA

Espero ter ajudado

Abraço
MANEL26 21/04/2012 07:48:56
#400414
Brigadão MITSUEDA.

Ajudou mesmo.
Tópico encerrado , respostas não são mais permitidas