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

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)

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige