Extraction de donnees a partir d'un fichier excel
J'ai deja un autre post mais qui demeurens reponse : j'espere etre plus clair :
Je souhaite extraire des donnees a partir d'un classeur Excel pour les ecrire dans un autre fichier excel tout en conservant les formats et les formules :
Je ne comprend pas trop ce que dit le error_log !
error_log : [Tue Jul 25 16:25:40 2006] [error] [client 127.0.0.1] [Tue Jul 25 16:25:40 2006] test.pl: Can't locate object method "get_xf_index" via package "Spreadsheet::ParseExcel::Format" at /opt/lampp/lib/perl5/site_perl/5.8.6/Spreadsheet/WriteExcel/Worksheet.pm line 1210., referer: http://localhost/xampp/test.pl
Voici mon code :
Code:
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
| for($iSheet=0; $iSheet < $oBook->{SheetCount}; $iSheet++)
{
$oWkS = $oBook->{Worksheet}[$iSheet];
# Si le nom de la feuille recherchee est trouvee, on va parcourir l'etendue des lignes et des colonnes
# pour recopier toutes les informations du document source
if ($oWkS->{Name} eq $valeur)
{
# Definition de la variable qui va recuperer le contenu d'une cellule du document source
my $cellule = 0;
# Boucle qui recupere les donnees dans la feuille source et les copie dans la feuille de destination
# a) On parcourt les lignes
for($iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
$iR++)
{
# b) on parcourt les colonnes
for($iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
$iC++)
{
# on recupere le contenu de la cellule pour le stocker dans une variable
# qui sera copiee dans la feuille de destination
$oWkC = $oWkS->{Cells}[$iR][$iC];
$cellule = $oWkC->Value if($oWkC);
$format = $oWkC->{Format} if ($oWkC);
$Sheet->write($iR, $iC, $cellule, $format);
}
}
}
} |
Si je mets Value entre "{}", cela n'ecrit rien dans mon fichier excel et je n'ai rien dans le error_log.
