Sao lưu và lấy lại dữ liệu (1 người xem)

[bebeen]

Em có vẫn đề này muốn đưa lên đây nhờ mọi người xem dùm cho em. Việc lưu lại dữ liệu và sau này lấy lại dữ liệu đã lưu cũ để sử dụng là điều mà từ bây lâu nay em chưa để ý. Đúng hơn là không nghĩ là Excel có thể làm được. Nhưng thực tế thì Excel lại làm được. Nay em cũng mạnh dạn đưa file excel cụ thể lên đây nhờ mọi cùng em thảo luận nhé!

 

[Quang_Hải]

Sao lưu thì phải lưu hết chứ sao lưu từng phần thì mình chịu thôi.File sao lưu theo ngày tháng nhé..

 

[bebeen]

Sao lưu thì phải lưu hết chứ sao lưu từng phần thì mình chịu thôi.File sao lưu theo ngày tháng nhé..

Khi em chạy sao lưu thì máy tính cứ báo lỗi ở dòng:

.SaveCopyAs ThisWorkbook.Path & "\" & ThisWorkbook.Name & DateTime.Date & ".xls"

Em đã kiểm tra rất kỹ nhưng vẫn không được. Nhờ anh tư vấn thêm ah!
Cám ơn anh nhiều!

 

[Quang_Hải]

Bạn thay đoạn code này vào xem thế nào

Private Sub Commandbutton1_Click()
Application.ScreenUpdating = 0
Dim FN
FN = ThisWorkbook.Name
With ThisWorkbook
.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & DateTime.Date & ".xls"
End With
Application.ScreenUpdating = 1
End Sub

 

[bebeen]

Bạn thay đoạn code này vào xem thế nào

Private Sub Commandbutton1_Click()
Application.ScreenUpdating = 0
Dim FN
FN = ThisWorkbook.Name
With ThisWorkbook
.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & DateTime.Date & ".xls"
End With
Application.ScreenUpdating = 1
End Sub

Cái này cũng vẫn chưa ổn ah? Vẫn lỗi ở dòng:

.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & DateTime.Date & ".xls"

 

[Quang_Hải]

Không hiểu tại sao nữa vì trên máy tính của mình thì code hoat động tốt mà, cac anh chi khác xem hộ coi cái này bi lỗi gì vậy?

 

[longlt08]

Mình đã thử, code của bạn chạy đúng mà !

 

[bebeen]

Mình đã thử, code của bạn chạy đúng mà !

Nhưng bạn ơi, mình đã test ở rất nhiều máy nhưng vẫn không được. Không hiểu nguyên nhân gì nữa? Nhờ mọi người test lại dùm cho em với!

 

[Quang_Hải]

Giờ mình xử lý từng phần nhé
Bạn thay code này vào xem thế nào rồi tính tiếp.Nếu code này mà vẫn không chạy được nữa thì mình potay thiệt

Private Sub Commandbutton1_Click()
Application.ScreenUpdating = 0
With ThisWorkbook
.SaveCopyAs ThisWorkbook.Path & "\" & DateTime.Date & ".xls"
End With
Application.ScreenUpdating = 1
End Sub

 

[Nguyễn Duy Tuân]

Nhưng bạn ơi, mình đã test ở rất nhiều máy nhưng vẫn không được. Không hiểu nguyên nhân gì nữa? Nhờ mọi người test lại dùm cho em với!

Lỗi là do bạn đang mở trong file nén (RAR). Bạn phải giải nén rồi mở thì không lỗi.

 

[bebeen]

Lỗi là do bạn đang mở trong file nén (RAR). Bạn phải giải nén rồi mở thì không lỗi.

Em đã giải nén (RAR) rùi mà nhưng vẫn bị lỗi ah! Không biết sao nữa!?
Khi chọn chọn nút lưu thì lối như hình dưới:

 

[Quang_Hải]

Bạn giải nén ra va lưu file lại chưa? Bạn lưu file ở thư muc nào?

 

[311280]

Em đã giải nén (RAR) rùi mà nhưng vẫn bị lỗi ah! Không biết sao nữa!?
Khi chọn chọn nút lưu thì lối như hình dưới:

Đúng là lỗi như hình bạn đăng lên.Lưu file về địa chỉ bất kỳ trên ổ cứng rồi giải nén ra,mở file,nhấn nút lưu file là hiện bảng thông báo đấy.

 

