Besteht die Möglichkeit, einzelne
Tabellen aus einer Datei zu versenden ?
Die Routine kopiert Tabelle1 in eine neue Arbeitsmappe,
versendet diese und schließt sie anschließend ohne Speicherung.
Sub Blatt_senden
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "[email protected]", "Test"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
|
