Effacer le contenu d'un fichier ExcelRésolu

Question

Bonjour,

j'aurais aim&#233; savoir comment faire, c&#244;t&#233; serveur, en jscript pour effacer le contenu d'un fichier excel ?
En fait, si un certain fichier existe, je dois le 'vider' avant de pouvoir introduire les nouvelles infos.
Voici mon code:

      var ExcelApp;
      var ExcelBook;
      var fso;


      ExcelApp = Server.CreateObject("Excel.Application");
      fso = Server.CreateObject("Scripting.FileSystemObject");
       if (fso.FileExists ("C:\Ex Asp\Excell\katia2.xls"))//le fichier existe
            ExcelApp.Workbooks.Open("C:\Test.xls");
            //**********************************************
       else
           ExcelApp.Workbooks.Add;
    
       ExcelBook = ExcelApp.ActiveWorkbook;
       ExcelBook.Worksheets(1).Cells(1, 1).Value="Hello";
       ExcelBook.Worksheets(1).Cells(2,1).Value = "This is column B, row 1";
       ExcelBook.Worksheets(1).Cells(1,10).Value = "This is column J, row 1";
       ExcelBook.Worksheets(1).Cells(10,10).Value = "This is column J, row 10";
    
       ExcelBook.SaveAs("C:\Test.xls");
    
        ExcelBook.Close();
        ExcelApp.Quit();
        ExcelBook = null;
        ExcelApp = null;
        fso = null;

J'aimerais bien ajouter la(les) ligne(s) pour 'vider' le fichier l&#224; o&#249; ce trouve les ast&#233;rix.
Si vous voyez une erreur dans mon code, faites le moi savoir.
J'ai aussi un prob&#232;me dans la fermeture d'Excel. Quand je quite l'appli, Excel est toujours dans le Process du Task Manager. C'est un probl&#232;me.

Je vous remercie d'avance.

Jakata

jakata · Accepted Answer

Je viens de trouver.
Pour ceux qui veulent :

     var bExist;
    var ExcelApp;
    var ExcelBook;
    var fso;
    var iRow;
    var jCol;


    ExcelApp = Server.CreateObject("Excel.Application");
    fso = Server.CreateObject("Scripting.FileSystemObject");
    if (fso.FileExists ("C:\\yourfile.xls"))//le fichier existe
    {
     bExist = true;
     ExcelApp.Workbooks.Open("C:\yourfile.xls");
    }
    else
    {
     bExist = false;
     ExcelApp.Workbooks.Add;
    }//end if
    
    ExcelBook = ExcelApp.ActiveWorkbook;
    ExcelApp.Cells.Clear;//clear all cells of the worksheet
    
    for(iRow=1; iRow<=10; iRow++)
     for(jCol=1; jCol<=5; jCol++)
      ExcelBook.Worksheets(1).Cells(iRow, jCol).Value="This is column " + jCol + ", row " + iRow;
    
    if(bExist)
     ExcelBook.Save();
    else
     ExcelBook.SaveAs("C:\yourfile.xls");
    
    ExcelBook.Close();
    ExcelApp.Quit();
    ExcelBook = null;
    ExcelApp = null;
    fso = null;

D&#233;sol&#233; pour le d&#233;rangement ! 

Jakata

Effacer le contenu d'un fichier Excel

1 réponse

Votre réponse

Discussions similaires