HERBERS Excel-Forum - die Beispiele

Thema: Prüfung, ob eine Datei im Netz bereits geöffnet ist

Home

Gruppe

Datei

Problem

Es soll festgestellt werden, ob auf eine Netzwerkdatei von einem anderen Anwender zugegriffen wird.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub TestFileOpen()
   Dim iOpen As Integer
   Dim sFile As String
   sFile = InputBox("Path and Filename:", , "c:\test\test.xls")
   If sFile = "" Then Exit Sub
   iOpen = TestOpen(sFile)
   Select Case iOpen
      Case 0: MsgBox "Datei " & sFile & " ist frei"
      Case 1: MsgBox "Datei " & sFile & " ist geöffnet"
      Case 2: MsgBox "Datei " & sFile & " wurde nicht gefunden"
   End Select
End Sub

Private Function TestOpen(sPath As String) As Integer
   If Dir(sPath) = "" Then
      TestOpen = 2
   Else
      On Error GoTo ERRORHANDLER
      Open sPath For Random Access Read Lock Read Write As #1
      Close #1
   End If
ERRORHANDLER:
   If Err = 70 Then TestOpen = 1
End Function

Beiträge aus dem Excel-Forum zu den Themen Datei und Name

Zeilen "Objekt,Name,Name,..." in Paare wandeln Excel/PDF Datei unter bestimmten Pfad abspeichern
Vba: refersToR1C1 Namen erzeugen aus excel Worddatei nach Wert durchsuchen
Spaltenname einer intelligenten Tabelle ändern? Split-Funktion beim Einlesen TXT-Datei
Namensliste 2 mit Formeln ableiten Datei löschen mit unterschiedlichen Zahlen im Name
Datei löschen mit unterschiedlichen Zhalen im Name geöffnete Worddatei und Word aus Excel beenden
Anzeigename aus Outlook-Verteilerliste auslesen Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei Zellen auslesen,wenn im Blattnamen 2019
Mehrere Zellen in mehreren Dateien ersetzen Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren Checkboxen Namen beliebig in eine Zelle schreiben
Namens-Manager Datei langsam durch Formel
Dateien aus Unterordner öffnen Daten import aus txt--Datei
Dateipfad öffnen mit VBA Formel in definierten Namen unabhängig von Tabelle
Namen der Tabellen kopieren Datei-Verknüpfungen
Masterdatei erschaffen? Mehrere Datenblätter als PDF-Datei ausgeben
Makro bei Erstellen einer Datei aus einer Vorlage Zusammenführung aus mehreren Dateien
Wert einer Zelle in Blatt mit diesem Zellennamen Rechteck per Button in andere Datei einfügen.
Alle Dateien in einem Unterordner öffnen VBA: MsgBox: yes/no. Bei yes andere Datei öffnen
Formen in UserForm Namen zuweisen per Makro Mehrere txt Dateien einlesen in ein Programm
VBA Datei als .txt speichern Excel Datei in CSV Datei wandeln mit Extras
aktierten Text in geöffnete Worddatei Spalte in andere Dateien kopieren + zurückkopieren
Aus einer CSV-Datei ein bestimmtes Layout erzeugen Daten ausgew. WS in 2. Datei zusammenführen
Per VBA aktuelle Datei in Autostart-Ordner csv Dateien importieren
Makrodatei als Software hochwertiger gestalten manuelles Speichern bei schreibgeschützter Datei
Daten aus geschlossener Datei in Zieldatei kopiere Namen - Bezüge auf versch. Blätter
Dateinamen per VBA vorgeben (Datum: Vormonat)