- Tham gia
- 23/3/16
- Bài viết
- 705
- Được thích
- 52
Em có 1 File tên là Chamcong.XLSB em muốn sau khi em làm việc xong, và em Đóng file này thì nó tự lưu save as thành 1 file dự phòng Chamcong.Xlsm tại 1 thư mục chỉ định ( Nghỉa là khi em thoát File Chamcong.XLSB thì nó âm thầm Save as thành FIle Chamcong.Xlsm và nó đóng luôn 2 file luôn , rồi em tắt máy tính em đi về )
Và mỗi lần SAve as thì Xóa File cũ đã lưu trước đó đi, và chỉ giử 1 file duy nhất cho lần Đóng gần đây nhất . XIn chân thành cảm ơn
Em có dùng Đoạn code này. Save thì được rồi nhưng Mở file lên dự phòng lên không được
Và mỗi lần SAve as thì Xóa File cũ đã lưu trước đó đi, và chỉ giử 1 file duy nhất cho lần Đóng gần đây nhất . XIn chân thành cảm ơn
Em có dùng Đoạn code này. Save thì được rồi nhưng Mở file lên dự phòng lên không được
Mã:
Sub saveasnew()
Dim FolderPath As String
FolderPath = "C:\Users\VU\Desktop\Text Ma vach\" ' DIA CHI LUU
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(FolderPath) Then .CreateFolder (FolderPath)
ThisWorkbook.SaveCopyAs FolderPath & "DU LIEU " & Format(Now(), "DD-MM-YYYY") & ".Xlsm"
End With
End Sub
Lần chỉnh sửa cuối: