Zugriff auf eben geöffnetes Excelfile
09.07.2004 17:31:10
julia
kann mir jemand sagen wie ich auf das eben geöffnete Excelsheet zugreifen kann?
Es geht um diesen Bereich vom Code den ich unten im gesamten abgebildet habe:
Workbooks.Open .FoundFiles(i)
Sheets(1).Select
If Range("A4") >= 10 Then
Der Code wird aus einem Excelfile gestartet, worauf andere Excelfiles geöffnet werden. Bei diesem Code wird das Feld A4 des ursprünglichen Files durchsucht, ich will aber das eben geöffnete File durchsuchen... kann mir jemand sagen wie ich das eben geöffnete File (dessen Namen ich nicht kenne) ansprechen kann?
Gibt es eigentlich einen Befehl mit dem ich in dieser Schleife den Filename einer variablen zuweisen kann?
Vielen Dank im Voraus!
LG Juli
DER GANZE CODE
---------------------
Option Explicit
Sub Daten_suchen()
Dim FS As FileSearch, wsh1 As Worksheet, i As Integer
Set wsh1 = ThisWorkbook.Sheets(1)
Set FS = Application.FileSearch
With FS
.LookIn = ThisWorkbook.Path
.Filename = "*.xls"
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
If Not i = 1 Then
Workbooks.Open .FoundFiles(i)
Sheets(1).Select
If Range("A4") >= 10 Then
'Daten in Zeilen schreiben
With wsh1
.Cells(i, 1) = Range("A2")
.Cells(i, 2) = Range("A4")
.Cells(i, 3) = Range("N5")
End With
ActiveWorkbook.Close , False
End If
End If
Next i
End If
End With
End Sub
---------------------