[Risolto] Importare file fatture elettroniche xml

[Celext]

Ho copiato il contenuto del file xml e l'ho incollato nella cella A1. Il punto è che devo ripetere il processo per migliaia di file xml, e mi servirebbe che il contenuto di ciascun file venga riportato in una cella della colonna A.

[patel]

Codice: Seleziona tutto

Sub ApriFatture_InCartella
seldir = getFolder("scegli", ConvertToUrl("F:\Download"))

Dim  dummy()

Doc=ThisComponent
Sh=Doc.Sheets(0) ' era 1
sPath = seldir & "/"  ' cartella con i file
sFileName = Dir(sPath, 0)
Dim collezione As New Collection
Do While (sFileName <> "")
    row=0 '<<<<<<<<<<<< colonna iniziale
    DocUrl = ConvertToURL(sPath & sFileName)
    iNumber = Freefile
    Open DocUrl For Input As iNumber 'Apre(Open) il file iFileStream per la lettura(Input)
    s=""
    While Not eof(iNumber) 
       Input #iNumber, sLine  
       If sLine <>"" Then
                s=s & sline
       End If
    wend
    Close #iNumber
    Sh.GetCellByPosition(0, row).String =  s
    row = row + 1 
    sFileName = Dir()
Loop
End Sub

[Celext]

Grazie Patel,

la tua ultima versione mi dava il file suddiviso tra meno righe ma sempre diviso. Alla fine ci sono riuscito, anche se su circa 1200 files mi da una riga con i valori della cartella che contiene i file anzichè il testo contenuto nel file:

Codice: Seleziona tutto

Sub ApriFattureInCartella
seldir = getFolder("scegli", ConvertToUrl("C:\Documenti"))
Dim  dummy()

Dim Cell As Object

Doc=ThisComponent
Sh=Doc.Sheets(1)
sPath = seldir & "/"  ' cartella con i file
sFileName = Dir(sPath, 0)
Dim collezione As New Collection
row=0 '<<<<<<<<<<<< riga iniziale

Do While (sFileName <> "")   
    DocUrl = ConvertToURL(sPath & sFileName)
    iNumber = Freefile
    Open DocUrl For Input As iNumber 'Apre(Open) il file iFileStream per la lettura(Input)
    l="" 
    While Not eof(iNumber)                'eof determina la fine del file, quindi esegue le operazioni fino alla fine
      Line Input #iNumber, sLine
      l=l + sLine
    wend
    
     If l <> "" Then
     
                Cell=Sh.GetCellByPosition(5, row)
      End If
 	
 	Cell.string = l
 	row = row + 1                 'indice di riga
 
     Close #iNumber
 
 	'Print s
    'Print row
 
  sFileName = Dir()
Loop
 
End Sub

Function getFolder(sTitle AS String, optional sInitDir) AS String
   oPicker = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
   oPicker.setTitle(sTitle)
   if not ismissing(sInitDir) then oPicker.setDisplayDirectory(sInitDir)
   if oPicker.execute() then getFolder = oPicker.getDirectory()
End Function

[Celext]

Ciao Patel, ho provato la macro stamattina e non funziona più

Mi restituisce questo messaggio: BASIC Run-time error. Object variable not set.
L'errore si verifica su

Cell.String = l

Cosa può essere?

Grazie

[Teo.Texaco]

Buongiorno a tutti,

Ho ripreso in mano il file finale (messo a punto dall'ottimo Patel) che avevo condiviso, ma purtroppo non funziona più a dovere. Nel caso specifico viene dato il messaggio d'errore in allegato.
I file XML da caricare non sono cambiati, hanno la stessa struttura. Sono un asino completo in materia, ma sembra che openoffice non riconosca più il comando presente nella linea evidenziata. Magari è un problema di aggiornamento software?
Grazie in anticipo a chiunque abbia la voglia e la pazienza d'aiutarmi

[Celext]

Ciao Teo,

il mio funziona, lo allego.

Fammi sapere

[Teo.Texaco]

Ciao Celext,
Grazie della risposta, ma il file che hai postato importa il testo all'interno del file XML, ma non ci puoi lavorare sopra.
Il file che aveva fatto Patel invece importava nel foglio 2 i dati facendo una specie di tabella. In questo modo potevi lavorarci per fare operazioni o grafici, che è quello che mi interessa. Ho provato a riscaricare il file originario che avevo allegato, ma non funziona più
HELP ME!!

[Celext]

Si Patel, a me veniva più comodo importare tutto il contenuto del file xml su una cella e poi con le formule di excel prendermi quello che mi serve.

[Teo.Texaco]

Ciao a tutti,
volevo solo dirvi che ho risolto il problema... anche se non ho capito bene il motivo. In pratica il problema era legato alla cartella che conteneva i file XML. Per comodità avevo diviso i file in cartelle per anno. Ogni cartella conteneva un file calc con la macro e i file XML da leggere relativi all'anno e mi dava il problema. Mettendo i file xml nella cartella precedente la macro ha ripreso a funzionare.

[Mrslate]

buongiorno a tutti, stavo cercando una soluzione per visualizzare le fatture elettroniche visto che Assoinvoice sul mio iMac si blocca ed ho trovato questa discussione e una analoga
viewtopic.php?f=9&t=10738

ho scaricato il file FatturaElettrLeggi sia il primo he il secondo ma non riesco ad usarlo: in openoffice non va, in libre office apre la cartella di lavoro, sul foglio 1 appare il pulsante importa files lo schiaccio ma non accade nulla.
sistema operativo Mac OS High Sierra
openoffice 4.1.14
libreoffice 7.4.6.2
sarebbe perfetto questa macro se mi permettesse
1) di selezionare il file
2) di leggerlo in maniera comprensibile sul secondo foglio
grazie per l'aiuto!

[patel]

Probabilmente devi cambiare la sintassi del percorso dei file che per un Mac è diversa da Windows.
Tieni presente che agganciarsi ad una vecchia discussione contrassegnata con Risolto non è una buona idea, meglio aprirne una nuova con oggetto che faccia riferimento al Mac