Excel VBA - Tlačidlo na uloženie kópie aktuálneho súboru

Problém

Hľadám spôsob, ako zahrnúť tlačidlo automatického záznamu do tabuľky programu Excel. Toto tlačidlo automaticky uloží kópiu aktuálneho hárku do daného adresára pridaním k pôvodnému názvu súboru dátum a čas, napr. "My_file_24102007_0830.xls"

Riešenie

 Public Sub CommandButton1_Click () Dim nom Ako String nom = Deň (Dátum) & "-" & Mesiac (Dátum) & "-" & Rok (Dátum) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\ t "& nom rep = MsgBox (" Vaša databáza bola uložená: "& name, vbYes + vbInformation, " Copy of spreadsheet ") End Sub 

Vďaka gbinforme pre tento tip