Gửi qua thư mọi Trang tính có địa chỉ trong ô A1 bằng VBA trong Microsoft Excel
Macro này sẽ gửi mỗi trang tính cho một người.
-
Tạo một sổ làm việc mới với Trang tính.
Lưu sổ làm việc trước khi gửi qua thư Xóa tệp khỏi đĩa cứng của bạn sau khi được gửi.
Sub Mail_every_Worksheet() Dim strDate As String Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Range("a1").Value Like "@" Then sh.Copy strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range("a1").Value, _ "This is the Subject line" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub