Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Problem mit Kill Statement

Problem mit Kill Statement
05.04.2018 12:22:42
Torsten
Hallo zusammen,
mit folgendem Code erzeuge ich eine Datei, die per Email versendet wird. Nach dem senden will ich diese wieder loeschen, da am naechsten Tag wieder diese Datei erstellt und versendet wird mit neuen Daten.
Application.DisplayAlerts = False
Dim Email As Object, OutApp As Object
Dim AWS As String
Set OutApp = CreateObject("Outlook.Application")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="\\murplfp01\Workgroups\MUS GBC Operations\Team\NA AP\ _
Trackers\Action Plan and Log sheet\Action Log.xlsx", _
FileFormat:=xlOpenXMLWorkbook
AWS = ActiveWorkbook.FullName
Set Email = OutApp.CreateItem(0)
With Email
.To = "irgendwer@irgendwo.com"
.Subject = "Test send File from Excel " & Date & Time
.Attachments.Add AWS
.HTMLBody = "This is a test" & vbCrLf & "Please ignore"
.Send
If Dir("\\murplfp01\Workgroups\MUS GBC Operations\Team\NA AP\Trackers\Action Plan and  _
Log sheet\Action Log.xlsx")  "" Then
Kill "\\murplfp01\Workgroups\MUS GBC Operations\Team\NA AP\Trackers\Action Plan and Log  _
sheet\Action Log.xlsx"
End If
End With
Set OutApp = Nothing
Set Email = Nothing
Application.DisplayAlerts = True
Das senden funktioniert tadellos.
Allerdings gibt es hier ein Problem mit dem Kill Statement.
Bekomme immer RunTime Error '70', Permission denied
Wo liegt hier der Fehler?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Kill Statement
05.04.2018 12:39:56
Torsten
Hallo nochmals,
hat sich erledigt.
Hatte vergessen, die Datei vorher zu schliessen. jetzt funktioniert das Kill.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige