giúp sửa code Lưu và Thoát Excel 2007,2010 (1 người xem)

[minhtuan55]

Sub luuvathoat()
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub

Code trên Chỉ đúng cho Excel 2003 thôi. Còn 2007,2010 nó vẫn hiện 1 bảng thông báo " Do you want to save......."
Giờ cách nào đừng cho nó hiện bảng thông báo đó nữa không

 

[giaiphap]

Sub luuvathoat()
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub

Code trên Chỉ đúng cho Excel 2003 thôi. Còn 2007,2010 nó vẫn hiện 1 bảng thông báo " Do you want to save......."
Giờ cách nào đừng cho nó hiện bảng thông báo đó nữa không

Sao của mình đâu có thông báo gì đâu, chỉ thông báo khi mở cùng lúc nhiều hơn 1 file.

 

[tor]

Mình nghĩ bạn nên dùng ThisWorkbook.Close thay vì Application.Exit

Trừ phi bạn muốn lưu và đóng tất cả các Workbook đang mở.
Như vậy thì phải dùng vòng lặp duyệt và thao tác với từng Workbook, sau đó mới dùng Application.Exit để đóng hẳn Excel.
[GPECODE=vb]Sub do_saveAllQuitExcel()
Application.DisplayAlerts = False
'
For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name Then
wb.Close SaveChanges = True
End If
Next wb
'
ThisWorkbook.Save
Application.Quit
End Sub[/GPECODE]