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).
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
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:
Dim DateiPfad as String
DateiPfad = "C:\Verzeichnis"
On Error Resume Next
Kill (DateiPfad & "\" & ExcelDateiName)
Okay danke schön :)
Hallo,
wenn deine Frage damit beantwortet ist bitte den Thread in DEINEM ersten Beitrag auf 'gelöst' setzen!
DANKE
Schönes WE!