Andere ungeöffnete Datei mit VBA ansprechen

Hallo zusammen,
Ich möchte die Zelleninhalte verschiedener Exceldateien in einer Hauptexcel zusammenfassen.
Jede menge in einem "file" ist einer pos zugeordnet.
Im Besagter Hauptexcel möchte ich oben alle "file" im Ordner nebeinander aufgelistet haben und darunter die Werte passend zu den Positionen die in der Hauptexcel in der Spalte ganz links aufgereiht sind.
Der Code funktioniert jedoch nur, wenn die "file" geöffnet sind sonst gibt VBA die fehlermeldung: Index außerhalb des gültigen Bereichs aus.
Kann mit jemand einen Eleganten und Schnellen Lösungsvorschlag geben ohne alle Files öffnen zu müssen?
Code:


Sub DatenEinlesen()
Dim Dateiname As String, i As Integer
Dim pos As String, menge As Integer
Dim a As Integer
Dim such As Integer
Dim zeile As Integer
Range("AN2:XFD1413") = ""
Dateiname = Dir$("C:\Users\Name\Desktop\Neuer Ordner\*file*")
Do While Dateiname  ""
Range("AN9").Offset(0, i) = Dateiname
For a = 36 To 55
pos = Workbooks(Dateiname).Worksheets("Sheet1").Cells(a, 2)
menge = Workbooks(Dateiname).Worksheets("Sheet1").Cells(a, 23)
Workbooks("Hauptexcel.xlsm").Activate
If Not pos = "" Then
For such = 10 To 1413
If Cells(such, 3).Value = pos Then
zeile = Cells(such, 3).Row
Range("AN9").Offset(zeile - 9, i) = menge
End If
Next such
End If
Next a
i = i + 2
Dateiname = Dir$()
Loop
End Sub

Hallo,
Danke hat mir sehr geholfen.
Habe jetzt nach ein paar Versuche die Lösung für das Problem gefunden.
Ich habe die Dateien als Objekte gespeichert und Aktiviert wenn ich sie brauche.
Außerdem darf man in der zweiten neuen Zeile von dir keine Gänsefüße machen.
Jedoch habe ich jetzt ein neues Problem es kommt jetzt beim automatisierten Öffnen der Files die Benachrichtigung zum Aktualisieren der Daten die in den "Files" verlinkt sind.
Kann man das irgendwie Automatisieren?
Richtiger Code:

Sub DatenEinlesen()
Dim Dateiname As Variant, i As Integer
Dim pos As String, menge As Integer
Dim a As Integer
Dim such As Integer
Dim zeile As Integer
Dim FirstBook As Object
Dim SecondBook As Object
'Geöffnete Datei als FirstB
Set FirstBook = ActiveWorkbook
'Alles im Zielbereich löschen
Range("AN2:XFD1413") = ""
'Erstes file im Ordner auswählen
Dateiname = Dir$("C:\Users\Name\Desktop\Neuer Ordner\*file*" & ".xlsx")
'Schleife solange es files im Ordner gibt
Do While Dateiname  ""
'Dateiname in die oberste Zeile schreiben
Range("AN9").Offset(0, i) = Dateiname
' Öffnet die Datei "Dateiname"
Workbooks.Open ("C:\Users\Name\Desktop\Neuer Ordner\" + Dateiname)
'Definieren des Files als SecondBook
Set SecondBook = ActiveWorkbook
'Bereich in dem die Positionen Stehen auslesen
For a = 36 To 55
pos = Workbooks(Dateiname).Worksheets("Vorlage_FAB").Cells(a, 2)
menge = Workbooks(Dateiname).Worksheets("Vorlage_FAB").Cells(a, 23)
If Not pos = "" Then
'Aktivieren der Hauptexcel
FirstBook.Activate
'Gleiche Position in der Hauptdatei suchen
For such = 10 To 1413
If Cells(such, 3).Value = pos Then
'Zeile Auslesen und in eine Variable schreiben
zeile = Cells(such, 3).Row
'Menge in die richtige Zeile schreiben
Range("AN9").Offset(zeile - 9, i) = menge
End If
Next such
End If
' Aktivieren des Files
SecondBook.Activate
Next a
'Spalte in der, der Dateiname steht um eins erhöhen
i = i + 1
Workbooks(Dateiname).Close False
'Nächste Datei auswählen
Dateiname = Dir$()
Loop
End Sub

Andere ungeöffnete Datei mit VBA ansprechen

Forumthread: Andere ungeöffnete Datei mit VBA ansprechen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial