Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Welche Arbeitsmappen sind im Unterverz. geöffnet

Forumthread: Welche Arbeitsmappen sind im Unterverz. geöffnet

Welche Arbeitsmappen sind im Unterverz. geöffnet
25.11.2002 12:19:13
Johannes
Hallo,

wie frage ich ab, welche Arbeitsmappen, die in einem bestimmten Unterverzeichnis liegen, geöffnet sind?

Danke

Johannes

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Welche Arbeitsmappen sind im Unterverz. geöffnet
25.11.2002 20:51:36
Nepumuk
Hallo Johannes,
mit diesem Code:

Option Explicit
Sub DateiZustand()
Dim Pfad As String, FSEObjekt As Object, index1 As Single
Pfad = "D:\Eigene Dateien\Eigene Tabellen\" ' hier deinen Pfad eingeben
Set FSEObjekt = Application.FileSearch
With FSEObjekt
.NewSearch
.LookIn = Pfad
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*.xls"
If .Execute > 0 Then
For index1 = 1 To .FoundFiles.Count
If Not DateiIstFrei(.FoundFiles(index1)) Then
MsgBox "Datei " & .FoundFiles(index1) & " ist bereits geöffnet !"
End If
Next index1
End If
End With
End Sub
Function DateiIstFrei(sDateiname As String) As Boolean
Dim hFile As Integer
On Error Resume Next
hFile = FreeFile()
Open sDateiname For Random Access Read Lock Read Write As #hFile
If Err Then
DateiIstFrei = False
Else
DateiIstFrei = True
End If
Close #hFile
End Function

Gruß
Nepumuk

Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige