lưu và đóng tất cả các file excel đang mở

[ishikawangocthuy]

Xin mọi người hướng dẫn giúp em cách tạo 1 button khi nhấn vào button này thì tất cả các file excel đang mở sẽ tự động lưu và đóng lại ah.

 

[jeck09nt]

Bạn thử code này :

Sub Kill_Excel()
Dim sKillExcel As String
sKillExcel = "TASKKILL /F /IM Excel.exe"
Shell sKillExcel, vbHide
End Sub

 

[Gà Công Nghệ]

Bạn thử code này :

Sub Kill_Excel()
Dim sKillExcel As String
sKillExcel = "TASKKILL /F /IM Excel.exe"
Shell sKillExcel, vbHide
End Sub

Bạn cho mình hỏi khi mình bấm nút thì tất cả các file đều đóng, nhưng mà những file nào chưa kịp save thì mở lên mất tiêu dữ liệu, còn file nào save rồi thì có dữ liệu. Vậy có cách nào mà khi bấm nút sẽ tự động lưu dữ liệu lại và đóng tất cả các file không bạn?

 

[1+1=2]

Bạn cho mình hỏi khi mình bấm nút thì tất cả các file đều đóng, nhưng mà những file nào chưa kịp save thì mở lên mất tiêu dữ liệu, còn file nào save rồi thì có dữ liệu. Vậy có cách nào mà khi bấm nút sẽ tự động lưu dữ liệu lại và đóng tất cả các file không bạn?

Sub daaad()
Application.DisplayAlerts = False
Application.Save
Application.Quit

End Sub

 

[Gà Công Nghệ]

Sub daaad()
Application.DisplayAlerts = False
Application.Save
Application.Quit

End Sub

Vâng, để mình thử.

Bài đã được tự động gộp: 30/7/20

Application.Save

Dòng này bị lỗi, bạn xem hộ mình với.