Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Problem with AppActivate ("Microsoft Excel") | Excel Programming | |||
AppActivate | Excel Programming | |||
Problem with AppActivate. | Excel Programming | |||
appactivate | Excel Programming | |||
AppActivate problem when called twice | Excel Programming |