Bonjour tout le monde,
je passe par la méthode Print #1 pour créer un fichier XML à partir d´une multitude de tableaux.
Mon code tourne parfaitement, le seul hic est que dans le fichier XML qui en sort, des espaces se sont rajoutés avant et après chaque valeur tirée de cellules avec formules.
J´ai essayé de changer le format de ces dites formules en Text mais le résultat est le même.
Est-ce que quelqu´un a déjà rencontré ce problème ? Quelqu´un aurait il une idée ou une solution ?
Ci-dessous un petit extrait du code VBA:
Et ici le résultat:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 'Wertpapiert Print #1, "<WERTPAPIERE>" Print #1, "<GESAMTBETRAG>"; Feu.Range("H10"); "</GESAMTBETRAG>" Print #1, "<WERTPAPIER_MIT_ISIN>" Print #1, "<bbk:ISIN>"; Feu.Range("L4"); "</bbk:ISIN>" Print #1, "<STUECKZAHL>"; Feu.Range("K10"); "</STUECKZAHL>" Print #1, "<PREIS>"; Feu.Range("K10"); "</PREIS>" Print #1, "<WAEHRUNG>"; "EUR"; "</WAEHRUNG>" 'EUR Print #1, "<DARUNTER_WP_LEIHG>"; "0"; "</DARUNTER_WP_LEIHG>" Print #1, "<DARUNTER_ECHTE_PG>"; "0"; "</DARUNTER_ECHTE_PG>" Print #1, "</WERTPAPIER_MIT_ISIN>" Print #1, "</WERTPAPIERE>"
Comme vous pouvez les voir, les valeurs entre les balises "Stueckzahl", "GESAMTBETRAG" et "PREIS" sont entouré d´un espace à droite et à gauche alors que les valeurs entre les balises "DARUNTER_WP_LEIHG" elle ne sont pas entourées d´espace étant donné que la valeur "0" est directement écrite dans le code.
Code XML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 <WERTPAPIERE> <GESAMTBETRAG> 673 </GESAMTBETRAG> <WERTPAPIER_MIT_ISIN> <bbk:ISIN>XXXXXXX</bbk:ISIN> <STUECKZAHL> 5133 </STUECKZAHL> <PREIS> 5133 </PREIS> <WAEHRUNG>EUR</WAEHRUNG> <DARUNTER_WP_LEIHG>0</DARUNTER_WP_LEIHG> <DARUNTER_ECHTE_PG>0</DARUNTER_ECHTE_PG> </WERTPAPIER_MIT_ISIN> </WERTPAPIERE>
Merci par avance pour votre aide.
Chris
Partager