Discussion :

[sozie9372]

Salut !

Voila je voudrais, j'ai quelques connaissances de VB 6 mais en VBA je suis perdu avec les range et tout
Mon problème est simple je pense (pour vous les experts !). on me demande d'exporter un tableau en XML...

Voici la structure
Message

Layer

Direction

Channel Type

Message | Layer | Direction | Channel Type
-------------------------------------------
Packet AR | RLC_MAC | Uplink | PCCH_MSG

...
Je voudrais faire un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
 
<network>
    <message direction="Uplink">
         <id>Packet AR</id>
         <layer>RLC_MAC</layer>
         <channel>PCCH_MSG</channel> 
    </message>
</network>

J'ai fais ca pour l'instant, mais bien sûr ca ne fonctionne pas, j'ai du me fourvoyer dans l'utilisation des ranges...

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
19
20
21
22
23
24
25
26
27
 
Sub export2XML()
    Dim newrange As Range
    Dim cell As Range
    Dim filename As Variant
    Dim retVal As Variant
    Dim suffix As String
    suffix = ""
    Dim iCol As Long
    Dim Col_id As String
    Dim colRange As Range
    Dim fp As Integer
    fp = FreeFile
    filename = ThisWorkbook.Path & "\export.txt"
    Open filename For Output As #fp
    For iCol = 1 To 4
        Set newrange = Intersect(Cells.Columns(iCol), ActiveSheet.UsedRange)
        Col_id = Left(Cells(1, iCol).Address(0, 0), _
          Len(Cells(1, iCol).Address(0, 0)) - 1)
        For Each cell In newrange     'newrange
            If Trim(cell.Text) <> "" Then
                Print #1, cell.Text & suffix
            End If
        Next cell
    Next iCol
  Close #1
End Sub

Merki !!!
+++
Ju

[AlainTech]

J'avais envie de m'amuser un peu...

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
19
20
21
22
23
24
25
26
27
Sub Export2XML()
  Dim rRange As Range
  Dim rCell As Range
  Dim strFilename As Variant
  Dim iFp As Integer
  Dim wksSrc As Worksheet
  iFp = FreeFile
  strFilename = ThisWorkbook.Path & "\export.txt"
  Set wksSrc = ActiveSheet
  Set rRange = Range(wksSrc.[A2], _
               wksSrc.Cells(wksSrc.Cells.SpecialCells(xlLastCell).Row, 1))
  Open strFilename For Output As #iFp
  For Each rCell In rRange
    If Trim(rCell.Text) <> "" Then
      Print #iFp, "<network>"
      Print #iFp, Space(4) & "<message direction=" & Chr(34) & _
                  rCell.Offset(0, 2) & Chr(34) & ">"
      Print #iFp, Space(8) & "<id>" & rCell & "</id>"
      Print #iFp, Space(8) & "<layer>" & rCell.Offset(0, 1) & "</layer>"
      Print #iFp, Space(8) & "<channel>" & rCell.Offset(0, 3) & "</channel>"
      Print #iFp, Space(4) & "</message>"
      Print #iFp, "</network>"
      Print #iFp,
    End If
  Next rCell
  Close #iFp
End Sub

Comme j'ai mis le code dans un module, j'ai instancié la feuille.

Edit --> Avec indentations

[sozie9372]

Eh beh !
super ! Ca fonctionnne nickel ! Du premier coup !
Note : Joli les indentations !
Merci encore !
++
Ju