Trying to close Excel Application in IE

[Guest]

From a Excel workbook opened in IE, I want to use a Macro button to run VB
code to close the workbook, Quit the Application and return to IE. The code I
have seems to work outside IE but not in the IE environment.

Macro1()
If IsEmpty(ActiveSheet.Range("c66")) Then
MsgBox "Please enter Confirmation!"
Exit Sub
End If

Dim sPath As String
sPath = "\\J:\html\Content\Direct\Manu\MAN_LOGISTICS_IPT\qms
mk2\BaaNFormSub\"

On Error Resume Next
ActiveWorkbook.Saveas sPath & ActiveSheet.Range("c4").Value
If Err.Number <> 0 Then
MsgBox "File not saved!" & vbLf & "contact 65128"
Err.Clear
End If

For Each w In Application.Workbooks
w.Close
Next w
Application.Quit

End Sub

 

[Dave Peterson]

Not a solution, but maybe a workaround...

How to Configure Internet Explorer to Open Office
Documents in the Appropriate Office Program Instead of in Internet Explorer
http://support.microsoft.com/?scid=162059

I do my best to avoid opening excel in MSIE.

 

[Guest]

Dave,
Thanks for that. Unfortunately this workbook is to be accessed by
many users and changing the settings as you suggest is not allowed in our
current environment.
From a different angle, would it be possible to turn IE off, manipulate the
Workbook close Excel down and then recall IE ?

 

[Dave Peterson]

I don't know how to do that.

Maybe someone else can jump in with a better solution.