- Sukurkite naują darbaknygę naudodami pasirinkimą.
- Prieš išsiųsdami darbo knygą, ją išsaugokite.
- Išsiuntę failą, ištrinkite jį iš kietojo disko.
Tai parodys paslėptas eilutes ir stulpelius pasirinkime
Visos tuščios ląstelės, esančios už pasirinkimo ribų, yra paslėptos (žr. Ekrano kopiją)
Tokiu būdu pasirinkimas visada yra jūsų lapo viršuje
Sub Mail_Selection () Dim strDate kaip eilutė Dim Addr kaip eilutės Dim rng kaip diapazonas Jei ActiveWindow.SelectedSheets.Count> 1 arba Selection.Areas.Count> 1 Tada išeikite iš antrinės programos. ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Paveikslėliai. Ištrinti naudojant langelius .EntireColumn.Hidden = False .EntireRow.Hidden = False End with Range (Addr). Pasirinkite 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) .EngtireColumn.SpecialCells (xlVisible). .EntireRow.Clear rng (1) .EntireColumn.SpecialCells (xlVisible) .EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells (1). Pasirinkite strDate = Format (Data, "dd- mm-yy ") &" "& Formatas (laikas," h-mm-ss ") ActiveWorkbook.SaveAs" "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendM dalis ail "[email protected]", _ "Tai temos eilutė" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub