FiveTech Support Forums

   TRY
       oExcel := CREATEOBJECT( "Excel.Application" )
    CATCH
       MSGSTOP("L'Application Microsoft Excel n'est pas installée sur cet Ordinateur !" )
       RETURN NIL
   END

   oBook  := oExcel:WorkBooks:Add()
   oSheet := oBook:Worksheets(1)

   nLine := 1
 
   oSheet:Cells( nLine, 1 ):Value = "Désignation"
    oSheet:Cells( nLine,2 ):Value = "Quantité"

   oExcel:Visible := .T.

   oexcel := nil

    CLIPPER ISANSI( PARAMS )         // cString    --> lAnsi
    {
       LPBYTE pString = ( LPBYTE ) _parc( 1 );
       WORD  w = 0, wLen = _parclen( 1 );
       BOOL  bAnsi = FALSE;

       while( w < wLen && ! bAnsi )
       {
          bAnsi = ( pString[ w ] >= 224 && pString[ w ] <= 255 ) || pString[ w ] == 128;
          w++;
       }

       _retl( bAnsi );
    }

    //----------------------------------------------------------------------------//

    CLIPPER ISOEM( PARAMS )         // cString    --> lOem
    {
       LPBYTE pString = ( LPBYTE ) _parc( 1 );
       WORD  w = 0, wLen = _parclen( 1 );
       BOOL  bOem = FALSE;

       while( w < wLen && ! bOem )
       {
          bOem = pString[ w ] > 128 && pString[ w ] <= 168;
          w++;
       }

       _retl( bOem );
    }