Excelin belli bir süre sonra otomatik kaydedilip kapanması

[cns06]

Merhabalar,

Excelde oluşturulan bir proje için örneğin açıldıktan 5 dakika sonra sayfalardan istenilen sayfanın kaydedilip excel projesinin kapanmasını istiyorum.

Bunu vba ile nasıl yapabilirim?

 

[hamitcan]

Kod, deneme isimli sayfayı açıldıktan 5 dakika sonra C dizinine kaydeder.

Sub farkli_kaydet()
'Kaynak: http://www.mrexcel.com/archive/VBA/16636.html
    Application.DisplayAlerts = False
    Sheets("deneme").Select
    Sheets("deneme").Copy
    ThisFile = Range("d8").Value
    Sheets("deneme").SaveAs Filename:="C:\" & ThisFile & ".xlsx"
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub
Sub auto_open()
    Application.OnTime Now + TimeValue("00:05:00"), "farkli_kaydet"
End Sub

 

[cns06]

Kod, deneme isimli sayfayı 5 açıldıktan 5 dakika sonra C dizinine kaydeder.

Sub farkli_kaydet()
'Kaynak: http://www.mrexcel.com/archive/VBA/16636.html
    Application.DisplayAlerts = False
    Sheets("deneme").Select
    Sheets("deneme").Copy
    ThisFile = Range("d8").Value
    Sheets("deneme").SaveAs Filename:="C:\" & ThisFile & ".xlsx"
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub
Sub auto_open()
    Application.OnTime Now + TimeValue("00:05:00"), "farkli_kaydet"
End Sub

teşekkür ederim