Zelle auslesen aus geschlossenen Dateien
02.10.2003 08:46:33
Uli
gibt es eine Möglichkeit das aktive bzw. Starttabellenblatt bei geschlossenen Exceldateien per Makro festzulegen bzw. zu ändern ?
Hintergrund ist, daß ich per Makro aus verschiedenen Exceldateien Zellinhalte auslesen möchte. Grundsätzlich funktioniert dies aus, Problem ist nur, daß die Ursprungsdateien 4 Tabellenblätter beinhalten und der Zellinhalt jeweils aus dem Tabellenblatt "Kalkulation" ausgelesen werden soll.
Das Makro für das Auslesen der Ursprungsdateien in eine Zieldatei habe bereits hier im Forum gefunden ( https://www.herber.de/forum/archiv/196to200/t196400.htm ) und lautet wie folgt:
Option Explicit
Sub Dateiliste()
' erstellt von Hajo Ziplies 25.12.02
' Dateiliste für ein Verzeichnis ohne Unterverzeichnisse
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "D:\Eigene Dateien\Hajo\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
I = 1
With Workbooks(ThisWorkbook.Name).ActiveSheet
Do While Dateiname <> ""
.Cells(I, 1).Value = Dateiname
Workbooks.Open Filename:=strVerzeichnis & Dateiname
.Cells(I, 2) = Range("B12")
ActiveWorkbook.Close False
I = I + 1
Dateiname = Dir
Loop
End With
End Sub
Problem ist nun, daß grundsätzlich nur der Zellinhalt des zuletzt aktiven Tabellenblatts der geschlossenen Datei ausgelesen wird.
Ich habe versucht, über Anpassung der Zeile´.Cells(I, 2) = Worksheets("Kalkulation").Range("B12")´ ein Tabellenblatt direkt anzusprechen, leider funktioniert dies nicht.
Ich könnte mir auch vorstellen, daß man zuerst ein Makro ablaufen läßt, daß zuerst bei den geschlossenen Dateien das entsprechende Tabellenblatt festlegt bzw. ändert und daraufhin oben beschriebenes Makro.
Für eine Tip wär ich euch Super dankbar.
Uli