Приложение 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.