Excel VBA - Un buton pentru a salva o copie a fișierului curent

Problema

Caut o modalitate de a include un buton automat de înregistrare într-o foaie de calcul Excel. Acest buton va salva automat o copie a foii curente într-un director dat prin adăugarea la numele original al fișierului a datei și orei, de exemplu "my_file_24102007_0830.xls"

Soluţie

 Public Sub CommandButton1_Click () Dim nom Ca String nom = Zi (Data) & "-" & Luna (Data) & "-" & An (Data) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "& nom rep = MsgBox (" Baza de date a fost salvată: "& name, vbYes + vbInformation, " Copie de foaie de calcul ") End Sub 

Vă mulțumim pentru gbinforme pentru acest sfat