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

Status einer geöffneten Datei abfragen

Status einer geöffneten Datei abfragen
27.11.2007 15:47:23
Richard
S.g. Forum,
ich öffne über VBA eine (EXCEL-) Datei (und bearbeite diese danach mit VBA weiter).
Da es Dateien auf einem "share" sind, können auch andere Kollegen diese Datei öffnen, d.h. ich benötige die Information, ob diese gerade schreibberechtigt bearbeitet werden kann oder (zum altuellen Zeitpunkt) nur leseberechtigt ist.
Wie kann ich zu diesem Zweck eruieren, welchen Status diese geöffnete Datei gerade hat?
Kann mir jemand helfen?
Danke für eine Antwort,
Richard aus Graz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Status einer geöffneten Datei abfragen
27.11.2007 15:51:36
Savi
Sub TestFileOpen()
Dim iOpen As Integer
Dim sFile As String
sFile = Range("A1").Value
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


Zelle A1 kompletter Dateipfad mit Dateinamen

Anzeige
Danke
27.11.2007 16:04:45
Richard
Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige