Sub
TEST()
Dim
strpath(1
To
5)
Dim
n
As
Integer
Dim
wbk
As
Workbook
Dim
wert
As
String
strpath(1) =
"L:\temp\excel\Auslesen\Mappe1.xlsx"
strpath(2) =
"L:\temp\excel\Auslesen\Mappe2.xlsx"
strpath(3) =
"L:\temp\excel\Auslesen\Mappe3.xlsx"
strpath(4) =
"L:\temp\excel\Auslesen\Mappe4.xlsx"
strpath(5) =
"L:\temp\excel\Auslesen\Mappe5.xlsx"
For
n = 1
To
5
Set
wbk = GetWorkbook(strpath(n))
wert = wbk.Worksheets(1).Cells(1, 1)
wbk.Close
False
Next
n
End
Sub
Function
GetWorkbook(
ByVal
sFile
As
String
)
As
Workbook
Dim
wbk
As
Workbook
Dim
bFound
As
Boolean
For
Each
wbk
In
Application.Workbooks
If
wbk.FullName = sFile
Then
bFound =
True
Set
GetWorkbook = wbk
Exit
For
End
If
Next
If
Not
bFound
Then
Set
GetWorkbook = Application.Workbooks.Open(sFile)
End
If
End
Function