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; |