1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
   | procedure TForm1.CvsVersExcel;
  // ouverir fichier CSV dans Excel;
var
    MonClasseur :_workbook;
    MaFeuille :_Worksheet;
    ovFeuille: OLEvariant;
 
begin
 
    //Importation et ouverture fichier CSV dans Excel;
MonClasseur:=ExcelApplication1.Workbooks.Open('C:\Documents and Settings\Mes documents\RAD Studio\Projects\majExcel-ACCESS\Donnees\donnees.csv',False,False,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,0);
 
    //Rendre Excel Visible;
ExcelApplication1.Visible[0]:=true;
    //Tri sur colones Feuille EXCEL variables;
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
ovFeuille:=MaFeuille;
 
    //colone D;
ovFeuille.Range['A1','AF500'].Sort(MaFeuille.Range['D1','D1'], xlAscending,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,xlGuess, 1, False, xlTopToBottom, EmptyParam);
    //colone B;
//ovFeuille.Range['A1','AF500'].Sort(MaFeuille.Range['B1','B1'], xlAscending,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,xlGuess, 1, False, xlTopToBottom, EmptyParam);
 
    //Enregistrement fichier Excel dans CSV;
MonClasseur.SaveAs('C:\Documents and Settings\Mes documents\RAD Studio\Projects\majExcel-ACCESS\Donnees\donnees.csv',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
 xlNoChange,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
 
    //Rendre Excel Visible;
 ExcelApplication1.Visible[0]:=true;
    //Fermer Excel
MonClasseur.Close(False, emptyparam,emptyparam,0);
 
end; |