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

Exceldateinen in Verzeichnis prüfen ob geöffnet

Forumthread: Exceldateinen in Verzeichnis prüfen ob geöffnet

Exceldateinen in Verzeichnis prüfen ob geöffnet
Timo
Hallo zusammen,
ich habe ein Problem beim Prüfen von Dateien, ob diese bereits im Netzwerk geöffnet sind.
Ausgangssituation:
Es gibt im Netzwerk einen Ordner, auf den jeder Benutzer Zugriff hat.
In diesem Ordner liegen eine variable Anzahl von Excel Dateien.
Ich habe auf meinem Rechner eine Exceldatei, in der verschiedene Daten aus den Dateinen im Netzwerkordner eingelesen werden.
Nun möchte ich vor dem Einlesen der Daten prüfen, ob ein Benutzer gerade eine oder mehrere Dateien aus dem Netzwerkordner geöffnet hat. Wenn dies der Fall ist, soll eine entsprechende Msgbox erscheinen.
Ich habe schon im Forum gesucht, finde aber immer nur die Möglichkeit zu prüfen, ob eine bestimmte Datei geöffnet ist.
Ich hoffe Ihr könnt mir helfen...
Gruß Timo
Anzeige
AW: Exceldateinen in Verzeichnis prüfen ob geöffnet
04.06.2010 13:34:32
Ramses
Hallo
"...ob eine bestimmte Datei geöffnet ist..."
Was anderes kannst du auch nicht prüfen. Jede Datei die dich betrifft musst du entsprechend abfragen.
Grus Rainer
AW: Exceldateinen in Verzeichnis prüfen ob geöffnet
04.06.2010 13:41:34
Timo
Ja, aber kann man das nicht irgendwie mit einer Schleife machen, dass man z.B. alle Dateinamen aus dem Verzeichnis einliest und dann alle Dateinamen anhand dieser Liste prüft...
Gruß Timo
Anzeige
AW: Exceldateinen in Verzeichnis prüfen ob geöffnet
04.06.2010 21:30:19
Josef

Hallo Timo,
eine Möglichkeit.

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Enum XL_FILESTATUS
  XL_UNDEFINED = -1
  XL_CLOSED
  XL_OPEN
  XL_DONTEXIST
End Enum

Public Function FileStatus(xlFile As String) As XL_FILESTATUS
  
  On Error Resume Next
  
  Dim File%: File = FreeFile
  
  Err.Clear
  
  Open xlFile For Input Access Read Lock Read As #File
  Close #File
  
  Select Case Err.Number
    Case 0: FileStatus = XL_CLOSED
    Case 70: FileStatus = XL_OPEN
    Case 76: FileStatus = XL_DONTEXIST
    Case Else: FileStatus = XL_UNDEFINED
  End Select
  
End Function

Sub checkFiles()
  Dim strPath As String, strFile As String
  Dim strFileList(2) As String, strMsg As String
  Dim vntRet As Variant
  
  'Die zu prüfenden Dateien - Anpassen!
  strFileList(0) = "Datei1.xls"
  strFileList(1) = "Datei2.xls"
  strFileList(2) = "Datei3.xls"
  
  strPath = "C:\DeinOrdner" 'Zu prüfendes Verzeichnis - Anpassen!
  
  strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
  
  strFile = Dir(strPath & "*.xls*")
  
  Do While strFile <> ""
    vntRet = Application.Match(strFile, strFileList, 0)
    If IsNumeric(vntRet) Then
      If FileStatus(strPath & strFile) = XL_OPEN Then
        strMsg = strMsg & strFile & vbLf & vbTab
      End If
    End If
    strFile = Dir
  Loop
  
  If Len(strMsg) Then
    MsgBox "Folgende Dateien sind zur Zeit in gebrauch!" & vbLf & vbLf & _
      vbTab & strMsg, vbInformation, "CheckFiles"
  Else
    MsgBox "Alle Dateien sind zur Zeit geschlossen!", vbInformation, "CheckFiles"
  End If
End Sub

Gruß Sepp

Anzeige
AW: Exceldateinen in Verzeichnis prüfen ob geöffnet
10.06.2010 11:44:55
Timo
Hallo Sepp,
danke für Deine Antwort.
Deine Variante ist nur für mich bisschen ungünstig, weil die zu prüfenden Dateien mit in den Code geschrieben werden müssen. Die Anzahl der Dateinen ändert sich ständig. (zwischen 80 und 100 Dateien)
Ich habe mir inzwischen selbst etwas zusammengebastelt, was alle im Verzeichnis vorhandenen Exceldateien automatisch prüft.
Gruß Timo
Anzeige
AW: Exceldateinen in Verzeichnis prüfen ob geöffnet
10.06.2010 11:47:48
Timo
Hallo Sepp,
danke für Deine Antwort.
Deine Variante ist nur für mich bisschen ungünstig, weil die zu prüfenden Dateien mit in den Code geschrieben werden müssen. Die Anzahl der Dateinen ändert sich ständig. (zwischen 80 und 100 Dateien)
Ich habe mir inzwischen selbst etwas zusammengebastelt, was alle im Verzeichnis vorhandenen Exceldateien automatisch prüft.
Gruß Timo
Anzeige

Beliebteste Forumthreads (12 Monate)

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