Importare molti file XML

Salve a tutti, premetto che è il mio primo intervento ed inizio...chiedendovi aiuto per importare dei dati XML in maniera automatica.
Mi spiego meglio: un software mi produce giornalmente una serie di file .xml strutturati sempre nello stesso modo ed ho necessità di importarli in automatico, accodandoli, in un file excel. Idealmente la riga delle intestazioni andrebbe cancelalta
Mi aiutate a creare una macro per farlo?

Se metti la firma (http://freeforumzone.leonardo.it/discussione.aspx?idd=9561389)
Se alleghi un files piccolo che esce dal software ....senza dati sensibili
Se alleghi un files generale di come desideri ottenere i dati.
Vediamo come possiamo fare.

raffaele1953, 17/12/2012 18:54:

---

Se metti la firma (http://freeforumzone.leonardo.it/discussione.aspx?idd=9561389)
Se alleghi un files piccolo che esce dal software ....senza dati sensibili
Se alleghi un files generale di come desideri ottenere i dati.
Vediamo come possiamo fare.

---

Hai ragione! Non sono molto pratico di forum e ieri mi è partito il messaggio incompleto...
Allego sia uno dei file xml sia come vorrei fosse quello excel (molto semplice: accodando i vari xml uno sotto l'altro. Nell'esempio le prime 3 righe vengono dal file che alelgo, le successive da un'altro file)
Una nota: i file xml hanno sempre nomi diversi ma sono nella stessa cartella. Il numero di righe può variare mentre le colonne sono sempre le stesse
Ciao e grazie ancora
Carlo

Non se è colpa mia, mà ci sono problemi.

Sub Macro1()
Dim cartella As String
Dim strFile As String
cartella = "C:\Users\xxxxx\Desktop\excel\Prova\"
With ActiveWorkbook.XmlMaps("FlexToolChange_mapping")
.ShowImportExportValidationErrors = False
.AdjustColumnWidth = True
.PreserveColumnFilter = True
.PreserveNumberFormatting = True
.AppendOnImport = True
End With
strFile = Dir(cartella & "*.xml")
Do While strFile <> ""
ActiveWorkbook.XmlImport URL:=cartella & strFile, ImportMap:=Nothing, _
Overwrite:=False, Destination:=Range("$A$1")
strFile = Dir
Loop
End Sub

Invece volevo dirti una cosa che a me sembra molto facile.
Da Excel premi su sviluppo, poi nel riquadro XML premi importa (vai nella cartella) e selezioni tutti i files.
Mio sembra facile

Grazie!! Provo subito la macro.
La funzione importa da developer mi da un errore di"cannot find an xml map..."
Ti faccio sapere
Carlo

Ciao a tutti, riapro questa discussione per un'esigenza analoga.
Sto usando il portale dell'Agenzia delle Entrate per compilare lo spesometro trimestrale. Per ogni cliente/fornitore il sistema genera un file xml che contiene i dati delle fatture emesse/ricevute.
Vorrei poter caricare tutti gli xml generati (come chiedeva anche cmarti15) così da poter fare una semplice somma di tutti i valori incolonnati (imponibili, iva, ecc) e verificare di non aver fatto errori confrontando le somme ottenute con i valori che ho già nei registri iva.
Ho provato con la procedura indicata da raffaele1953 (Da Excel premi su sviluppo, poi nel riquadro XML premi importa (vai nella cartella) e selezioni tutti i files.) ma excel 2013 mi riporta un errore:
impossibile trovare un mapping xml corrispondente ai dati.
Qualcuno può aiutarmi?

anche per te vale lo stesso discorso, allega un file xml.
Insieme ai file xml che scarichi non c'è un file di mapping ?
Intanto prova questa

Scusate, eccoli.
PS: scusate ma il codice di qui sopra non ho idea di dove metterlo. Avevo anche provato a creare una macro con il codice dei post precedenti ma mi dava un errore anche li.

Specifico anche che se importo un solo file non ci sono problemi ma se ne seleziono più di uno si inchioda con l'errore di cui sopra.

prova questa

E' quasi perfetto!!!
Purtroppo ogni tanto sbaglia gli incolonnamenti e non capisco con quale logica. Probabilmente non accade con i files che ho allegato.

mi sembra che tu ne abbia allegato soltanto uno

No, controlla bene sono tre files. Se provi ad importarli vedrai che le colonne non vengono incolonnate correttamente. Credo che sia perchè in alcuni casi alcuni campi sono vuoti e tutto viene allineato a sx a prescindere dal contenuto.

Ho provato anche la procedura:
- Sviluppo - origine - mapping xml
- aggiungo un file
- trascino i campi che mi interessano nel foglio
- importa - seleziono tutti i files che voglio importare

ma mi importa i valori solo di un file.

i file hanno tutti lo stesso numero di righe e colonne ?

Purtroppo no. Il problema è il numero di colonne. Per ora mi arrangio riallineando a mano gli errori, se si potesse fare in automatico sarebbe perfetto.
Grazie.

Mi sembra un buon lavoro!

Complimenti patel

potresti brevettare questa procedura, sai quanti Italiani ti hanno sognato e ti sognano in questi giorni.....

posso ancora chiederti un consiglio :

nel mio caso ho 9 file quindi li copia correttamente, rimangono però i filtri attivi su tutte le tabelle (una curiosità personale si possono eliminare con un solo comando ) quindi se si va al fondo del file e si inserisce somma non la fa da riga 2 ma dalla prima riga tabella che trova esempio =SOMMA(Z1865:Z2239) e non somma(z2:z2239)


Grazie

Mi aggancio a questo post in quanto mi sembra fare al caso mio solo che non riesco ad ottenere alcun risultato sulla base degli esempi postati. In sostanza vorrei una mano nel creare una istruzione VBA che punti a una directory del server dove vengono salvate tutte le fatture elettroniche in formato xml ricevute dai miei fornitori e che tutte le suddette fatture siano importate tutte nel foglio 1 di excel . La directory del server è così impostata: \\Srvts\str\FEPA_FILE\CICLO PASSIVO\DOWNLOAD DOCUMENTI\
All'interno della cartella documenti ci sono cartelle identificate con la partita iva del fornitore. All'interno delle singole cartelle , identificative la partita iva, si trova una cartella per ogni documento ricevuto (cartelle nominate in questo modo :Doc.N° xxxxxx del xxxxxx). All'interno della cartella identificante ogni singolo documento ricevuto risiedono due file uno in formato html e l'altro in formato xml che è quello che mi interessa. Concludo dicendo che tutti i file xml sono strutturati secondo le specifiche della fatturazione elettronica. Riuscite a darmi una mano?