Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei nur einmal öffnen

Datei nur einmal öffnen
06.08.2007 12:19:00
mtremer
Liebe Excel-Freunde,
ich habe in einer Datei einen Code eingebaut, der eine andere Datei öffnet.
Allerdings haben auf die Ausgangsdatei mehrere Personen zugriff, die diese Datei mehrmals öffnen können.
Die Zieldatei soll aber nur einmal geöffnet werden.
Da keine Meldung erfolgt, dass die Zieldatei bereits offen ist, muss Excel die Prüfung übernehmen.
Wie kann ich das machen?
Danke.
Viele Grüße
Marco

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei nur einmal öffnen
06.08.2007 12:27:00
Ramses
Hallo
probier mal ob das schon reicht
Sub TestFileOpen()
    Dim isOpen As Integer
    Dim strFile As String
    strFile = Application.GetOpenFilename("EXCEL Files *.xls, *.xls")
    If strFile = "" Then Exit Sub
    isOpen = TestOpen(strFile)
    Select Case isOpen
        Case 0: MsgBox "Datei " & strFile & " ist frei"
        Case 1: MsgBox "Datei " & strFile & " ist geöffnet"
        Case 2: MsgBox "Datei " & strFile & " wurde nicht gefunden"
    End Select
End Sub


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

Gruss Rainer

Anzeige
AW: Datei nur einmal öffnen
06.08.2007 13:59:00
mtremer
Hallo Rainer,
danke für Deine schnelle Antwort.
Nur klappt es nicht so, wie ich mir das vorgestellt habe.
Wir haben das mal getestet: zuerst ging es bei einem, bei dem anderen aber nicht. Dann kommt die Meldung gar nicht mehr. Nur noch beim Speichern der Zieldatei fragt er, ob die Datei ersetz werden soll.
Aber sie soll gar nicht erst aufgehen, sondern mit der MsgBox gesperrt werden.
Liegt das vielleicht an der Funktion TestOpen?
Viele Grüße
Marco

AW: Datei nur einmal öffnen
06.08.2007 13:59:46
mtremer
Hallo Rainer,
danke für Deine schnelle Antwort.
Nur klappt es nicht so, wie ich mir das vorgestellt habe.
Wir haben das mal getestet: zuerst ging es bei einem, bei dem anderen aber nicht. Dann kommt die Meldung gar nicht mehr. Nur noch beim Speichern der Zieldatei fragt er, ob die Datei ersetz werden soll.
Aber sie soll gar nicht erst aufgehen, sondern mit der MsgBox gesperrt werden.
Liegt das vielleicht an der Funktion TestOpen?
Viele Grüße
Marco

Anzeige
Problem gelöst - Danke
06.08.2007 14:33:07
mtremer
man muss ja nur nichtig lesen können ;-)
Mein Problem hatte sich danach von selbst gelöst...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige