Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Offenes Programm prüfen

Forumthread: Offenes Programm prüfen

Offenes Programm prüfen
29.06.2004 10:00:37
Rolf
Hi,
In der Recherche habe ich nichts wirklich brauchbares gefunden:
Wie prüfe ich, od ein Programm offen ist, und wenn nicht, wie kann ich es danach öffnen?
Danke für Links oder Antworten
Rolf
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Offenes Programm prüfen
WernerB.
Hallo Rolf,
das geht z.B. mit einem Makro in Verbindung mit einer zugehörigen benutzerdefinierten Funktion.

Function MappeOffen(MappeName As String) As Boolean
Dim StName As String
On Error GoTo Nonexistent
StName = Workbooks(MappeName).Name
MappeOffen = True
Exit Function
Nonexistent:
MappeOffen = False
End Function



Sub DateiZustand()
Dim DatNam As String
DatNam = "MappeA.xls"
If MappeOffen(DatNam) = False Then
ChDir ActiveWorkbook.Path
Workbooks.Open Filename:=dName
End If
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Offenes Programm prüfen
Rolf
Hallo Werner,
Wenn ich das richtig verstanden habe bezieht sich das auf offene Arbeitsmappen. Ich möchte aber Prüfen, ob LotusNotes offen ist.
Geht das nicht irgendwie mit Application=True oder so?
Danke!
Rolf
AW: Offenes Programm prüfen
Uduuh
Hallo,
du könntest das Prog einfach mit AppActivate("Lotus Notes") aktivieren. Wenn es nicht auf ist, gibt es einen Fehler, den du entsprechend behandeln kannst.
Gruß aus'm Pott
Udo
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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