Excel Export automatisch löschen

[Basti123]

Hallo zusammen,

hab da eine Frage: In einem Suchformular hab ich eine Befehlsschaltfläche. Die gibt mir über die gesuchten Daten einen Excelexport aus (mit Filter logischerweise).

Code [Auswählen] Erweitern

Private Sub LoginExcel_Click()
Const ExcelDateiName = "LoginData.xls"
   Const tmpAbfrage = "qrytemp"
   Dim sSQL As String
   Dim qdf As DAO.QueryDef
   
   sSQL = "SELECT * FROM qryDeviceList"
   If GetLoginFilter <> "" Then
       sSQL = sSQL & " where " & GetLoginFilter()
   End If
       
Debug.Print sSQL
   On Error Resume Next
   DoCmd.DeleteObject acQuery, tmpAbfrage
   On Error GoTo 0
   Set qdf = CurrentDb.CreateQueryDef(tmpAbfrage, sSQL)
   DoCmd.OutputTo acOutputQuery, "qrytemp", acFormatXLS, "LoginData.xls", True
   SendKeys "^a", True
   SendKeys "%teo", True
   SendKeys "%tlo", True
   SendKeys "^{HOME}", True
   DoCmd.DeleteObject acQuery, tmpAbfrage

End Sub

--> Ist es möglich diese Excel Datei automatisch zu löschen, wenn sie geschlossen wird?

Grüße Basti

[database]

Hallo,

beim Schließen der Datei geht's nicht.

Du kannst die Datei aber löschen bevor die neue Abfrage erstellt wird.
z.B. wenn du das nach Const ExcelDateiName  einbaust:

Code [Auswählen] Erweitern


Dim DateiPfad as String
DateiPfad = "C:\Verzeichnis"
On Error Resume Next
Kill (DateiPfad & "\" & ExcelDateiName)


[Basti123]

Okay danke schön

[database]

Hallo,
wenn deine Frage damit beantwortet ist bitte den Thread in DEINEM ersten Beitrag auf 'gelöst' setzen!

DANKE

Schönes WE!