Office: Ausführung von Workbook_Open unterdrücken

Hallo Ransi,

Vielen Dank für Dein Herumprobieren. Ich habe den Code jetzt so probiert, wie Du ihn oben verändert hast. Dabei hängt sich Excel dann auf, mit den Meldung

"MS Excel wartet auf die Beendigung einer OLE-Aktion einer anderen Anwendung."

Daraufhin kann ich Excel nur noch mit Hilfe des Task Managers beenden.

Kann ich dieses Problem noch lösen?

Viele Grüße,

Anne

 

HAllo

Jetzt nähern wir uns dem Punkt wo es ohne die zuöffnende Mappe leider nicht mehr weiter geht...

Hast du noch externe Verknüpfungen in der zuöffnenden MAppe ?
Nachdem ich ein wenig gegoogelt habe kann es sein das das Makro zu schnell ist. Excel sich also selber überholt.

Versuch daher nochmal dies:

With Inst_2
DoEvents
'.Visible = True
.EnableEvents = False
.DisplayAlerts = False
.AskToUpdateLinks = False
Set Quellmappe = .Workbooks.Open(strDatei)


Funktioniert der Code wenn du ihn mit F8 Schritt für Schritt durchblätterst ?

ransi

 

Hallo Ransi,

Wenn ich den Code mit F8 durchgehe ergibt sich eine Fehlermeldung an dieser Stelle:

Code:

Es erscheint die Fehlermeldung: "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht"

Die Variable strDatei ist aber ein String und enthält auch den korrekten Pfad der Datei. Eigentlich müsste das doch funktionieren, oder?

MIt dieser Sache mit der 2. Instanz kenne ich mich leider überhaupt nicht aus, daher kann ich gar nicht einschätzen, ob der Fehler daher kommt...

 

Hallo Anne

Der Code ist korrekt.
Funktioniert denn

Code:

???

Also die Datei in der ersten Instanz öffnen ?
Kannst du mir mal die zuöffnende datei schicken ??

ransi

 

Hallo ransi,

In der ersten Instanz lässt sich die Datei öffnen.

Die zu öffnende Datei kann ich Dir gerne schicken!

Viele Grüße,

Anne

 

Hallo Anne

Schick mal an:
Datenbolizeiätaoldotcom
Ich schau es mir dann mal "live und in Farbe" an.

ransi

 

Super, danke! Ist geschehen!

 

HAllo Anne

Ich habe den Code jetzt einige Male getestet.
In eine leere Mappe reinkopiert und gestartet.
Der Code funktioniert bei mir mit deiner Beispieldatei einwandfrei.

Jetzt kann es eigentlich nur noch sein das deine aufrufende Datei irgendeine Macke hat oder dein Pc dich einfach nicht mag.
Ich weiss nicht mehr weiter, sorry.

ransi

 

Hallo ransi,

Ich habe jetzt das selbe gemacht: Ich habe den Code in eine leere Mappe kopiert und es noch einmal versucht. Es tritt sofort wieder der selbe Fehler auf, den ich oben schon beschrieben habe (Excel wartet auf die Beedingung einer OLE-Aktion einer anderen Anwendung...oder so ähnlich), dann stürzt alles ab.

Eine Idee habe ich noch: Könnte es daran liegen, dass ich mit Excel 2000 arbeite bzw. arbeiten muss?

Viele Grüße,

Anne

 

Moin, Anne,

um auf Deine ursprünglich gestellte Frage zu antworten (Workbook_Open beim Öffnen nicht ausführen lassen) - siehe Workbook öffnen ohne Code auszuführen, nur per VBA durch eine andere Mappe.

Dies funktioniert auch in Excel2000. Wegen Deiner Fehlermeldung solltest Du ggf. bitte einmal unter dem Fragezeichen Erkennen und Reparieren ausführen.

 

Hallo,

ich weiß nicht wie es 2008 war, hatte jetzt aber auch das Probelm, dass ich aus einer Excelmappe Daten von einer anderen nicht geöffneten Excelmappe lesen wollte.

Dabei habe ich dann den Befehl GetObjekt gefunden.

Sub ...

Dim WB as Workbook
Dim Dateiname as String

Dateiname = "C:UsersPeterDocumentsTestmappe.xlsm

Set WB = GetObject(Dateiname)

weiterer Code ....


Mit GetObjekt wird die Mappe unsichtbar geöffnet, dass ist daran zu erkenn, da die Routine Workbook_open durchlaufen wird.

Aber da die Mappe unsichtbar ist hat der Code:

Sheets("Deckblatt").Select
Range("A2").Select

einen Fehler produziert. In der Folge koinnte ich diesen dadurch abfangen indem ich stattdessen:

Application.Goto Worksheets("Deckblatt").Range("A2")

verwendet habe.

Ich wollte nun aber trotzdem wissen, ob und wie sich auch das von dir beschriebene Problem lösen lässt und habe nach der Möglichkeit gesucht, wie ich abfragen kann, ob eine Anwendung sichtbar ist und dabei folgende Möglichkeit gefunden.

Private Sub Workbook_Open()

Dim Text As String

Application.Goto Worksheets("Deckblatt").Range("A2")

If Windows(Me.Name).Visible = False Then
Text = "Mappe ist unsichtbar"
Else
Text = "Mappe ist sichtbar"
End If

End Sub

Weiterhin wollte ich verhindern, dass von meinem Code die unsichtbar geöffente Mappe am Ende geschlossen wird, wenn diese bereits/zufällig geöffnet ist. Und habe dazu den folgenden Code eingefügt.

Dim no_close as string
' Am Ende nicht schließen, wenn bereits offen
For Each excel_File In Workbooks
If excel_File.Name = Then 'Hier Name der Mappe ohne Pfadangabe
no_close = "X"
Exit For
End If
Next

Diese Abfrage muss allerdings vor GetObjekt erfolgen.

Am Ende meines Codes kommt dann:

If no_close = "" Then
WB.Close SaveChanges:=False
End If

Dort wo festgestellt wird, ob die Mappe sichtbar oder unsichtbar ist, da muss dann der Code eingefügt/aufgerufen werden, der eigentlich durchlaufen bzw. nicht durchlaufen werden soll.