Eksport faktur w excelu do okreslonego formatu XML

Bardzo proszę o pomoc. Musze w firmie wykonac eksport faktur wystawianych w excelu do okreslonego w niemczech formaty xml. Moj problem polega na tym ze jesli na fakturce mam jedna pozycje to potrafie sobie to zmapowac w excelu i ładnie mi exportuje do xml ;-) Natomiast jesli mam na fakturce kilka pozycji to czy idzie to jakoś ogarnąć aby tez eksportowało czy dla kolejno 2 pozycji, 3 pozycji, 4 pozycji musiałbym miec inna mape xml ze skopiowanymi wierszami kodu odpowiadającymi za pozycje towarów na fakturce?? w załączniku przykład fv z jedna pozycja i z kilkoma pozycjami oraz kod xml w notatniku ;-) Proszę o porady....

Hej,
szczerze powiedziawszy nigdy z poziomu Excela nie upychałem nic do .xml. Ale na excelforum.pl namierzyłem taki kod:

Sub test()
Const MyFile$ = "nazwapliku.xml"
Dim MyPath$
Dim LastRow&
Dim tbl, i&

MyPath = ThisWorkbook.Path & "\"
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
tbl = Range("A2:A" & LastRow)

Open MyPath & MyFile For Output As #1

For i = 1 To UBound(tbl)
   Print #1, tbl(i, 1)
Next i

Close #1
End Sub

Eksportuje dane z jednej kolumny do pliku .xml. Porównaj z tym co masz, i może uda się rozwiązać problem, jeżeli nie, to napisz co Ci wychodzi. :)

Dzięki za odpowiedź. Jednak ja muszę mieć to według schematu xml jaki zamieściłem w załączniku. Mam od odbiorcy narzucony schemat xml w jakim ma to przechodzić .... Może masz inny pomysł jak to ogarnąć? Faktura nie musiałaby być w excela dane mogłyby być zaciągane z czegoś innego...co proponujecie ?

W E16 doszły dwie funkcje do obsługi XML. Jedna to filterxml a druga nie pamiętam. Poszukaj.

Dzięki ale nie rozwiązuje to mojego problemu proszę o dalsze wskazówki pomocy