Bezug auf offene Mappen trotz variabler Dateinamen
21.02.2005 14:31:14
Flo
ich möchte ein Makro schreiben welches zwischen den offenen Mappen wechselt.
Die Dokumente sollen aus einem Masterdokument heraus geöffnet werden (Button1) und über einen "Button2" soll dann ein weiteres Makro gestartet werden.
Das steckt hinter Button1:
------------------------------
Private Sub importieren_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
------------------------------
klappt auch...
Die Namen der Dokumente die so geöffnet werden haben natürlich auch einen Namen, der Name ist aber unbekannt bzw. soll veränderbar sein. Wie kann ich mich im Makro auf diese Dateien beziehen, deren Namen ich bei programmieren noch nicht kenne und zuvor (s.o.) über einen Button geöffnet wurden. Ich brauch doch die Namen um zwischen den offenen Dokumenten springen zu können...
Kann ich beim Öffene vielleicht jeder der Dateien ein Sysnonym zuordenen?
z.B.: Test1.xls => Dok1
Beispiel.xls => Dok2
Name33.xls => Dok3
und dann schreibe ich im Makro immer nur "Dok1" bzw. "Dok2" usw.
So eine funktion müsste dann doch in mein "Importieren" (s.o.) integriert werden...
Zwischen Mappen mit bekannten Namen springe ich so:
------------------------------
Windows("Test1.xls").Activate
Windows("Beispiel.xls").Activate
------------------------------
Ist das so verständlich was mein Problem ist?!?
Vielen Dank für Hilfe ;-)
MfG
Flo