cFileDbf := "E:\РУССКИЕ-БУКВЫ\тест-эксель.dbf" 
    cFileXls := ChangeFileExt( cFileDbf, '.xls' ) 
  
    BEGIN SEQUENCE WITH {|e| Break( e )} 
       oExcel := GetActiveObject( "Excel.Application" ) 
    RECOVER 
       BEGIN SEQUENCE WITH {|e| Break( e )} 
          oExcel := CreateObject( "Excel.Application" ) 
       RECOVER 
          MG_Stop( "ОШИБКА! Excel не доступен. [" + win_oleErrorText() + "]" ) 
          RETURN ( "" ) 
       END 
    END 
  
    WaitWindow( 'Загрузка Excel ... ' + cFileNoPath(cFileDbf), .T. , 800, 14, NIL, YELLOW, RED)    
  
    oExcel:Visible       := .F.            // НЕ Показывать EXCEL  
    oExcel:DisplayAlerts := .F.            // не приставать с запросами  
    oExcel:WorkBooks:Add()                 // для версий EXCEL >= 2010 
    oExcel:Workbooks:Open( cFileDbf, 0 )  
    oBook := oExcel:ActiveSheet()  
    
    IF FILE( cFileXls )  
       // Чтобы Excel не приставал в вопросом "Такой файл уже существует"  
       nErr := DELETEFILE(cFileXls)  
       IF nErr == 0  
          oBook:SaveAs( cFileXls, xlExcel9795 )    
       ELSE  
          cMsg := REPLICATE( "-._.", 16 ) + ";;"  
          cMsg += "Ошибка удаления файла: "+cFileXls+" !; Ошибка: "+HB_NtoS(nErr)+";;"  
          cMsg += "Файл занят другим процессом в памяти !;;"  
          cMsg += REPLICATE( "-._.", 16 ) + ";;"  
          MG_Stop( cMsg , "Ошибка!" )  
       ENDIF  
    ELSE  
       oBook:SaveAs( cFileXls, xlExcel9795 )    
    ENDIF  
    
    oExcel:Quit()  
  
    WaitWindow()