Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Prüfen ob Datei bereits offen, dann nichts

VBA-Prüfen ob Datei bereits offen, dann nichts
23.11.2007 17:31:18
Fabio
Hallo zusammen,
ich öffne per VBA-Code verschiedene Dateien - lese Daten aus (etc.etc.)
Mit der Zeile
Workbooks.Open Filename:="D:\Fussball\Tore2006\JugendA.xls"
öffne ich die entsprechende Datei.
Wie es der Zufall will, arbeitet prompt jemand mit dieser Datei - also will ich folgendes erreichen :
  • Prüfe vor dem öffnen der Datei, ob die Datei offen ist

  • Wenn ja - dann mache nichts (=Abbrechen des öffnen) und springe im VBA zum nächsten "Workbooks.Open-Befehl" (und mache da die selbe Prüfung)
  • Wenn nicht geöffnet, dann setze die Prozedur fort

    • Wer weiß da Rat ?
    Danke!
    Fabio

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: VBA-Prüfen ob Datei bereits offen, dann nichts
    23.11.2007 18:03:12
    Josef
    Hallo Fabio,
    eine Möglichkeit.
    ' **********************************************************************
    ' Modul: Modul1 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 Binary 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 nn()
    Dim strFile As String

    strFile = "D:\Fussball\Tore2006\JugendA.xls"

    If FileStatus(strFile) = XL_CLOSED Then
        Workbooks.Open Filename:=strFile
    End If

    End Sub

    Gruß Sepp

    Anzeige
    AW: VBA-Prüfen ob Datei bereits offen, dann nichts
    24.11.2007 10:26:00
    Fabio
    Servus Sepp,
    das teste ich mal und versuche das einzubauen. Sei erstmal bedankt (!)
    Fabio

    8 Forumthreads zu ähnlichen Themen

    Sorry...Prüfen, ob Datei schon geöffnet
    Werner

    Hallo,
    Ich möchte prüfen, ob dieses Workbook bereits geöffnet wurde. Ich weiß, diese Thema wurde bis zur Erschöpfung behandelt, aber ich schaffe es einfach nicht.
    Im Workbook_Open soll folgendes passieren:

    Vor dem Öffnen soll geprüft werden, ob diese Datei bereits geöffnet ist....
    27.02.2011 14:58:09
    Thread-ID: 1203185
    7 Beiträge
    Anzeige
    Prüfen, ob Datei geöffnet (asugeblendet) ist
    Dieter(Drummer)

    Guten Morgen, VBA Spezialisten,
    ich möchte prüfen, ob Datei "RechnerMx.xlsm" bereits geöffnet (ausgeblendet) ist.Wenn ja, dann weiter im Makro mit "Call Appliction …"., wenn nein Datei "RechnerMx.xlsm" öffnen und ausblenden und dann weiter im Makro:
    Mein Makro:
    Sub MxReStart() Wo...
    15.11.2015 09:09:11
    Thread-ID: 1458417
    14 Beiträge
    Prüfen ob Datei bereits geöffnet
    Nicolai

    Hallo zusammen,
    ich hatte hier vor kurzem von ChrisL diesen Code bekommen, leider war der Thread nicht mehr offen, aber ich hatte nun noch eine Frage:
    Hier der Link zum Archiv-Thread:
    https://www.herber.de/forum/archiv/1468to1472/t1470348.htm
    Sub t() Dim WB1 As Workbook, WB2...
    25.02.2016 14:08:43
    Thread-ID: 1478072
    4 Beiträge
    Anzeige
    VBA Prüfen ob Datei in Ordner
    Fritz_W
    Hallo Forumsbesucher,
    benötige wieder einmal die Hilfe der VBA-Kundigen wie folgt.
    Ich möchte erreichen, dass wenn in der Zelle die Datei mit exakt der Dateibezeichnung aus G1 der Tabelle1 sich im in G2 (Tabelle1) enthaltenen Ordner, ein Makro ausgeführt wird.
    Für eure Hilfe besten Dank...
    08.07.2021 17:25:40
    Thread-ID: 1838355
    7 Beiträge
    Prüfen ob Datei geöffnet und schließen
    Martin
    Hallo liebes Forum =)
    gibt es eine Funktion, wie ich prüfen kann, ob ich eine Datei Filename ="test.xlsb" offen habe und diese dann ggf. ohne zu speichern schließen kann?
    Ich versuche mir gerade dadurch zu helfen, dass ich die Strings Filename, Tabname und ControlFile (datei mit Makro) fülle...
    14.07.2021 18:12:00
    Thread-ID: 1839138
    4 Beiträge
    VBA - Prüfen ob Datei geöffnet ist
    Manu
    Hallo,
    ich habe folgendes Problem und komme nicht ganz auf die Lösung:
    Ich möchte per VBA prüfen ob eine Datei bereits geöffnet ist -
    1. wenn von einem anderen User geöffnet (also schreibgeschützt), dann Fehlermeldung (MsgBox)
    2. wenn diese von mir geöffnet ist - dann Daten in diese...
    09.11.2022 10:30:00
    Thread-ID: 1906409
    5 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    6
    3
    13
    3
    3
    6
    3
    4