Office: (Office 2016) Excel im Vordergrund öffnen

Für den Daten-Export öffne ich eine Excel Mappe.

Der folgende Code funktioniert einwandfrei, Excel wird im Vordergrund angezeigt. Führe ich denselben Code mit Access 2010 aus, funktioniert "AppActivate .Caption" nicht.

Private Sub Befehl11_Click()

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject("Excel.Application")

With xlApp
.Visible = True
.WindowState = 3 'im Vollbild anzeigen
AppActivate .Caption 'in den Vordergrund stellen

Set xlBook = .Workbooks.Add
End With

End Sub

Kann mir jemand helfen, Excel im Vordergrund anzuzeigen?

Besten Dank und Gruss Martin

:)

 

Welches Dateiformat?
Nur deshalb weil beim Kompatibilitätsmodus stimmt caption nicht überein.
Prüf also mal ob Caption mit der Überschrift wirklich zusammenstimmt.
LG Markus


Edit:
Sicherer geht das ganze über API Aufruf.
Hier gibts Beispiele und Möglichkeiten die du in Access direkt nicht hast.

 

Danke Markus

Das Format ist .xlsx

Müsste das nicht auch ohne "Caption" funktionieren? Nur mit "AppActivate" bekomme ich es auch nicht hin.

Für den Einbau deiner Beispiele fehlt mir die Erfahrung.

Gruss Martin

 

Also ich habs kurz getestet.
Ehrlich gesagt wird das bei mir immer angezeigt, egal ob mit oder ohne AppActivate.

/Edit:
Hab mit Office 2007 getestet

LG Markus

 

Bei mir funktioniert es ohne AppActivate nur manchmal, meist erscheint dann Excel nur unten in der Taskleiste.

Gruss Martin

 

Bringt dir zwar nichts, aber ich kann das Verhalten ab Access 2010 bestätigen. Habe mehrere Projekte in denen entweder ein Excel-Export stattfindet oder ein Word-Serienbrief gedruckt wird. Bis 2007 erschienen die Fenster noch alle im Vordergrund, ab 2010 nicht mehr. Zumindest nicht ohne die API - Lösungen.

Andererseits sind Fenster, die sich ungefragt in den Vordergrund drängen (könnte man auch als Pop-Up bezeichnen) ja eigentlich auch sowas von 90er Jahre *wink.gif*