Daten aus geschlossenen Dateien auslesen
28.08.2006 15:28:40
Dieter.K
Folgenden Code habe ich von der "Herber-CD"
Sub Einlesen()
Dim iCounter As Integer, iRow As Integer
Dim sfile As String, sPath As String
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
With Application.FileSearch
.LookIn = Range("B1").Value
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
sfile = Dir(.FoundFiles(iCounter))
sPath = WorksheetFunction.Substitute(.FoundFiles(iCounter), sfile, "")
With Cells(iRow, 1)
.Formula = "='" & sPath & "[" & sfile & "]Tabelle1'!A1"
.Value = .Value
End With
iRow = iRow + 1
Next iCounter
End With
End Sub
Wie kann ich es erreichen, aus 2 unterschiedlichen Tabellenblättern der jeweiligen xls.Dateien und dazu auch noch aus mehreren Zellen die Werte auszulesen?
Beispiel: aus Tabelle1 die Werte der Zellen E6-E8 und E14-24, sowie aus Tabelle3 die Werte der Zellen I49 und J58?
Für einen Lösungsansatz bedanke ich mich im Voraus!
Gruß
Dieter.K
Anzeige