Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

wenn datei vorhanden, dann...

Forumthread: wenn datei vorhanden, dann...

wenn datei vorhanden, dann...
04.11.2002 21:11:45
andreas
hallo forum,
wie kann man das lösen?

nachdem die datei xls geöffnet ist, soll
ein makro aufgerufen werden:

check ob datei mappe.doc bereits offen.
wenn doc offen,
dann msgbox "doc ist offen" ([ok], nicht mappe.xls öffnen) sonst
msgbox "doc ist nicht offen" ([ja/nein], soll geöffnet werden?)

also, wenn doc offen, dann
datei mappe.xls nicht öffnen.

danke an euch
gruss


Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: wenn datei vorhanden, dann...
04.11.2002 21:43:55
josef
hmm, versteh zwar den ganzen ablauf wie und wann du mit welcher datei was öffnen willst nicht so recht, ich geb dir aber einen code, mit dem du abfragen kannst, ob eine bestimmte dateie bereits geöffnet ist. der entsprechende "umbau" sollte kein problem sein. mir scheint das wichtigste, die abfrage nach der datei ob offen oder nicht.

Function isfileinuse(tFileName As String) As Boolean
On Error Resume Next

Dim hFile As Long

hFile = FreeFile()

Open tFileName For Random Access Read Lock Read Write As #hFile
isfileinuse = Err.Number <> 0
Close #hFile

End Function
Sub dateiinfo()

If isfileinuse("c:\myself\Ablage1\meine testdatei.doc") = True Then
Call MsgBox("Datei bereits geöffnet!", vbCritical)
Else
If isfileinuse("c:\myself\Ablage1\meine testdatei.doc") = False Then MsgBox ("Datei nicht geöffnet")
End If

End Sub

Anzeige
läuft leider nicht
04.11.2002 21:57:34
andreas
obwohl ich es angepasst habe
(pfad+datename)
kannst du nochmal schauen
dank
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige