Excel VBA - Geçerli dosyanın bir kopyasını kaydetmek için bir düğme

Konu

Bir Excel elektronik tablosuna otomatik kayıt düğmesi eklemenin bir yolunu arıyorum. Bu düğme geçerli sayfanın bir kopyasını orijinal dosya adına tarih ve saati ekleyerek otomatik olarak belirli bir dizine kaydeder, örneğin "my_file_24102007_0830.xls"

Çözüm

 Genel Alt KomutDüğmesi1_Click () Dim nom As Dize nom = Gün (Tarih) & "-" & Ay (Tarih) & "-" & Yıl (Tarih) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\ "& nom rep = MsgBox (" Veritabanınız kaydedildi: "& name, vbYes + vbInformation, " Elektronik tablonun kopyası ") End Sub 

Bu ipucu için gbinforme'e teşekkürler