How to Test if an Excel File open in a script

[Mabel]

How can I check if the Excel file is open for editing from a script?

I have a script that runs a PowerPoint presentation.

Powerpoint at some point in the script opens, and updates the links in it (the source data is an Excel Spreadsheet)

Now if the source Excel file is open for editing by someone then PowerPoint can’t update the links and the script gets confused.

How can I check if the Excel file is open from the script and thus make the script to tell Powerpoint not to update?

Thanks

Mabel

[colt]

Do a fileMove on the excel file. If errorlevel is > 0 then you could assume that it failed because it is open.

[Mabel]

thank you

i will give that a go

[Mabel]

thanks that works.

pity there wasn't a is file open function.

thanks again

[tmplinshi]

Code: Select all

IsFileInUse(FileName) {
	return FileExist(FileName) && !FileOpen(FileName, "rw")
}

[TLM]

slightly clunky excel com object approach...

Code: Select all

wb := A_Desktop "\Book1.xlsx"

if ( IsWorkbookOpen( wb ) = true )
{
	msgbox workbook is open!
	return	
}

IsWorkbookOpen( wb )
{
	xlObj 		:= ComObjCreate( "Excel.Application" ), xlObj.WorkBooks.Open( wb )
	ReadOnly 	:= xlObj.ActiveWorkbook.ReadOnly, xlObj.Quit
	return !ReadOnly ? 0 : 1
}

folded

Code: Select all

IsWorkbookOpen(wb)
{
	return (a:=[(o:=ComObjCreate("Excel.Application")).WorkBooks.Open(wb),o.ActiveWorkbook.ReadOnly,o.Quit]).2?1:0,a.3
}

tested/works here..

[Mabel]

thank you.

I was searching for things like file open and other things with open in the title.

i didn't think about using the "use"

silly me.

i will follow through on the way the function works. thanks

still at the start of the learning curve.

thanks for the help