Application.GetOpen
26.07.2005 11:17:20
Florian
ich habe ein Makro geschrieben welches über die Funktion "Application.GetOpen" Excel-Dokumente öffnet.
Mein Problem ist aber, dass ich die geöffneten Dokumente in einem weiteren Makro verarbeiten möchte. Wie kann ich mich auf Zellen der geöffneten Dokumente beziehen und den Inhalt in ein leeres Dokument übertragen.
Das Makro kann sich doch nur auf ein anderes XLS beziehen wenn der Name dieser Mappe im Makro bekannt ist. Ich weiß aber vorher nicht wie die geöffneten Dokumente heißen werden.
Vielen Dank schon mal
So sieht meine Öffnen-Funktion aus...
Private Sub öffnen_Click()
Dim varRetVal As Variant
Dim n As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
If IsArray(varRetVal) Then
On Error Resume Next
For n = LBound(varRetVal) To UBound(varRetVal)
Workbooks.Open varRetVal(n)
Next
On Error GoTo 0
End If
End Sub