Datei öffnen

Forumthread: Datei öffnen
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datei öffnen

Datei öffnen

28.10.2004 08:32:03

Stan

Hallo zusammen! Meine Excel Datei überträgt in zwei andere Dateien viele Werte ein. Ich brauche eine Funktion zur Überprüfung, ob die zu öffnende Arbeitsmappe bereits offen ist. Wenn ja, dann abbruch.
Danke im voraus.
Gruß Stan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei öffnen

28.10.2004 10:32:02

wastl
AW: Datei öffnen

28.10.2004 11:17:56

Stan
AW: Datei öffnen

28.10.2004 11:22:26

wastl
AW: Datei öffnen

28.10.2004 13:07:34

Stan
AW: Datei öffnen

28.10.2004 19:50:28

wastl

AW: Datei öffnen

28.10.2004 10:32:02

wastl

tach stan,

Sub suchen()
Dim a
For a = 1 To Workbooks.Count
Workbooks(a).Activate
If Workbooks(a).Name = "test.xls" Then
Exit For
End If
Next
MsgBox "Test.xls nicht gefunden"
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß wastl

AW: Datei öffnen

28.10.2004 11:17:56

Stan

Danke wastl.
Muss ich nicht noch Pfad von der datei eingeben?

AW: Datei öffnen

28.10.2004 11:22:26

wastl

tach stan,
wieso pfad?
offen heißt in aktueller excelinstanz geöffnet!
Wenn ich sie öffent will, brauche ich den Pfad.
das war aber nicht bedingung!
es geht nur zum prüfen ob sie schon offen ist
Gruß wastl

AW: Datei öffnen

28.10.2004 13:07:34

Stan

Du hast schon recht, aber die datei ist nicht auf meinem Rechner sondern im Netzwerk, auf dem Server F:. Ich habe die datei bei mir kopiert und ausprobiert. Ob offen oder nicht bekomme immer die meldung "Datei nicht gefunden"

AW: Datei öffnen

28.10.2004 19:50:28

wastl

Hi stan,
nächster Versuch:

Sub suchen()
Dim a%, b$
For a = 1 To Workbooks.Count
b = Workbooks(a).Name
If b = "Test.xls" Then
    MsgBox "Datei=" & b & "= ist geöffnet"
    Exit Sub
End If
Next
MsgBox "Test.xls nicht gefunden"
End Sub