Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen

Forumthread: Dateinamen

Dateinamen
02.02.2006 08:51:48
Stefan
Hallo,
wie kann ich die Dateinamen aller geöfneter Exceldateien feststellen und an Variablen übergeben (max. 10 Dateien)
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen
02.02.2006 09:05:37
Matthias
Hallo Stefan,

Sub Geoeffnet()
Dim wb As Workbook
For Each wb In Workbooks
MsgBox wb.Name
Next wb
End Sub

Offen ist noch, wie du die Liste übergeben willst.
Gruß Matthias
AW: Dateinamen
02.02.2006 09:51:37
Stefan
Hallo Matthias,
erstmal vielen dank.
Das einlesen klappt und die übergabe funktioniert auch.
Ist bestimmt nicht die elganteste Lösung aber bei max.
10 Dateien machbar.
Kann man das ganze auch auf eingeblendete Dateien beschränken ?
Gruß Stefan

Sub test()
Dim NAME1 As String
Dim NAME2 As String
Dim NAME3 As String
Dim i As Byte
Dim wb As Workbook
i = 1
For Each wb In Workbooks
MsgBox wb.NAME
If i = 1 Then
NAME1 = wb.NAME
ElseIf i = 2 Then NAME2 = wb.NAME
ElseIf i = 3 Then NAME3 = wb.NAME
End If
i = i + 1
Next wb
End Sub

Anzeige
AW: Dateinamen
02.02.2006 10:07:14
Matthias
Hallo Stefan,
teste mal dies:

Function WBOffen()
Dim wb As Workbook, wn As Window
Dim vis As Boolean
Dim ListeString As String
For Each wb In Workbooks
vis = False
For Each wn In wb.Windows
If wn.Visible Then vis = True: Exit For
Next wn
If vis Then ListeString = ListeString & wb.Name & "\"
Next wb
If Len(ListeString) > 0 Then
ListeString = Left(ListeString, Len(ListeString) - 1)
End If
WBOffen = Split(ListeString, "\")
End Function
Sub test()
Dim liste
Dim i  As Integer
liste = WBOffen
If UBound(liste) = -1 Then
MsgBox "Keine Mappen sichtbar!"
End If
For i = 0 To UBound(liste)
MsgBox liste(i)
Next i
End Sub

Die Funktion WBOffen() gibt ein Array der geöffneten (und sichtbaren) Mappen zurück.
Die Prozedur Test() ist für Demonstrationszwecke.
Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige