Aus einer Exceldatei eine andere Datei aufrufen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Dieter
Versuch es mal mit diesem VBA-Code:

Sub FileOpen()
    Dim liSuche As Integer, lboZeiger As Boolean
    For liSuche = 1 To Workbooks.Count
        'für "DeineDatei.xls" musst Du den Dateinamen der Datei eintragen, dessen Name geprüft werden soll
        If Workbooks(liSuche).Name = "DeineDatei.xls" Then
            lboZeiger = True
            Exit For
        End If
    Next

        If lboZeiger = True Then
                lboZeiger = False
                'auch hier musst Du wieder den entsprechenden Dateinamen eintragen, damit die richtige Datei ungespeichert geschlossen wird
                Workbooks("DeineDatei.xls").Close savechanges:=False
            Else
                'zum schreibgeschützten Öffnen der Datei musst Du zusätzlich den richtigen Speicherpfad eintragen
                Workbooks.Open Filename:="Pfad\DeineDatei.xls", ReadOnly:=True
        End If

End Sub

Dieser Code arbeitet wie ein Schalter.
Zuerst wird geprüft, ob die Datei, um die es geht, schon geöffnet ist.
Wenn Ja, wird sie ohne zu speichern geschlossen.
Wenn Nein, dann wird die Datei schreibgeschützt geöffnet.
Konnte ich helfen?
Ciao
Thorsten

Hi Dieter
Eigentlich sollte alles funktionieren, ohne dass Du beim Arbeiten mit den Dateien auf etwas achten musst.
Für das Öffnen oder Schließen der Datei ist dieser Code-Block "zuständig".


If lboZeiger = True Then
lboZeiger = False
'auch hier musst Du wieder den entsprechenden Dateinamen eintragen, damit die richtige Datei ungespeichert geschlossen wird
Workbooks("DeineDatei.xls").Close savechanges:=False
Else
'zum schreibgeschützten Öffnen der Datei musst Du zusätzlich den richtigen Speicherpfad eintragen
Workbooks.Open Filename:="Pfad\DeineDatei.xls", ReadOnly:=True
End If

Wenn die Variable lboZeiger den Wert TRUE hat, dann wird die Datei, dessen Name Du natürlich richtig eingetragen haben musst (Groß-/Kleinschreibung beachten!), ungespeichert wieder geschlossen.
Wenn die Variable lboZeiger den Wert FALSE hat, wird die Datei schreibgeschützt geöffnet.
Bei mir hat es jedenfalls funktioniert.
Was genau passiert denn, wenn Du den Code startest, wenn die Datei nicht geöffnet ist?
Über den Debugger im VBA-Editor kannst Du den Ablauf Schritt-für-Schritt verfolgen und auch die Rückgabewerte überprüfen bzw anzeigen lassen.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Aus einer Exceldatei eine andere Datei aufrufen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus einer Exceldatei eine andere Datei aufrufen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread