Excel VBA - przycisk, aby zapisać kopię bieżącego pliku

Kwestia

Szukam sposobu na włączenie automatycznego przycisku nagrywania w arkuszu kalkulacyjnym Excel. Ten przycisk automatycznie zapisuje kopię bieżącego arkusza w danym katalogu, dodając do oryginalnej nazwy pliku datę i godzinę, np. „Mój_plik_24102007_0830.xls”

Rozwiązanie

 Public Sub CommandButton1_Click () Dim nom As String nom = Dzień (data) i „-” & miesiąc (data) i „-” i rok (data) i „_” i ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & ” „& nom rep = MsgBox („ Twoja baza danych została zapisana: ”& nazwa, vbYes + vbInformation, „ Kopia arkusza kalkulacyjnego ”) End Sub 

Dzięki gbinforme za tę wskazówkę