LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;  
      lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;  
      lcConnstr AS STRING  
  CLEAR  
    lcXLBook = GETFILE()
  lcConnstr = [Driver=] + ;  
      [{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;  
      [DBQ=] + lcXLBook  
    
  IF !FILE( lcXLBook )  
      ? [Excel file not found]  
      RETURN .F.  
  ENDIF  
  lnSQLHand = SQLSTRINGCONNECT( lcConnstr )  

  lcSQLCmd = [Select * FROM "Результат$"]  
  lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )  

  IF lnSuccess < 0  
      LOCAL ARRAY laErr[1]  
      AERROR( laErr )  
      ? laErr(3)  
      SQLDISCONNECT( lnSQLHand )  
      RETURN .F.  
  ENDIF  

  SQLDISCONNECT( lnSQLHand )
  
SELECT xlResults 
brow