Microsoft Excelで配列VBAを使用してメール・シート
-
SheetsArrayを使用して新しいワークブックを作成します。
-
ワークブックを郵送する前に保存してください。
-
送信後、ハードディスクからファイルを削除します。
Sub Mail_SheetsArray() Dim strDate As String Sheets(Array("Sheet1", "Sheet3")).Copy strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail "[email protected]", _ "This is the Subject line" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End Sub