Daten aus anderen Exceldateien auslesen

Hallo zusammen,
ich habe eine Problemstellung und würde diese gerne durch ein Makro lösen. Ich bin mir aber nicht sicher, ob das so ohne weiteres möglich ist, da meine VBA-Kenntnisse eher bescheiden sind.
Ich möchte aus knapp 3500 Exceldateien, die in diversen Ordnern enthalten sind, bestimmte Zellen auslesen und in ein anderes Exceldokument einfügen. Der Einfachheit halber habe ich das andere Dokument in die selbe Datei einfügt (siehe hochgeladene Exceldatei). Die ausgelesenen Daten sollen in Zeilen hintereinander eingesetzt werden, sodass keine Zeile überschrieben wird.
Folgende Besonderheiten müssen berücksichtigt werden:
Die Zeichnungsnr. soll vorzugsweise aus der dem Dateinamen entnommen werden und eingefügt werden (nur Zeichenanzahl bis zu 14 Stellen laden, da auch andere Exceldateien in dem Ordner enthalten sein können!)
Stahlgewicht und Oberfläche sind nur auf bestimmten Seiten und in variierenden Zellen enthalten (gelb markierte Stellen)
Spontan hätte ich gesagt, dass man ein Button programmiert, mit dem man einen Ordner wählt, in dem die Exceldateien enthalten sind.
Hat jemand eine zündende Idee? Sonst wird es sehr aufwendig für mich nächste Woche :)
https://www.herber.de/bbs/user/110378.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenAuslesen() Dim ergebnis As Long Dim fd As FileDialog Dim fil As File Dim fol As Folder Dim fso As FileSystemObject Dim letzteZeileZ As Long Dim pfad As String Dim pos As Long Dim suchErgebnis As Object Dim wb As Workbook Dim ws As Worksheet Dim wsZ As Worksheet ' Zielblatt Dim zeichNr As String Dim zeileStahlgewicht As Long Dim zeileZ As Long Set fd = Application.FileDialog(msoFileDialogFolderPicker) fd.InitialFileName = ThisWorkbook.Path & "\" ergebnis = fd.Show If ergebnis = 0 Then MsgBox Prompt:="Abbruch durch den Benutzer" Exit Sub End If pfad = fd.SelectedItems(1) Set wsZ = ThisWorkbook.Worksheets("Ziel") letzteZeileZ = wsZ.Cells(wsZ.Rows.Count, "A").End(xlUp).Row Set fso = New FileSystemObject Set fol = fso.GetFolder(pfad) zeileZ = letzteZeileZ + 1 For Each fil In fol.Files If fil.Name Like "*.xls*" Then pos = InStrRev(fil.Name, ".") zeichNr = Left$(fil.Name, pos - 1) If Len(zeichNr)

Hallo Al,
das hatte ich doch schon gesagt, man kann natürlich auch die Unterordner einbeziehen. Dazu muss man das Programm nur etwas umstrukturieren. Es sieht dann folgendermaßen aus:


Option Explicit
Dim fso As FileSystemObject
Dim zeileZ As Long
Dim wsZ As Worksheet  ' Zielblatt
Sub DatenAuslesen_mit_Unterverz()
Dim ergebnis As Long
Dim fd As FileDialog
Dim fol As Folder
Dim letzteZeileZ As Long
Dim pfad As String
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.InitialFileName = ThisWorkbook.Path & "\"
ergebnis = fd.Show
If ergebnis = 0 Then
MsgBox Prompt:="Abbruch durch den Benutzer"
Exit Sub
End If
pfad = fd.SelectedItems(1)
Set fso = New FileSystemObject
Set fol = fso.GetFolder(pfad)
Set wsZ = ThisWorkbook.Worksheets("Ziel")
letzteZeileZ = wsZ.Cells(wsZ.Rows.Count, "A").End(xlUp).Row
zeileZ = letzteZeileZ + 1
Folder_abarbeiten Verzeichnis:=fol
Set fso = Nothing
End Sub
Sub Folder_abarbeiten(Verzeichnis As Folder)
Dim fil As File
Dim fol As Folder
Dim pos As Long
Dim suchErgebnis As Object
Dim wb As Workbook
Dim ws As Worksheet
Dim zeichNr As String
Dim zeileStahlgewicht As Long
For Each fil In Verzeichnis.Files
If fil.Name Like "*.xls*" Then
pos = InStrRev(fil.Name, ".")
zeichNr = Left$(fil.Name, pos - 1)
If Len(zeichNr)

Viele Grüße
Dieter

Beliebteste Forumthreads (12 Monate)

Daten aus anderen Exceldateien auslesen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderen Exceldateien auslesen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread