Esportare tabella su xml senza creare file di mapping

[patel]

Ho trovato in rete una soluzione che però non sempre funziona come nel caso del file allegato
https://www.dropbox.com/s/wgsievy1kxjcg ... .xlsm?dl=0
esiste un modo più semplice utilizzabile con excel 2010 ?

[patel]

Senza creare MANUALMENTE il file di mapping

[Anthony47]

Non sono un esperto di xml, quindi devo leggermmela con calma. In prima battuta non capisco perche' la faccia cosi' complicata a gestire un documento di un solo livello gerarchico.

Ci sentiamo

[patel]

altra soluzione più semplice che ho trovato è questa

Codice: Seleziona tutto

Sub ExporToXML()
    strTargetFile = ThisWorkbook.Path & "\TestX.xml"
    MakeXML 1, 2, strTargetFile
End Sub

Sub MakeXML(iCaptionRow As Integer, iDataStartRow As Integer, sOutputFileName As String)
    Q = Chr$(34)
    sXML = "<?xml version=" & Q & "1.0" & Q & " encoding=" & Q & "UTF-8" & Q & "?>"
    sXML = sXML & "<rows>"
    iColCount = 1
    While Trim$(Cells(iCaptionRow, iColCount)) > ""
        iColCount = iColCount + 1
    Wend
    iRow = iDataStartRow
    While Cells(iRow, 1) > ""
        sXML = sXML & "<row id=" & Q & iRow & Q & ">"
        For icol = 1 To iColCount - 1
           sXML = sXML & "<" & Trim$(Cells(iCaptionRow, icol)) & ">"
           sXML = sXML & Trim$(Cells(iRow, icol))
           sXML = sXML & "</" & Trim$(Cells(iCaptionRow, icol)) & ">"
        Next
        sXML = sXML & "</row>"
        iRow = iRow + 1
    Wend
    sXML = sXML & "</rows>"
    Close
    nDestFile = FreeFile
    Open sOutputFileName For Output As #nDestFile
    Print #nDestFile, sXML
    Close
End Sub

[Anthony47]

Beh, questa mi sembra piu' ragionevole...

Comunque avevo realizzato una macro che avrebbe dovuto creare file xml con struttura a piu' livelli; ma e' una cosa circa del 2010 (perche' avevo acquistato il libro XML di Massimo Canducci, e lo scontrino dice 24-set-2010). Ma non l'ho ancora trovato, era un progetto che poi fu abbandonato, ma su qualche disco esiste ancora.

Ciao