Excel VBA - gumb za shranjevanje kopije trenutne datoteke

Težava

Iščem način za vključitev gumba za samodejno snemanje v Excelovi preglednici. Ta gumb bo samodejno shranil kopijo trenutnega lista v določen imenik tako, da bi v izvirno ime datoteke dodal datum in čas, npr. "My_file_24102007_0830.xls"

Rešitev

 Public Sub CommandButton1_Click () Dim nom as String nom = dan (datum) & "-" & mesec (datum) & "-" & leto (datum) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook. "& nom rep = MsgBox (" Baza podatkov je shranjena: "& ime, vbYes + vbInformation, " Kopija preglednice ") Končni podmeni 

Hvala za gbinforme za ta tip