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\q ms
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

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.

Pommy wrote:

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\q ms
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

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" wrote:

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.

Pommy wrote:

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\q ms
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

I don't know how to do that.

Maybe someone else can jump in with a better solution.

Pommy wrote:

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" wrote:

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.

Pommy wrote:

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\q ms
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


--

Dave Peterson