Hallo zusammen,
ich suche schon seit tagen nach einer Lösung, komme aber nicht wirklich weiter.
Ich habe in Access ein ExcelExportCopyFromRecordset das in eine Excel Datei daten einträgt, dies funktioniert auch alles super.
Nur sind beim ausführen sind auch alle offenen Excel Dateien die nichts mit diesem export zu tun haben aus der Taskleiste verschwunden.
Wenn ich eine andere Exceldatei öffne, sehe ich auch die vor diesem Export gestarteten Dateien wieder, wie kann ich vermeiden dass alle offenen Exceldateien im Hintergrund verschwinden?
Hier mal mein Code.
Private Sub Befehl6_Click()
DoCmd.Hourglass True
ExcelExportCopyFromRecordset "Abfrage 2 bezieht sich auf Abfrage 1", "D:\users\bdv\ergebnis.xls", _
"Analyse", "A2", False
ExcelExportCopyFromRecordset "Serien", "D:\users\bdv\ergebnis.xls", _
"Serien", "A2", False
ExcelExportCopyFromRecordset "Abfrage4", "D:\users\bdv\ergebnis.xls", _
"VM", "A3", False
DoCmd.Hourglass False
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open Application.CurrentProject.Path & "\Ergebnis.xls"
xl.ActiveWorkbook.Close
xl.Quit
Set xl = Nothing
MsgBox "Daten wurden in der Exceldatei Ergebnis gespeichert", vbOKOnly, "Export beendet!"
End Sub
Gruß
Jogi
Hallo,
.... wird wohl daran liegen: xl.Quit
Wobei dann auch noch zum Tragen kommt, dass die andern Excel-Prozesse erhalten bleiben (kannst du im Taskmanager kontrollieren)
und deshalb beim Starten einer neuen Datei wieder angezeigt werden.
Auch ist mir nicht ganz klar was du damit bezweckst:
xl.Workbooks.Open Application.CurrentProject.Path & "\Ergebnis.xls"
xl.ActiveWorkbook.Close
Öfnnen und sofortiges Schließen - wozu?
Da dein Export zu funktionieren scheint kannst du deinem System diese Arbeit ersparen.
Sehen wirst du das Ergebnis ohnehin nicht, da die Datei sofort nach dem Start wieder geschlossen wird.
Wenn du nun die Programmzeilen nach ...
DoCmd.Hourglass False
bis zur Message-Box rausnimmst, sollten deine Dateien im Hintrgrund erhalten bleiben - besser deren Sichtbarkeit in der Taskleiste.
HTH
Hallo,
ich habe mal alles rausgenommen, doch meine geöffneten Exceldateien verschwindet immer noch beim export aus Access aus der Taskleiste, und werden erst wieder sichtbar wenn ich eine irgend eine andere Exceldatei öffne.
Private Sub Befehl6_Click()
ExcelExportCopyFromRecordset "Abfrage 2 bezieht sich auf Abfrage 1", "D:\users\bdv\ergebnis.xls", _
"Analyse", "A2", False
ExcelExportCopyFromRecordset "Serien", "D:\users\bdv\ergebnis.xls", _
"Serien", "A2", False
ExcelExportCopyFromRecordset "Abfrage4", "D:\users\bdv\ergebnis.xls", _
"VM", "A3", False
MsgBox "Daten wurden in der Exceldatei Ergebnis gespeichert", vbOKOnly, "Export beendet!"
End Sub
Gruß
Jogi
Hallo,
naja, nachdem die von dir zitierte 'ExcelExportCopyFromRecordset' eine benutzerdefinierte Funktion sein wird, die du aus einem anderen Forum bezogen hast,
nehme ich an, dass der Excel.Quit Befehl auch dort zumindest einmalig vorkommen wird.
Warum verwendest du denn nicht die Access-Bordmittel TransferSpreadsheet? Schau mal in die OH zu diesem Thema DoCmd.TransferSpreadsheet
erst mal vielen Dank für deine Hilfe,
ich habe dies heute mal versucht DoCmd.TransferSpreadsheet doch in den ersten beiden zeilen der Exceldatei sind formeln hinterlegt.
Mit DoCmd.TransferSpreadsheet kann ich doch nicht sagen füge erst ab a2 oder a3 ein oder?
Gruß
Jogi