Conversion d'un .csv en .xlsRésolu

Question

Bonjour &#224; tous, 

Je me demandais s'il &#233;tait possible de convertir directement dans le code des fichiers .csv en .xls sans que ce soit visible pour l'utilisteur. Je souhaite garder la mise &#224; forme du .csv. 

Merci d'avance pour votre aide. 

Isa

WhiteHippo · Accepted Answer

J'ai pas excel, donc je peux pas tester ce bout de code, mais &#231;a devrait le faire  :

var
  FichierCSV     : AnsiString ;


  FichierXLS     : AnsiString ;

  Excel          : variant    ;
  ExcelWorkbook  : variant    ;
  ExcelWorkbooks : variant    ;

  Inutilise      : variant    ;
  LectureSeule   : variant    ;
  Separateur     : variant    ;
     
const
  SEPARATEUR_TABULATION    = 1 ;
  SEPARATEUR_VIRGULE       = 2 ;
  SEPARATEUR_ESPACES       = 3 ;
  SEPARATEUR_POINT_VIRGULE = 4 ;

begin
  FichierCSV := 'Essai.csv' ;
  FichierXLS := 'Essai.xls';

  Inutilise    := unassigned ;
  LectureSeule := TRUE ;   
  Separateur   := SEPARATEUR_POINT_VIRGULE ;

  Excel := CreateOleObject( 'Excel.Application' ) ;
  Excel .Visible := true;
  
  ExcelWorkbooks := Excel.Workbooks;
  ExcelWorkbook := ExcelWorkbooks.Open( FichierCSV 
                                      , Inutilise    // UpdateLinks
                                      , LectureSeule // ReadOnly
                                      , Separateur   // Format 
                                      ) ;

  ExcelWorkbook .SaveAs( FichierXLS ) ;
end ;

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

Conversion d'un .csv en .xls

1 réponse

Votre réponse

Discussions similaires