- Vytvořte nový sešit pomocí výběru.
- Před odesláním sešitu si jej uložte.
- Po odeslání soubor smažte z pevného disku.
Odkryje skryté řádky a sloupce ve výběru
Všechny prázdné buňky mimo výběr jsou skryté (viz snímek obrazovky)
Tímto způsobem je výběr vždy v horní části listu
Sub Mail_Selection () Dim strDate jako řetězec Dim Addr jako řetězec Dim rng jako rozsah If ActiveWindow.SelectedSheets.Count> 1 or Selection.Areas.Count> 1 Then Exit Sub Application.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Pictures.Delete With Cells .EntireColumn.Hidden = False .EntireRow.Hidden = False End With Range (Addr). Select Set rng = Selection Application.GoTo rng, True With rng.EntireColumn .Hidden = True rng (1) .EntireRow. SpecialCells (xlVisible) .EntireColumn.Clear rng (1) .EntireRow.SpecialCells (xlVisible) .EntireColumn.Hidden = True .Hidden = False End With With rng.EntireRow .Hidden = True rng (1) .EntireColumn.SpecialCells (x .EntireRow.Clear rng (1) .EntireColumn.SpecialCells (xlVisible) .EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells (1). Select strDate = Format (Date, "dd- mm-yy ") &" "& Formát (čas," h-mm-ss ") ActiveWorkbook.SaveAs" část "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendM ail "[email protected]", _ "Toto je předmětový řádek" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub