Xml Import dauert sehr lange
22.05.2013 10:51:31
Bernhard
ich nutze seit längerem die Funktion XmlImport in VBA, um größere Xml-Dateien einzulesen (Größe in Excel ca. 7500 Zeilen, 85 Spalten).
(Anbei der Code).
Mein Problem:
Nach erstmaligem Öffnen der Excel-Datei dauert das Einlesen ca. 3 Sekunden.
Möchte ich erneut eine Xml einlesen, dauert der Lesevorgang bis zu 40 Sekunden (auch bei der ein und der selben Datei). Dabei fällt auf, dass dabei in der Statusleiste von Excel "Keine Rückmeldung" eingeblendet wird. Nach den 40 Sekunden wird der Inhalt der Xml jedoch richtig angezeigt und man kann wie gewohnt weiterarbeiten.
Um den Einlese-Vorgang jedoch wieder schnell hinzubekommen, muss Excel geschlossen und wieder geöffnet werden.
Welchen Grund hat das, bzw. wie kann ich dieses Verhalten verhindern?
Danke schon mal für eure Antworten.
Grüße
Bernhard
Private Sub CommandButton1_Click()
Dim strFileName As String
'ggf. Laufwerk und Ordner als Vorgabe setzen
ChDir "\"
ChDrive "c:\"
'Das Dialogfenster
Dateiname = Application.GetOpenFilename _
("XML-Dateien (*.xml),*.xml")
If Dateiname = False Then Exit Sub
strFileName = Dateiname
ActiveWorkbook.XmlImport strFileName, ImportMap:=Nothing, Overwrite:=True, Destination:=Sheets(" _
_
Tabelle1").Range("$A$10")
End Sub