LPARAMETERS lcFile as Character, lbShow as Boolean, lvSheets as Variant

IF PCOUNT()=2
    lvSheets = 1
ENDIF
LOCAL oExcel as "excel.application" OF "excel.application", loErr as Exception

STORE NULL TO oExcel, loErr, this.exception

IF ISNULL(oExcel)
    STORE NULL TO oExcel, loErr
    TRY
        oExcel = createobject("excel.application")
    CATCH TO loErr
        this.exception = loErr
        oExcel = NULL
    ENDTRY
    IF ISNULL(oExcel)
        RETURN .F.
    ENDIF
ENDIF

this.oexcel = oExcel

IF UPPER(JUSTEXT(lcFile)) = "XLT" OR UPPER(JUSTEXT(lcFile)) = "XLTX"
    llErr = .F.
    TRY 
        This.activeworkbook = oExcel.Workbooks.Add(lcFile).Sheets(lvSheets)
    CATCH TO loErr
        this.exception = loErr
        llErr = .T.
    ENDTRY
    IF llErr
        this.oexcel = .NULL.
        RETURN (.F.)
    ENDIF
ELSE
    llErr = .F.
    TRY 
        This.activeworkbook = oExcel.Workbooks.Open(lcFile).Sheets(lvSheets)
    CATCH TO loErr
        this.exception = loErr
        llErr = .T.
    ENDTRY
    IF llErr
        this.oexcel = .NULL.
        RETURN (.F.)
    ENDIF
ENDIF

This.activeprinter = oExcel.ActivePrinter

*This.activeworkbook.Application.Sheets(1).Select()

IF lbShow = .F.
    oExcel.ActiveWorkbook.Date1904 = .F.
    oExcel.ActiveWorkbook.Saved = .T.
    oExcel.ScreenUpdating = .F.
    *oExcel.IgnoreRemoteRequests = .T.                        && DDE запросы
    oExcel.DisplayAlerts=.F.
    oExcel.ReferenceStyle = -4150  && xlR1C1 xlA1
    oExcel.ActiveWindow.View = 1
    oExcel.EnableEvents=.T.
    this.GetExcelProcessID()
    
    This.xls_viewmode = oExcel.ActiveWindow.View
ENDIF

IF lbShow
    *oExcel.ScreenUpdating = .T.
    *This.activeworkbook.Visible = lbShow
    * This.xls_visible = lbShow
    oExcel.Visible = lbShow
ENDIF

loXl = CREATEOBJECT("Excel.Application")
loXl.DisplayAlerts = .F.
loXl.IgnoreRemoteRequests = .T. && Это ключевая настройка - при её отключении этот экземпляр не будет использоваться для открытия документов пользователем из проводника и т.п.
loXl.ScreenUpdating = .F.
loXl.Workbooks.Open(m.tcReportFile) && шаблон
... && заполняем шаблон
loXl.ScreenUpdating = .T.
loXl.ActiveWorkbook.SaveAs(m.tcReportFile, xlWorkbookNormal) && сохраняем созданный отчёт
loXl.IgnoreRemoteRequests = .F. && не забываем вернуть настройки назад
loXl.DisplayAlerts = .T.
loXl.Quit()
&& далее созданный файл отчёта лучше всего открыть через ShellExecute() - НЕ НАДО его показывать в том же экземпляре в котором он и создавался.