VBScript - Activating an Excel Window Already Opened?

[MEUserII]

I am trying to write a VBScript (.vbs file) that will allow me to activate the current Excel window opened which is just the default "Book1" window after clicking "Blank Workbook" after opening Excel 2016 running on my Windows 10 PC, and activate that Window by bringing it on top (like as if I clicked on that window).

So, far I have only the following VBScript code:

CreateObject("Wscript.Shell").AppActivate GetObject(, "Excel.Application").Name

Which I was able to create from the Microsoft Support Documentation here: https://support.microsoft.com/en-us...eobject-behavior-of-office-automation-servers

However, I believe my above code doesn't work because it just retrieves "Microsoft Excel" for the name of the window instead of "Book1" as shown below using MessageBox in VBScript to see the output.

Dim ABCD
WScript.Sleep (1*1000)
ABCD=MsgBox(GetObject(, "Excel.Application").Name, 1, "MACRO STATUS")

So, how would I be able to activate this instance of Excel by retrieving the name "Book1"?
I want to know how to retrieve the window name of the Excel window that is open (for any Excel window open) for using with AppActivate that way I can generalize this code to working with any given already open Excel windows instead of always manually entering the window name, like entering "Book1" in the VBScript example below:

CreateObject("Wscript.Shell").AppActivate("Book1")

 

[Jaafar Tribak]

Will there be only one instance of excel opened at a time or more ?

 

[Jaafar Tribak]

I have just tested your code and it worked fine for activating the current and only running excel instance with book1 in it.

[COLOR=#574123]CreateObject("Wscript.Shell").AppActivate GetObject(, "Excel.Application").Name[/COLOR]

 

[ZVI]

Hi,
Using .Caption instead of .Name is more correct for different language localizations.
In the below code maximizing of the Excel main window is also applied for the case it is in the minimized state.

Const xlMaximized = -4137
Dim XL
Set XL = GetObject(, "Excel.Application")
XL.Windows(1).WindowState = xlMaximized
CreateObject("Wscript.Shell").AppActivate XL.Caption

 

[Jaafar Tribak]

@ ZVI

Hi vladimir,

Does that work for you when the excel application is minimized to the taskbar ?

Regards.

 

[ZVI]

Hi Jaafar,

Yes it works regardles Excel (2016 64bit, Win10) application is minimized or not.
May be excluding of .Windows(1) is more correct: XL.WindowState = xlMaximized

Vlad

 

[Jaafar Tribak]

Hi Jaafar,

Yes it works regardles Excel (2016 64bit, Win10) application is minimized or not.
May be excluding of .Windows(1) is more correct: XL.WindowState = xlMaximized

Vlad

Thank you .

XL.WindowState=xlMaximized worked perfectly.