Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Workbooks.Open

Forumthread: Workbooks.Open

Workbooks.Open
11.06.2003 11:25:09
EL
Hallo zusammen!
(Worksbook.Open......)
überspringen Workbooks.Open Filename:="\....." wenn die arbeitsmappe schon offen.
ich offne mit Kakro eine arbeitsmappe , nun fall is bereits offen
kommt Meldung: Arbeitsmappe1.xls . ist bereits geöffnet,wenn Sie erneutöffnen,..........
JA ....OK
Nein .... Laufzeitfehler 1004.
----
----
Workbooks.Open Filename:="\\Fibuserver\G_B\ECS\Daten.xls"
----
----
Gruß
EL

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Workbooks.Open
11.06.2003 11:41:32
Nepumuk

Hallo El,
so geht's:

Dim Arbeitsmappe As Workbook, gefunden As Boolean
For Each Arbeitsmappe In Workbooks
If LCase(Arbeitsmappe.Name) = "daten.xls" Then gefunden = True: Exit For
Next Arbeitsmappe
If Not gefunden Then Workbooks.Open Filename:="\\Fibuserver\G_B\ECS\Daten.xls"

Gruß
Nepumuk

Anzeige
Re: Workbooks.Open
11.06.2003 13:18:10
EL

Hallo Nepumuk!
Super es Funktioniert!
nun Andere Frage!
wie kann ich beim schließen ein Userform mit einfach auf x schliessen eine bestimmte arbeitsmappe schließen.
Gruß
EL

Re: Workbooks.Open
11.06.2003 13:38:47
Knut

Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Workbooks("DeinWorkbook.xls").Close False
End Sub

...oder True, wenn gespeichert werden soll.

Knut

Anzeige
Re: Workbooks.Open
11.06.2003 14:41:23
EL

HALLO Knut!
Es Funtioniert super
Danke euch Alle!
Gruß
EL

;

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