application.visible problem

[Pierre via OfficeKB.com]

Hi,

My application is not visible because the application works entirely within a
userform.
However if an error occurs, the userform is shut down and i see nothing
anymore...

is there a way to have excel reappear when an error appears at any time ?

or is there a key combination to have excel reappear after my application is
closed ?

Thanks,
Pierre

 

[Bob Phillips]

Pierre,

How are you handling the errors? Do you trap them, or do they just bomb?

Are you minimizing Excel?

Any code you can share?

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Ken Macksey]

Hi

Put this vbscript on your desktop and just doubleclick it and excel should
re-appear.
Create the file with notepad and name it "Activate Excel.vbs" and save it.



Dim objXL
Dim strMessage

On Error Resume Next

' Try to grab a running instance of
' Excel...
Set objXL = GetObject(, "Excel.Application")

' What did we find?..
If Not TypeName(objXL) = "Empty" Then
strMessage = "Excel Running."
Else
strMessage = "Excel Not Running."
End If

' Feedback to user...
MsgBox strMessage, vbInformation, "Excel Status"

' Make the Excel instance visible
' if we found one
if strMessage = "Excel Running." then _
objXL.Visible = true



Also, in your before_close code and any error trap, put

Application.Visible = true

HTH

Ken

 

[Pierre via OfficeKB.com]

Hi bob,

i'am using

application.visible = false
error handling : they just bomb...

My code is very large (over 1000 lines) and put in many macro's so hard to
display here...
thanks,Pierre

Pierre,

How are you handling the errors? Do you trap them, or do they just bomb?

Are you minimizing Excel?

Any code you can share?

Hi,

[quoted text clipped - 10 lines]

Thanks,
Pierre

 

[Pierre via OfficeKB.com]

Hi Ken,

This works fine but:

if there are two execl instances running, how can i get the one that has
turned invisible?
thanks,
Pierre

 

[Ken Macksey]

Hi Pierre

I am not sure how you would get the second instance of excel other than to
close the first one it finds and run it again. At least this allows you to
get excel back and save any changes you might have made without losing
anything.

The only other suggestion I have is to rem(comment) out the
Application.visible=false line until you have completely debugged your code.


HTH

Ken

 

[Pierre via OfficeKB.com]

Hi Ken,
Thanks for your input. the code works fine.
However, i would like to do the following when activating your code:

- see if my program is active (program called vplprog.xls)
- if active, i would like to
- check if the sheet "waarschuwing" is visible
if not visible then make this sheet visible and save and close the
workbook
thanks for your help....
Pierre

 

[Ken Macksey]

Hi

Adding this code to the bottom worked for me. Change the workbook and
worksheet names to suit. Message box can be removed as required. Just there
so you can actually see what is happening. If you don't want to close excel,
remove the last line.


if objxl.workbook.name = "Test.xls" then

objxl.worksheets("sheet3").visible = true
objxl.msgbox ""
objxl.Application.displayalerts = false
objxl.workbooks("Test.xls").save
objxl.Application.displayalerts = True
objxl.workbooks("Test.xls").close
objxl.quit

end if

 

[Ken Macksey]

Hi

With further testing, this part of the code seems to work ok, but the
workbook name part does not.

objxl.worksheets("sheet3").visible = true
objxl.Application.displayalerts = false
objxl.workbooks("Test x2.xls").save
objxl.Application.displayalerts = True
objxl.workbooks("Test x2.xls").close
objxl.quit

Maybe someone else knows how to get the workbook name with vb script.

HTH

Ken