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 37 38 39 40 41 42 43 44 45
|
// Ouvrir le fichier texte dans Excel.
Excel.Application xlApp = new Excel.Application();
Excel.Workbooks xlClasseur = (Excel.Workbooks)xlApp.Workbooks;
xlApp.Visible = true;
//--- Voir cette URL : http://msdn2.microsoft.com/en-us/library/microsoft.office.interop.excel.workbooks.opentext(VS.80).aspx
xlClasseur.OpenText(@"c:\Technocentre.csv", //--- Filename
Excel.XlPlatform.xlWindows, //--- Origin : Tjs cette valeur
1, //--- StartRow
Excel.XlTextParsingType.xlDelimited, //--- datatype : xlDelimited or xlFixedWidth
Excel.XlTextQualifier.xlTextQualifierDoubleQuote, //--- TextQualifier
false, //--- ConsecutiveDelimiter
false, //--- Tab
false, //--- SemiColon
true, //--- Comma
false, //--- Space
false, //--- Other
Missing, //--- OtherChar
Missing, //--- Field Info
Missing, //--- TextVisualLayout
Missing, //--- DecimalSeparator
Missing, //--- ThousandsSeparator
Missing, //--- TrailingMinusNumbers
Missing); //--- Local
Excel.Workbook xlClasseurActif = xlApp.ActiveWorkbook;
// Enregistrer le fichier au format classeur standard et quitter Excel.
xlClasseurActif.SaveAs(@"C:\Technocentre.xls",
Excel.XlFileFormat.xlWorkbookNormal,
Missing,
Missing,
Missing,
Missing,
Excel.XlSaveAsAccessMode.xlNoChange,
Missing,
Missing,
Missing,
Missing,
Missing);
xlClasseurActif.Close(false, Missing, Missing);
xlApp.Quit(); |