Zugriff auf andere Dateien, ohne diese zu öffnen

Hallo zusammen,
trage gerade die Daten aus ca. 50-80 Excel-Dateien (xls, Excel vor 2007) zusammen (Ziel ist, eine konsolidierte Datentabelle über den Status der Einträge zu erhalten).
Aktuell erfolgt der Zugriff pro Zelle über einen zusammengesetzten String, der via Indirekt den Wert ausgibt. Das erfordert aber, dass alle Dateien zuerst geöffnet werden (macht aktuell eine VBA-Schleife).
# Das Problem:
Das Öffnen der Dateien dauert bereits einige Zeit und Excel bekommt danach eine etwas zähe Performance. Schlimmer ist, dass alle Dateien irgendwann wieder geöffnet werden müssen. Und da fragt Word 2010 bei jeder Datei, ob die Änderungen gesichert werden sollen. Das dauert oder ich schieße den Excel-Prozess manuell ab. Ein Öffnen als "ReadOnly:=True" hilft da nicht weiter.
# Meine Frage ist:
Gibt es einen performanteren Weg, Dateien zu öffnen (z. B. im Backend, ohne diese selbst anzuzeigen)? Oder gibt es einen grundsätzlich besseren Weg?
Herzlichen Dank für jede Hilfe!
--
Viele Grüße,
Hartmut Scheele

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Hartmut,
du kannst den Zellbezug per Formel mittels VBA eintragen, ohne die anderen Arbeitsmappen öffnen zu müssen - nach diesem Prinzip:

Sub daten_uebernehmen()
Dim strFile As String
Dim strPath As String
Dim loZeileZielmappe As Integer
Application.ScreenUpdating = False
strPath = "C:\Test\"               ' Pfad bitte anpassen!
strFile = Dir(strPath & "*.xls")
Worksheets.Add after:=Worksheets(Worksheets.Count)
loZeileZielmappe = 1
Do While strFile  ""
If strFile  ThisWorkbook.Name Then
Cells(loZeileZielmappe, 1).Formula = _
"='" & strPath & "[" & strFile & "]" & "Tabelle1" & "'!A1"
Cells(loZeileZielmappe, 2).Formula = _
"='" & strPath & "[" & strFile & "]" & "Tabelle1" & "'!D1"
loZeileZielmappe = loZeileZielmappe + 1
End If
strFile = Dir()
Loop
' am Schluss alles in Werte umwandeln falls erforderlich
'    Range("A1:B" & loZeileZielmappe).Copy
'    Range("A1:B" & loZeileZielmappe).PasteSpecial Paste:=xlPasteValues
'    Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Hier werden Bezüge zu allen Zellen A1 und D1 der Tabelle1 jeder (geschlossenen) Arbeitsmappe hergestellt und fortlaufend in Spalte A und B untereinander aufgelistet.

Beliebteste Forumthreads (12 Monate)

Zugriff auf andere Dateien, ohne diese zu öffnen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zugriff auf andere Dateien, ohne diese zu öffnen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread