Effacer le contenu d'un fichier Excel

[Résolu]
Signaler
Messages postés
35
Date d'inscription
dimanche 5 novembre 2000
Statut
Membre
Dernière intervention
30 juillet 2009
-
Messages postés
35
Date d'inscription
dimanche 5 novembre 2000
Statut
Membre
Dernière intervention
30 juillet 2009
-
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

Messages postés
35
Date d'inscription
dimanche 5 novembre 2000
Statut
Membre
Dernière intervention
30 juillet 2009

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