Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Export nach Excel dauert zu lange
zurück: UNION mit QuerryDef weiter: Prüfen ob Ordner vorhanden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Martinis
Gast


Verfasst am:
09. Feb 2012, 17:28
Rufname:

Export nach Excel dauert zu lange - Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

hallo zusammen,

ich bin gerade dabei eine exportfunktion für eineige tabellen zu integrieren und dabei ist mir eine unverhältnismässig lange zeit aufgefallen die das dauert. getestet hatte ich das mit kleinen tabellen von unter 50 datensätzen. jetzt hab ichs mla mit einer etwas grösseren (750 ds) versucht und gemerkt wie lange sowas dauern kann. access reagiert in der zeit nicht und das ganze dauert 18 sekunden!
hier mein code:

Code:


Private Sub Befehl32_Click()

    Dim stDocName As String
    Dim strExcelName As String
    Dim ExcelObj As Object
    Dim datum As Date
    datum = Date
    Dim Jahr As Integer
    Dim Monat As String
    Jahr = Year([datum])
    Monat = Format(datum, "mmmm")
stDocName = "StammInterne_Bericht"
strExcelName = "\\Pfad\StammInterne MA " & Monat & " " & Jahr & ".xls"

DoCmd.OutputTo acQuery, stDocName, acFormatXLS, strExcelName
 
Set ExcelObj = CreateObject("excel.Application")
ExcelObj.Workbooks.Open FileName:=strExcelName
ExcelObj.ActiveSheet.Cells.Select
ExcelObj.ActiveSheet.Cells.EntireColumn.AutoFit
ExcelObj.ActiveSheet.Range("A1").Select
ExcelObj.ActiveWorkbook.Save
ExcelObj.Quit
Set ExcelObj = Nothing

End Sub


gibt es vielelicht eine möglichkeit das ganze zu beschleunigen?

grüsse
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
09. Feb 2012, 17:34
Rufname: Mike


AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

Hallo,
der Export selbst geht eigentlich rasend schnell.
Du exportierst wirklich nur Tabellen?

Ansonsten solltest du zwischen Export und Excelaufruf mal eine MsgBox einbauen, damit du sieht bei welcher Aktion die Zeit hängt.

Ja und letztendlich ich daten(bank)technisch
Code:
DoCmd.TransferSpreadsheet
(unformatierter Export) die bessere Methode.

Btw:
Dein Excelcode wäre noch zu optimieren (UNGETESTET):
Code:
Set ExcelObj = CreateObject("excel.Application")
ExcelObj.Workbooks.Open FileName:=strExcelName
ExcelObj.ActiveSheet.Cells.EntireColumn.AutoFit
ExcelObj.ActiveWorkbook.Save
ExcelObj.Quit
Set ExcelObj = Nothing

_________________
Grüße
Mike
martinis
Gast


Verfasst am:
09. Feb 2012, 17:51
Rufname:

AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

danke für die mega schnelle antwort!
ich hab mal die 2 zeilen mit select rausgenommen, leider keine geschwindigkeitsänderung. ich exportiere eine abfrage, die sich nur auf eine tabelle bezieht. die abfrage selber dauert max 1 sek.

Super tip mit der msgbox! hab des einfach mla bei jeder zeile eingetragen und weiss jetzt, wleche so bremst:

Code:

DoCmd.OutputTo acQuery, stDocName, acFormatXLS, strExcelName


allerdings weiss ich beim besten willen nicht warum.
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
09. Feb 2012, 17:54
Rufname: Mike

AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

Hallo,
dann teste mal wie vorgeschlagen
Code:
DoCmd.TransferSpreadsheet

Zitat:
die sich nur auf eine tabelle bezieht
Das muss noch nichts heißen, auch so eine Abfrage kann langsam sein Wink.
_________________
Grüße
Mike
martinis
Gast


Verfasst am:
09. Feb 2012, 17:59
Rufname:


AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

oh je, transferspreadsheet wollte ich unbedingt vermeiden wegen der formatierung in excel. die spaltenbreiten unterscheiden sich sehr und des ding nochmal in die hand zu nehmen nachdem es eigentlich fertig is...
getestet wegen laufzeit hab ich alles einzeln. die abfrage geht schnell, den ganzen code im direktfenster eingegeben geht schnell, nur automatisch laufen lassen nicht. irgendwie fehlt mir da was für mein verständnis...
danke nochmla für deine bemühungen!
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
09. Feb 2012, 18:08
Rufname: Mike

AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

Hallo,
Zitat:
oh je, transferspreadsheet wollte ich unbedingt vermeiden wegen der formatierung in excel
Wo ist das Problem, du fasst die Excelmappe doch sowieso an. Teste es einfach mal.

>> die abfrage geht schnell
Beim Test aber auch in den letzten DS springen.

>> den ganzen code im direktfenster eingegeben geht schnell
Verstehe ich nicht Confused

Btw:
Bei "18s" kann man auch mal einen Export von Hand testen.

_________________
Grüße
Mike
martinis
Gast


Verfasst am:
09. Feb 2012, 18:17
Rufname:

AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

also transferspreadsheet ist wesentlich schneller! die ganze idee hinter der sache ist eigentlich einen monatsbericht jedes mal zu aktualisieren wenn man die db öffnet. der umweg mit dem knopf ist nur für den test jetzt. wenn ich den code bei open_form oder so einbaue dauert natürlich das öffnen der ganzen db unnötig lang, also setze ich das erst um wenn es flotter geht.
sollte das ganze mal wie angedacht funktionieren können viele leute von diesen ergebnissen profitieren, auch die ohne db zugang. die files sollen auf einem netzwerksahre für viele zugänglich gespeichert werden. aus diesem grund will ich das auch nciht nachbearbeiten müssen...
martinis
Gast


Verfasst am:
09. Feb 2012, 18:21
Rufname:

AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

hab leider noch was vergessen:
Zitat:

>> den ganzen code im direktfenster eingegeben geht schnell
Verstehe ich nicht


ich hab den code zeile für zeile in den direktbereich reinkopiert und mir die zeiten angeschaut. praktisch keine wartezeit nach ausführen der zeilen. hoffe das ist jetzt verständlicher.
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
09. Feb 2012, 20:06
Rufname: Mike


AW: Export nach Excel dauert zu lange - AW: Export nach Excel dauert zu lange

Nach oben
       Version: Office 2003

Hallo,
Zitat:
ich hab den code zeile für zeile in den direktbereich reinkopiert
für so etwas gibt es Haltepunkte oder nach einfach den Einzelschrittmodus.
Teste das noch mal.

Btw:
Will man sowas im Automatikbetrieb machen kann man die Timerfunktion und die Ausgabe ins Direktfenster nutzen:
Code:
 ' Luftcode
dim s as double
' ...
s=timer
DoCmd.OutputTo acQuery, stDocName, acFormatXLS, strExcelName
debug.print "OutputTo dauert", timer -s , "s"

s=timer
Set ExcelObj = CreateObject("excel.Application")
ExcelObj.Workbooks.Open FileName:=strExcelName
ExcelObj.ActiveSheet.Cells.Select
ExcelObj.ActiveSheet.Cells.EntireColumn.AutoFit
ExcelObj.ActiveSheet.Range("A1").Select
ExcelObj.ActiveWorkbook.Save
ExcelObj.Quit
Set ExcelObj = Nothing
debug.print "Der Rest  dauert", timer -s , "s"

_________________
Grüße
Mike
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Export und Abfrage 3 exceler1 198 20. Okt 2010, 23:20
KlausMz Export und Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen schuld? sehr lange Zeit beim öffnen eines Formulars 2 ichweissnicht 575 06. Sep 2010, 08:58
ichweissnicht Abfragen schuld? sehr lange Zeit beim öffnen eines Formulars
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch bei Export in TXT 5 Frank_online 2033 28. Jun 2009, 12:01
steffen0815 Zeilenumbruch bei Export in TXT
Keine neuen Beiträge Access Tabellen & Abfragen: Pivot nach Excel export. Aber nur Pivot! 4 Sono 5258 29. Mai 2009, 12:38
magi65 Pivot nach Excel export. Aber nur Pivot!
Keine neuen Beiträge Access Tabellen & Abfragen: Datum ändert sich beim Export von Access in Excel 14 Frenchie 2026 20. März 2009, 13:24
Gast Datum ändert sich beim Export von Access in Excel
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageprobleme (Zeitraum ab jetzt), Export nach Excel 0 Waldi_NW 403 20. März 2009, 11:33
Waldi_NW Abfrageprobleme (Zeitraum ab jetzt), Export nach Excel
Keine neuen Beiträge Access Tabellen & Abfragen: Export eines großen datensatzes 1 q3stanky 389 04. Feb 2009, 00:15
trekking Export eines großen datensatzes
Keine neuen Beiträge Access Tabellen & Abfragen: Access Export in csv Problem mit NULL Werten in DB 3 pali99 1413 23. Jan 2009, 09:51
Gast Access Export in csv Problem mit NULL Werten in DB
Keine neuen Beiträge Access Tabellen & Abfragen: Export einer Tabelle mit falschen Nachkommastellen 1 andreas k 482 12. Jan 2009, 14:42
Gast Export einer Tabelle mit falschen Nachkommastellen
Keine neuen Beiträge Access Tabellen & Abfragen: access export Pivotabelle nach Excel mit Jahr,Monat,tag 0 BenjiFrank2 1082 03. März 2008, 03:29
BenjiFrank2 access export Pivotabelle nach Excel mit Jahr,Monat,tag
Keine neuen Beiträge Access Tabellen & Abfragen: Export als CSV...Feld irrtümlicherweise als dezimal mit ,00? 5 Zonk 1293 19. Nov 2007, 11:38
Zonk Export als CSV...Feld irrtümlicherweise als dezimal mit ,00?
Keine neuen Beiträge Access Tabellen & Abfragen: Export in Excel: Zahlenformat 4 Silberchen 1420 22. Aug 2007, 11:16
Silberchen Export in Excel: Zahlenformat
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver