Excel VBA - A-painike tallentaaksesi kopion nykyisestä tiedostosta

Ongelma

Etsin tavan lisätä automaattisen tallennuspainikkeen Excel-laskentataulukkoon. Tämä painike tallentaa automaattisesti kopion nykyisestä arkista tietylle hakemistolle lisäämällä alkuperäiseen tiedostoon päivämäärän ja ajan, esim. "My_file_24102007_0830.xls"

Ratkaisu

 Public Sub CommandButton1_Click () Dim nom Merkkijonona = päivä (päiväys) & "-" ja kuukausi (päivämäärä) & "-" & vuosi (päiväys) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\ t "& nom rep = MsgBox (" Tietokanta on tallennettu: "& nimi, vbYes + vbInformation, " Laskentataulukon kopio ") End Sub 

Kiitos gbinforme tästä vinkistä