Effacer le contenu d'un fichier Excel

Résolu
jakata Messages postés 35 Date d'inscription dimanche 5 novembre 2000 Statut Membre Dernière intervention 30 juillet 2009 - 18 janv. 2005 à 09:50
jakata Messages postés 35 Date d'inscription dimanche 5 novembre 2000 Statut Membre Dernière intervention 30 juillet 2009 - 18 janv. 2005 à 14:35
Bonjour,

j'aurais aimé savoir comment faire, côté 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à où ce trouve les astérix.
Si vous voyez une erreur dans mon code, faites le moi savoir.
J'ai aussi un probème dans la fermeture d'Excel. Quand je quite l'appli, Excel est toujours dans le Process du Task Manager. C'est un problème.

Je vous remercie d'avance.

Jakata

1 réponse

jakata Messages postés 35 Date d'inscription dimanche 5 novembre 2000 Statut Membre Dernière intervention 30 juillet 2009
18 janv. 2005 à 14:35
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ésolé pour le dérangement !

Jakata
3