Checking To See If Excel Is Already Open

[HaydenMB]

Hi,

I have written some code that takes a template spreadsheet, populates it with required data and then automatically emails it to the Supplier.

The problem I have is that if the user has another excel spreadsheet open it always uses this as the template and not the file.

What I would like to know is how do I check that an Excel Application is already running so I can inform the user and exit the sub.

I am using the following to open the template if this is any help to you.
[red]
Set wsXL = appXL.Workbooks.Open(strTemplate)
[/red]
You help will be greatly appreciated

Keep Right On…
HM-B

 

[KenReay]

Hi

I think you need something like

Set oXl = GetObject(, "Excel.Application&quot
oXl.Visible = False
oXl.Workbooks.Open (strTemplatePath & strTemplateName)

and trap error so:
Select Case Err.Number
Case 429
Set oXl = CreateObject("Excel.Application&quot
Resume Next


Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK