bonjour tous le monde
je cherche un script pour faire la conversion de fichier Excel vers fichier KML ou KMZ ou bien si vous avez une solution par exemple de passer avec un fichier TXT c'est a dire xls => txt=> kml
merci d'avance
Version imprimable
bonjour tous le monde
je cherche un script pour faire la conversion de fichier Excel vers fichier KML ou KMZ ou bien si vous avez une solution par exemple de passer avec un fichier TXT c'est a dire xls => txt=> kml
merci d'avance
est ce que c'est juste ? car sa marche pas chez moi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55 <?php function xls2kml($xls,$kml) { // Pas de paramétres requis $empty = new VARIANT(); /* Supression du kml si il existe */ if(file_exists ($kml)) @unlink($kml); /* Démarrage de Word */ $w = new COM("word.application") or die("Impossible d'instancier l'application Word"); /* Test de Word 2007 */ if($w->Version > 11) { /* Amener Word devant */ $w->Visible = 1; /* Test du fichier */ if(file_exists ($xls)) $w->Documents->Open($xls); else return false; /* Quelques commandes */ $w->Documents[1]->SaveAs($kml,17); /* Fermeture de word */ $w->Documents[1]->Close(false); } $w->Quit($empty,$empty,$empty); /* Libération des ressources */ $w = null; unset($w); /* Test du fichier */ if(file_exists ($kml)) return true; else return false; } $xls="C:\wamp\www\test\test.xlsx"; $kml="C:\wamp\www\test\test.kml"; xls2kml($xls,$kml); ?>
j'ai arrivé a ce code mais j'aimerai bien avoir une orientation, comment l'utiliser et est ce que il est juste voila le code
Citation:
<?php
function xls2kml($xls,$kml)
{
// Pas de paramétres requis
$empty = new VARIANT();
/* Supression du kml si il existe */
if(file_exists ($kml))
@unlink($kml);
/* Démarrage de Word */
$w = new COM("word.application") or die("Impossible d'instancier l'application Word");
/* Test de Word 2007 */
if($w->Version > 11)
{
/* Amener Word devant */
$w->Visible = 1;
/* Test du fichier */
if(file_exists ($xls))
$w->Documents->Open($xls);
else
return false;
/* Quelques commandes */
$w->Documents[1]->SaveAs($kml,17);
/* Fermeture de word */
$xls->Documents[1]->Close(false);
}
$w->Quit($empty,$empty,$empty);
/* Libération des ressources */
$w = null;
unset($w);
/* Test du fichier */
if(file_exists ($kml))
return true;
else
return false;
}
$xls="C:\wamp\www\test\test.xlsx";
$kml="C:\wamp\www\test\test.kml";
xls2kml($xls,$kml);
?>