[bebeen]

Bạn giải nén ra va lưu file lại chưa? Bạn lưu file ở thư muc nào?

Em đã làm theo hướng dẫn của thầy Nguyen Duy Tuan và anh rùi nhưng vẫn lỗi đó. Em lưu ở ngoài ổ E.

 

[hoangvuluan]

Bạn thay dòng lệnh SaveCopyAs thành:
.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"

Cái này lỗi do tên file có chứa ký tự không hợp lệ (ký tự "/"). Có thể ở một số hệ thống đã định dạng kiểu ngày theo mẫu dd-mm-yyyy thì không gặp phải lỗi này.

 

[bebeen]

Bạn thay dòng lệnh SaveCopyAs thành:
.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"

Cái này lỗi do tên file có chứa ký tự không hợp lệ (ký tự "/"). Có thể ở một số hệ thống đã định dạng kiểu ngày theo mẫu dd-mm-yyyy thì không gặp phải lỗi này.

Giờ Ok hẳn rùi. Một lần nữa cám ơn mọi người!

 

[311280]

Bạn thay dòng lệnh SaveCopyAs thành:
.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"

Cái này lỗi do tên file có chứa ký tự không hợp lệ (ký tự "/"). Có thể ở một số hệ thống đã định dạng kiểu ngày theo mẫu dd-mm-yyyy thì không gặp phải lỗi này.

Thay như bạn nói thì nó báo lỗi này:
Compile error:
Variable not defined
Và tô đen chữ FN
.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"
Thanks.

 

[hoangvuluan]

Vì bạn không theo dõi từ đầu nên không biết trước đó đã thay code rồi:

Private Sub Commandbutton1_Click()
Application.ScreenUpdating = 0
Dim FN
FN = ThisWorkbook.Name
With ThisWorkbook
   ' .SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & DateTime.Date & ".xls" '
    .SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"   ' <- thay tiếp '

End With
Application.ScreenUpdating = 1
End Sub

 

[bebeen]

Bạn thay đoạn code này vào xem thế nào

Private Sub Commandbutton1_Click()
Application.ScreenUpdating = 0
Dim FN
FN = ThisWorkbook.Name
With ThisWorkbook
.SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & DateTime.Date & ".xls"
End With
Application.ScreenUpdating = 1
End Sub

To Mr Hải!
Anh cho em hỏi thêm chút xíu về nút lưu nhé! Khi em chọn lưu thì em chi muốn nó lưu file mới đó có 1 sheet DATA thui. Vậy có được không? Vậy thì phải sửa code:

Private Sub Commandbutton1_Click()
    Application.ScreenUpdating = 0
    Dim FN
    FN = ThisWorkbook.Name
    With ThisWorkbook
        .SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"
    End With
    MsgBox "Ban da sao luu thanh cong!", , "Info"
    Application.ScreenUpdating = 1
End Sub

như thế nào?

 

[Quang_Hải]

To Mr Hải!
Anh cho em hỏi thêm chút xíu về nút lưu nhé! Khi em chọn lưu thì em chi muốn nó lưu file mới đó có 1 sheet DATA thui. Vậy có được không? Vậy thì phải sửa code:

Private Sub Commandbutton1_Click()
    Application.ScreenUpdating = 0
    Dim FN
    FN = ThisWorkbook.Name
    With ThisWorkbook
        .SaveCopyAs ThisWorkbook.Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"
    End With
    MsgBox "Ban da sao luu thanh cong!", , "Info"
    Application.ScreenUpdating = 1
End Sub

như thế nào?

Sửa lại thế này xem coi được không

Private Sub Commandbutton1_Click()
    Application.ScreenUpdating = 0
    Dim FN As String, Path As String
    Path = ThisWorkbook.Path
    FN = ThisWorkbook.Name
    Workbooks(FN).Sheets("DATA").Copy
    With ActiveWorkbook
        .SaveAs Path & "\" & Left(FN, Len(FN) - 4) & "-" & Format(DateTime.Date, "dd-mm-yy") & ".xls"
    End With
    MsgBox "Ban da sao luu thanh cong!", , "Info"
    Application.ScreenUpdating = 1
End Sub

PS: Chú ý không nên gọi đích danh nick nào nhé vì sẽ có những thành viên khác cùng hỗ trợ cho bạn