Opening excel document from word

[moontho]

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

 

[SBendBuckeye]

Dim wkb As Workbook

For Each wkb In xlApp.Workbooks
Debug.Print wkb.Name, etc
Next wkb

Use the above as a shell to get what you need. Good Luck!

Have a great day!

j2consulting@yahoo.com