xin hỏi về code đóng và lưu excel (1 người xem)

[kuvi1324]

mình có button với code
Private Sub CommandButton8_Click()
Unload userform1
ActiveWorkbook.Save
Application.Quit
End Sub
thế mà bấm vào nó không đóng excel (nó hiện thông báo hỏi có save hay không), ai giúp mình với
mình cần bấm nút là lưu và đóng excel lại luôn
thank mọi người

 

[ndu96081631]

mình có button với code
Private Sub CommandButton8_Click()
Unload userform1
ActiveWorkbook.Save
Application.Quit
End Sub
thế mà bấm vào nó không đóng excel (nó hiện thông báo hỏi có save hay không), ai giúp mình với
mình cần bấm nút là lưu và đóng excel lại luôn
thank mọi người

Code này thử thấy bình thường! Chắc là bạn đang mở nhiều file excel khác nữa, khi Application.Quit, nó thoát toàn bộ Excel nên hỏi bạn có lưu mấy file còn lại chứ gì?

 

[hoamattroicoi]

Bạn thử xem code này :

Sub DongVaLuu()
    Application.DisplayAlerts = False
        ThisWorkbook.Close True
    Application.DisplayAlerts = True
End Sub

Ứng dụng vào trường hợp của bạn xem sao nhé.

 

[kuvi1324]

Code này thử thấy bình thường! Chắc là bạn đang mở nhiều file excel khác nữa, khi Application.Quit, nó thoát toàn bộ Excel nên hỏi bạn có lưu mấy file còn lại chứ gì?

đúng là bình thường sử dụng tốt, mà thỉnh thoảng lại bị chạm chạm ^^ chắc bị virus gì rồi hic

 

[kuvi1324]

Code này thử thấy bình thường! Chắc là bạn đang mở nhiều file excel khác nữa, khi Application.Quit, nó thoát toàn bộ Excel nên hỏi bạn có lưu mấy file còn lại chứ gì?

Mình đã thử và không thành công ^^
chỉ mở 1 file ẽxecl duy nhất mà vẫn không được!
à khi mình Alt f11 rồi vào vba chọn userform1 rồi f5 thì nút lệnh đó thực hiện đúng yêu cầu @@

 

[kuvi1324]

Bạn thử xem code này :

Sub DongVaLuu()
    Application.DisplayAlerts = False
        ThisWorkbook.Close True
    Application.DisplayAlerts = True
End Sub

Ứng dụng vào trường hợp của bạn xem sao nhé.

mình thử rồi, nó chỉ đóng file excel chứ không thoát ứng dụng excel!

 

[kuvi1324]

Mình đã thử và không thành công ^^
chỉ mở 1 file ẽxecl duy nhất mà vẫn không được!
à khi mình Alt f11 rồi vào vba chọn userform1 rồi f5 thì nút lệnh đó thực hiện đúng yêu cầu @@

à được rồi, chồng chéo code ^^ cảm ơn mọi người đã đọc bài