I'm opening a series of excel files using the code below
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Open("L:\Shared\CCFP\FACTS&BR\Offwork.xls")
Set xlWB = xlApp.Workbooks.Open("L:\Shared\CCFP\FACTS&BR\Onwork.xls")
Set xlWB = xlApp.Workbooks.Open("L:\Shared\CCFP\FACTS&BR\Chartswork.xls")
Is there a way i can have the code check if the files are already open? and if they are to only open the above that are not already open?
Many thanks
Thom
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Open("L:\Shared\CCFP\FACTS&BR\Offwork.xls")
Set xlWB = xlApp.Workbooks.Open("L:\Shared\CCFP\FACTS&BR\Onwork.xls")
Set xlWB = xlApp.Workbooks.Open("L:\Shared\CCFP\FACTS&BR\Chartswork.xls")
Is there a way i can have the code check if the files are already open? and if they are to only open the above that are not already open?
Many thanks
Thom