Dateiname zusammensetzen
25.11.2007 01:12:33
Thomas
leider sind meine VBA Kentnisse echt noch nicht so besonders... deswegen wende ich mich wieder einmal an Euch.
Ich habe eine Datei entworfen (in der es nach dem Aussehen geht), die zur Eingabe von An- und Abwesenheit dient.
Die eingetragenen Daten sind bis auf 2 Felder nebensächlich...
Jetzt meine Probleme bzw. Fragen:
Der unten angefügte Code ist schon ganz prima (hab ich im Forum gefunden),
Es soll nur das gesamte Tabellenblatt versendet werden (so wie sie ist...) nicht nur ein gewisser Bereich...
und ...
der Dateiname soll noch mit 2 Werten aus dem Tabellenblatt verkettet werden...
in B4 steht das Datum
in B8 der Name des Mitarbeiters
damit er unverwechselbarer wird.
Vielen Dank im Voraus.
Gruß Thomas K.
Private Sub sendbutton_Click()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
ActiveSheet.Range("a1:j32").Copy 'Hier dein Bereich den du senden willst
Workbooks.Add
Sheets(1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.SaveAs "C:\Arbeitszeiterfassung.xls" ' irgendein Pfad für die Temporäre Kopie
With objMail
.To = "hallo@hallo.de"
.Subject = "Arbeitszeiterfassung"
.Body = "Hallo user, hier ist deine Auswertung!"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
ActiveWorkbook.Close
Kill ("C:\Test.xls") ' löscht deine Kopie wieder
Set objOutlook = Nothing
Set objMail = Nothing
End Sub
Anzeige