Excel Help

[LurchMan]

Hey everyone -

I'm working on a simple excel script that's going to start Excel, run a macro and wait for the next instance of excel to start. When the next instance starts I want it to close the first one and exit the script.

What I have:

#include <excel.au3>
Opt ("WinTitleMatchMode", 2)

$oExcel = _ExcelBookOpen (@ScriptDir & "\macro.xls", 0)
$oExcel.Run ("Start")

While 1
    Sleep (100)
    If BitAND(WinGetState("Microsoft Excel"), 2) Then
        _ExcelBookClose ($oExcel, 0, 0)
        Exit
    EndIf
WEnd

This works, except it closes the entire excel program (both workbooks) - I only want it to close the first one.

Thanks for any and all help.

[reb]

Hi

instead of

If BitAND(WinGetState("Microsoft Excel"), 2) Then

maybe

If BitAND(WinGetState("Microsoft Excel - macro.xls"), 2) Then

not tested

REB

Edit put in first book name

Edited January 22, 2010 by reb

[zfisherdrums]

LurchMan,

Untested and possibly brittle, but should work in theory. Let me know if it doesn't.

#include <excel.au3>
Opt ("WinTitleMatchMode", 2)

Func GetNumExcelProcess()
    $_aProcesses = ProcessList( "Excel.exe" )
    return $_aProcesses[0][0]
EndFunc

$oExcel = _ExcelBookOpen (@ScriptDir & "\macro.xls", 0)
$oExcel.Run ("Start")

; Establish a baseline number of known Excel processes
$iNumExcelProcess = GetNumExcelProcess()

; Periodically test for changes in the number of Excel processes
While ( $iNumExcelProcess = GetNumExcelProcess() )
    Sleep (100)
WEnd

_ExcelBookClose ($oExcel, 0, 0)
Exit

Zach...

[LurchMan]

Reb - Thank you for your suggestion, I've tried that also but it doesn't close just that window still.

Zach - Thank you for your help I will test it later. It looks like it should work to me.