Wie öffne ich Excel auf Vordergrund in VBA mit Powerpoint

Question

Ich versuche, eine Excel-Datei in einer PowerPoint-Präsentation zu öffnen. dies ist mein Code:

Sub diversestickersKoole() 

Dim xlApp As Object 
Dim xlWorkBook As Object 

Set xlApp = CreateObject("Excel.Application") 

xlApp.Visible = True 
Set xlWorkBook = xlApp.Workbooks.Open("V:\Oliedocs\Koole\Stickers Scheepstanks Koole.xltm", True, False) 

Set xlApp = Nothing  
Set xlWorkBook = Nothing 
End Sub 

die Excel-Datei im Hintergrund öffnen. das muss im Vordergrund stehen.

kann mir jemand helfen?

Answer 1

Das Hinzufügen der Zeile xlWorkBook.Activate sollte ausreichen.

Der Code sollte wie folgt aussehen:

Sub diversestickersKoole() 

Dim xlApp As Object 
Dim xlWorkBook As Object 

Set xlApp = CreateObject("Excel.Application") 

xlApp.Visible = True 
Set xlWorkBook = xlApp.Workbooks.Open("V:\Oliedocs\Koole\Stickers Scheepstanks Koole.xltm", True, False) 

xlWorkBook.Activate 

Set xlApp = Nothing 

Set xlWorkBook = Nothing 


End Function 

Für Referenzen:

https://www.mrexcel.com/forum/excel-questions/670476-excel-visual-basic-applications-test-if-workbook-open-if-so-bring-front.html

Post # 4

Answer 2

Sie AppActivate verwenden können.

Der folgende Code verwendet „test.xlsx - Excel, da dies die Beschriftung meiner Test Arbeitsmappe ist

Aufkleber Scheepstanks Koole.xltm -. Excel sollte für Sie

Sub diversestickersKoole() 

Dim xlApp As Object 
Dim xlWorkBook As Object 

Set xlApp = CreateObject("Excel.Application") 

xlApp.Visible = True 
'Set xlWorkBook = xlApp.Workbooks.Open("V:\Oliedocs\Koole\Stickers Scheepstanks Koole.xltm", True, False) 
Set xlWorkBook = xlApp.Workbooks.Open("C:\temp\test.xlsx", True, False) 
AppActivate "test.xlsx - Excel" 

Set xlApp = Nothing 

Set xlWorkBook = Nothing 

End Sub 

Answer 3

arbeiten Da Sie nicht daran interessiert zu sein scheinen, Excel-Objekte und die davon abgeleiteten Objekte zu behalten, möchten Sie möglicherweise den folgenden Code verwenden: