Excel VBA - A gomb az aktuális fájl másolatának mentéséhez

Probléma

Igyekszem egy automatikus rekordgomb felvételét egy Excel táblázatba. Ez a gomb automatikusan elmenti az aktuális lap egy példányát egy adott könyvtárba, hozzáadva az eredeti fájlhoz a dátumot és az időt, pl. "My_file_24102007_0830.xls"

Megoldás

 Nyilvános Sub CommandButton1_Click () Dim nom A String nom = nap (dátum) & "-" és a hónap (dátum) & "-" & év (dátum) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\ t "& nom rep = MsgBox (" Az Ön adatbázisa elmentve: "& név, vbYes + vbInformation, " A táblázatkezelő másolása ") Vége az alkönyvtárból 

Köszönjük a gbinforme-nak ezt a tippet