Вот код....

fileName = GETFILE('xls', 'Файл', 'Открыть',1)
ThisForm.Pageframe1.Page1.tbxOldFile.Value = fileName
* указываем путь файла
*.........................
*создаем объект Excel и открывае м в нем уже существующий файл с готовой шапкой
PUBLIC oExcel, objBook
oEXCEL=CREATEOBJECT("EXCEL.APPLICATION")
objBook = oExcel.WorkBooks.Open(fileName)

objBook.Sheets(1).Select && устанавливаем курсор на первый лист

oExcel.Visible = .T. && Делаем объект видимым

LOCAL loShell, lcCaption
loShell=CreateObject("WScript.Shell")
lcCaption = "Отдел Технологических Трубопроводов"
IF loShell.AppActivate(m.lcCaption) = .T.
loShell.SendKeys("% ~")
ELSE
MessageBox("Приложение "+m.lcCaption+" не найдено")
ENDIF
list3npp=1
RETURN


после того как делаю объект ексель видимым, осуществляю переход, обратно в рабочую программу по заголовку окна, все отрабатывает, но после возврата в прогу, опять запускает GETFILE и выскакивает это окно!!! Не допирает до меня как такое может быть???

Блин ребят ссори.... разобрался всё таки...
loShell.SendKeys("% ~") вот эта фигня на кнопку по второму разу жала...
ещё раз ссори!!!