Prüfen, ob Exceldatei geöffnet ist???

• Prüfen, ob Exceldatei geöffnet ist??? von Jens vom 20.11.2003 15:15:46
  • doppelt oT - von . am 20.11.2003 15:18:28
  • Vielen Dank - von Jens am 20.11.2003 15:41:51
    • AW: Vielen Dank - von Klaus am 20.11.2003 21:07:44

Betrifft: Prüfen, ob Exceldatei geöffnet ist???
von: Jens
Geschrieben am: 20.11.2003 15:15:46
Hallo,

kann mir jemand helfen diesen Code richtig zum Laufen zu bekommen? Es ist eine Abfrage die prüft, ob eine bestimmte Exceldatei schon geöffnet ist. Ist das der Fall, soll ein Makro in dieser Mappe aufgerufen werden. Das klappt soweit auch ganz gut, aber leider nur wenn die Mappe geschlossen ist. Ist sie geöffnet, öffnet er die Mappe erneut und arbeitet nicht mit der bereits geöffneten Mappe weiter.



on error resume next
set oXL = GetObject("Excel.Application")


if oXL = nothing then
Set oXL = CreateObject("Excel.Application")
End if
if not oXl.Application.Workbooks.isOpen("C:\Mappe1_.xls") then
set wbk = oXL.Application.Workbooks.Open("C:\Mappe1_.xls")
else
wbk = oXl.Application.Workbooks("C:\Mappe1_.xls").Activate

end if
oxl.Visible = true
oxl.Run "Main"


Bin dankbar für jede Hilfe
Gruß Jens

Betrifft: doppelt oT
von: .
Geschrieben am: 20.11.2003 15:18:28
.

Betrifft: Vielen Dank
von: Jens
Geschrieben am: 20.11.2003 15:41:51

Betrifft: AW: Vielen Dank
von: Klaus
Geschrieben am: 20.11.2003 21:07:44
Hallo Jens
Die ähnliche Frage hatte ich am 18.11.03, 12:36:13 Uhr gestellt. Schau Dir bitte die Antwort von WernerB an.
Grüße
Klaus

Excel-Beispiele zum Thema " Prüfen, ob Exceldatei geöffnet ist???"
Prüfung, ob eine Arbeitsmappe geöffnet ist	Mehrfachauswahl aus ListBox auslesen
Symbolleiste sichern	Symbolleistenschaltfläche hinzufügen
Dateien listen	Tabellenblattnamen in ein Listenfeld einlesen
Gefilterte Daten in eine ListBox einlesen	Menüleiste wechseln
Prüfung ob ein AddIn intalliert ist