- Създайте нова работна книга с Selection.
- Запазете работната книга, преди да я изпратите по пощата.
- Изтрийте файла от твърдия диск, след като бъде изпратен.
Той ще покаже скритите редове и колони в селекцията
Всички празни клетки извън селекцията са скрити (вижте екранната снимка)
По този начин селекцията винаги е в горната част на вашия лист
Sub Mail_Selection () Dim strDate As String Dim Addr As String Dim rng As Range If ActiveWindow.SelectedSheets.Count> 1 Или Selection.Areas.Count> 1 След това излезте от Sub Application.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Снимки.Изтрий с клетки. SpecialCells (xlVisible) .EntireColumn.Clear rng (1) .EntireRow.SpecialCells (xlVisible) .EntireColumn.Hidden = True. Hidden = False End With With rng.EntireRow .Hidden = True rng (1) .EntireClumn.Special .EntireRow.Clear rng (1) .EntireColumn.SpecialCells (xlVisible) .EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells (1). Изберете strDate = Format (Дата, "dd- mm-yy ") &" "& Format (Time," h-mm-ss ") ActiveWorkbook.SaveAs" Част от "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendM ail "[email protected]", _ "Това е редът на темата" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub