Excel-Dateien aus Ordner auslesen
05.11.2014 15:09:57
M.Bacher
Hier der Link:
https://www.herber.de/forum/archiv/864to868/867500_Excel_Dateien_aus_Ordner_auslesen.html
Nun hat Josef Ehrenberger eine wunderbare Lösung aufgezeigt, die ich bereits erweitert und an meine Bedürfnisse angepasst habe.
Es gibt nur ein kleines Problem beim einlesen, wo ich leider nicht weiterkomme.
Im Bereich wo das auszulesende Tabellenblatt angesprochen wird:
strTabName = "Tabelle1" 'Name der Tabellenblätter anpassen!
liegt das Problem. Es gibt bei mir Tabellen die "Deckblatt" heißen oder "cover sheet" als englische Version. Wie muss ich das abändern das er beide ohne Nachfrage akzeptiert.
Im VB in der Liste der Tabellen ist "Decklatt" und "cover sheet" immer Tabelle1, nur der Name ist unterschiedlich. Ansprechen mit "Tabelle1" funktioniert nicht. Mit "or" und beide Namen hintereinander gibts einen Bug...
Wer kann mir helfen? Danke!
Mfg Mario Bacher
Hier der Code den Josef bereitgestellt hat:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
Option Explicit
Sub Daten_Lesen()
Dim strPath As String, strFile As String, strTabName As String
Dim lngR As Long
strPath = "F:\Temp\km\" 'Verzeichnis anpassen!
strTabName = "Tabelle1" 'Name der Tabellenblätter anpassen!
strFile = Dir(strPath & "*.xls")
lngR = 1
With ThisWorkbook.Sheets("Tabelle1") 'Name der Ausgabetabelle anpassen!
.Range("A2:B" & Rows.Count).ClearContents
Do Until strFile = ""
lngR = lngR + 1
.Cells(lngR, 1) = strFile
.Cells(lngR, 2).Formula = "=SUM('" & strPath & "[" & strFile & "]" & _
strTabName & "'!$K$7:$K$17)"
.Cells(lngR, 2) = .Cells(lngR, 2).Value
strFile = Dir
Loop
End With
End Sub