Excel VBA - Một nút để lưu một bản sao của tệp hiện tại

Vấn đề

Tôi đang tìm cách đưa nút ghi tự động vào bảng tính Excel. Nút này sẽ tự động lưu một bản sao của trang tính hiện tại trong một thư mục nhất định bằng cách thêm vào tên tệp gốc ngày và giờ, ví dụ: "my_file_24102007_0830.xls"

Dung dịch

 Lệnh phụ công khaiButton1_Click () Dim nom As String nom = Ngày (Ngày) & "-" & Tháng (Ngày) & "-" & Năm (Ngày) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\ "& nom rep = MsgBox (" Cơ sở dữ liệu của bạn đã được lưu: "& name, vbYes + vbIn information, " Bản sao của bảng tính ") End Sub 

Cảm ơn gbinforme cho mẹo này