Verhogen van lijn nummers

Status
Niet open voor verdere reacties.
M

MarcBrood

Gebruiker
Lid geworden
21 jul 2009
Berichten
7
Beste vba'ers

Om een export file te maken naar ons boekhoudprogramma Exact-online, heb ik vruchtloos geprobeerd om de LineNumber in het geëxporteerde XML bestand automatisch met +1 te verhogen.

zie voorbeeld XML
XML_voorbeeld.jpg

Is er iemand die mij hierbij kan helpen, mijn dank is groot.

In bijlage mijn voorbeeldbestandje
 

Bijlagen

  • Vba_Export_Xml.xlsm
    23,4 KB · Weergaven: 22
Laatst bewerkt:
als pure gok onderstaande aanpassing
Code: 
    For i = 1 To Rows.Count
        If Cells(i, 3) = "MAG" And Not IsEmpty(Cells(i, 3).Value) Then
        Print #1, "<StockCountLine LineNumber=" & Chr(34) [COLOR="#FF0000"][SIZE=3]& i &[/SIZE][/COLOR] Chr(34) & ">"
        Print #1, "<Quantity>-" & Cells(i, 10).Value & "</Quantity>"
        Print #1, "<NewQuantity>0</NewQuantity>"
 
De gok is goed, maar volgens mij moet je dat uitbreiden naar dit omdat i bij 2 moet beginnen op dat punt: & i + 1 &
 
verkeerde gok
Code: 
   For i = 1 To Rows.Count
      If Cells(i, 3) = "MAG" And Not IsEmpty(Cells(i, 3).Value) Then
        [COLOR="#FF0000"] i1 = i1 + 1 [/COLOR]                            'oplopende linenumber los van rijnummer
         Print #1, "<StockCountLine LineNumber=" & Chr(34)[COLOR="#FF0000"] & i1 &[/COLOR] Chr(34) & ">"
         Print #1, "<Quantity>-" & Cells(i, 10).Value & "</Quantity>"
aha, Edmoor had het ook al gezien, top !
 
thnx Guys,

Top, nu kan ik weer verder.
Bij jullie komt het er zo simpel uit.

Respect !!!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan