AppActivate problem
I'm trying to get the following code to launch Microsoft Word using the
AppActivate method and then return to the orginal workbook. I run the code
by calling Sub Primary which activates UserForm1 which then calls Sub
Secondary.
Sub Primary()
UserForm1.Show 'to display program running message
End Sub
Private Sub UserForm_Activate()
Secondary
Unload Me
End Sub
Sub Secondary()
Dim WordID As String, ExcelID As String
WordID = Shell("C:\Program Files\Microsoft
Office\Office\WINWORD.EXE", 1)
ExcelID = Shell("C:\Program Files\Microsoft
Office\Office\EXCEL.EXE", 1)
On Error GoTo WordError
AppActivate WordID
MsgBox "Word has been activated."
GoTo ResumeExcel
WordError:
MsgBox "Word error"
Exit Sub
ResumeExcel:
On Error GoTo ExcelError
AppActivate ExcelID
MsgBox "Excel has been reactivated."
GoTo EndSub
ExcelError:
MsgBox "Excel error"
Exit Sub
EndSub:
MsgBox "Resume Excel"
End Sub
The program yields an open Word Doc, focus set to a new instance of Excel
(and a new workbook) and a blinking Excel icon in the taskbar (reflecting the
original instance of Excel). Focus is returned to the original workbook when
I click on its icon (in the taskbar). The message "Word error" is displayed
when focus is returned to the original workbook.
Any help will be greately appreciated
Thanks much.
--
Kevin
|