Discussion :

[Fantomos]

Bonjour à tous,

Je souhaite modifier le contenu d'une cellule d'une feuille excel avec perl. Apparement, cela est possible avec le module Spreadsheet::ParseExcel mais je ne sais pas comment faire. Auriez-vous des solutions ?

Merci par avance pour vos réponses

[piotr]

voici quelques lignes de code que j'utilise, pour lire et écrire dans un fichier xls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use Spreadsheet::ParseExcel::Simple;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;         
#
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');  
# open Excel file
my $Book = $Excel->Workbooks->Open("C:/fichier.xls"); 
 
my $Sheet = $Book->Worksheets(3);
 
#pour lire une cellule
$cellule=$Sheet->Cells($row,$col)->{'Value'};
 
#pour écrire dans une cellule
$Sheet->Cells($row, $col+2)->{'Value'} = $valeur;

[MarneusCalgarXP]

A noter que cette solution ne fonctionne que si Excel est installé sur le poste où tourne le script perl...

[pouet33]

Utilise Spreadsheet::WriteExcel que tu trouves sur Cpan

C'est un version alpha mais qui marche bien.

[lxmathx]

Salut voici un lien que j'ai justement envoyé à un confrère cette semaine avait à faire la même tâche...

http://groups.google.ca/group/comp.l...49a28d2cd55a56

Le problème avec le spreadsheet:writeexcel est qu'il ne peut pas ouvrir un document existant et le modifier. Il ne peut qu'en créer des nouveaux. Tu auras donc besoin de la classe : use Spreadsheet:arseExcel::SaveParser;
qui elle permet d'ouvrir et de modifier un document.

Le gros avantage sur les autres solutions est que tu n'as pas besoin d'avoir excel sur le poste, très avantageux si tu travailles sur un serveur entre autre...

Si tu as des questions, tu sais quoi faire...

Merci,

Math R