aktive Datei löschen

Hallo liebe Excelgemeinde,
ich habe ein Makro geschrieben, mit dem die aktuelle Datei kopiert, unter C:\Temp unter einen anderen Namen gespeichert und als Email-Anhang verschickt wird. Am Ende würde ich gerne diese neue Datei wieder löschen. Da der Dateiname variabel ist (Er setzt sich aus der Eingabe in bestimmte Felder des Tabellenblattes zusammen). habe ich mir mit Application.ActiveWorkbook.FullName versucht weiterzuhelfen und folgenden Makro geschrieben. Aber es klappt nicht. Wenn ich den Dateinamen mit kompletten Pfad eingebe, dann klappt es. Was ist falsch am Makro?


Sub Datei_löschen ()
Dim strFullName As String
strFullName = Application.ActiveWorkbook.FullName
Kill strFullName
End Sub

Besten Dank für Eure Hilfe.
Gruß
J.Freitag

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reinhard
ich bekomme die Fehlermeldung:
Laufzeitfehler 53
Datei nicht gefunden
Welcher Teil des Codes relevant läßt sich für mich als Laien schwer beurteilen, deshalb poste ich den gesamten Code:


Sub Email()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
Dim strFullName As String 'Dateiname der aktiven Arbeitsmappe ermitteln, inkl. Pfadangabe
SavePath = "C:\TEMP"
Application.DisplayAlerts = False 'Makroausführung nicht durch Sicherheitsabfragen unterbrechen
Application.ScreenUpdating = False 'Makoausführung verbergen
Set OutApp = CreateObject("Outlook.Application")
Range("E4:L23").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("E3").Select
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und dem Namen in F7
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ActiveSheet.Range("F7") & ".xls"
'Aktive Arbeitsmappe wird als mail gesendet
AWS = ActiveWorkbook.FullName
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ""
'.CC = ";"
.BCC = ""
.Subject = "Auftragsabstimmung " & ActiveSheet.Range("F7") & " in " & ActiveSheet.Range("F11")
.Attachments.Add AWS
'Lesebestätigung ein/aus
.ReadReceiptRequested = True
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
'Hier könnte die Datei wieder gelöscht werden
strFullName = Application.ActiveWorkbook.FullName
Kill strFullName
'Formular (inizierende) Arbeitsmappe schließen
Workbooks("Auftragsabstimmung.xls").Close SaveChanges:=False
End With
End Sub

Gruß
J.Freitag

Sub tt() Dim strFullName Workbooks.Open "c:\download\29070.xls" strFullName = Application.ActiveWorkbook.FullName ActiveWorkbook.Close Close Open "C:\temp\loesch.bat" For Output As #1 Print #1, "move " & strFullName & " c:\Loesch\29070.xls" Close Shell ("C:\temp\loesch.bat") End Sub

Sub zMloesche() ' von Jürgen Wenzel ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End Sub Sub zMloesche_ver() ' angepast, damit nicht zwischen This und Active gewechselt wird ' vom Melanie Breden With ThisWorkbook .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread