- Izveidojiet jaunu darbgrāmatu, izmantojot atlasi.
- Pirms nosūtīšanas saglabājiet darbgrāmatu.
- Pēc nosūtīšanas izdzēsiet failu no cietā diska.
Tas parādīs slēptās rindas un kolonnas atlasē
Visas tukšās šūnas ārpus atlases ir paslēptas (skatiet ekrānuzņēmumu)
Tādā veidā atlase vienmēr ir lapas augšpusē
Sub Mail_Selection () Dim strDate kā virkne Dim Addr kā virknes Dim rng kā diapazons, ja ActiveWindow.SelectedSheets.Count> 1 vai Selection.Areas.Count> 1 Pēc tam izejiet no lietojumprogrammas. ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Attēli. Dzēst ar šūnām .EntireColumn.Hidden = False .EntireRow.Hidden = False End with Range (Addr). Atlasiet 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 (xlVisible). .EntireRow.Clear rng (1) .EntireColumn.SpecialCells (xlVisible) .EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells (1). Izvēlieties strDate = Format (Date, "dd- mm-yy ") &" "& Format (Time," h-mm-ss ") ActiveWorkbook.SaveAs" Daļa no "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendM ail "[email protected]", _ "Šī ir tēmas rindiņa" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub