Try the simpler version without SendKeys, just setting it minimized and then maximized.

>Thanks. I tried the code for Excel, but it still won't come to the front. I don't get the error message, either. The code I used is:
>
>

>LOCAL loShell
>loShell = CreateObject ("WScript.Shell")
>IF loShell.AppActivate (loExcel.Caption) = .T.
>	loShell.SendKeys ("% ~")
>ELSE
>	MessageBox ("Application " + loExcel.Caption + " not found")
>ENDIF
>

>
>>>In the past, when I opened Excel through Automation (from Visual FoxPro), it came to the front automatically. I believe that was with an older version of the operating system. Now it doesn't. I suspect this has to do with some security system implemented by newer versions of the operating system itself, in which case not much can be done... but I wanted to check whether this is really the case.
>>>
>>>TIA,
>>>
>>>Hilmar.
>>
>>Check this solution http://forum.foxclub.ru/read.php?32,177182,258927#msg-258927
>>
>>

>>Приложение Excel 
>>  
>> * Создание экземпляра приложения Excel  
>>  LOCAL loExcel as Excel.Application  
>>  loExcel = CreateObject("Excel.Application")  
>> * Далее идет создание и заполнение документа  
>>  ...  
>> * Сформированный документ делается видимым  
>>  loExcel.Visible = .T.  
>>    
>> * Выводится экземпляр приложения Excel на передний план  
>>  LOCAL loShell  
>>  loShell=CreateObject("WScript.Shell")      
>>  IF loShell.AppActivate(loExcel.Caption) = .T.    
>>  	loShell.SendKeys("% ~")    
>>  ELSE    
>>  	MessageBox("Приложение "+loExcel.Caption+" не найдено")    
>>  ENDIF
>>
>>Однако в отношении Word или Excel есть специфический способ активизации, основанный на том, что разворачивание этого окна на максимум из свернутого (минимизированного) состояния автоматически приводит к его активизации. 
>>
>>Приложение Word 
>>  
>> * Выводится экземпляр приложения Word на передний план  
>>  #DEFINE wdWindowStateMinimize 2  
>>  #DEFINE wdWindowStateMaximize 1  
>>    
>>  loWord.WindowState = wdWindowStateMinimize	&& Сворачиваем окно  
>>  loWord.WindowState = wdWindowStateMaximize	&& Разворачиваем окно, что приводит к его активизации  
>>
>>Приложение Excel 
>>  
>> * Выводится экземпляр приложения Excel на передний план  
>>  #DEFINE xlMinimized -4140  
>>  #DEFINE xlMaximized -4137  
>>    
>>  loExcel.WindowState = xlMinimized	&& Сворачиваем окно  
>>  loExcel.WindowState = xlMaximized	&& Разворачиваем окно, что приводит к его активизации  
>>

>>
>>I've translated this before, don't have time right now.