You are here:---Rispondi a: Gestione Fattura elettronica con excel
Rispondi a: Gestione Fattura elettronica con excel 2018-10-31T13:55:48+00:00

Home Forum Domande su Excel VBA e MACRO Gestione Fattura elettronica con excel Rispondi a: Gestione Fattura elettronica con excel

rexottantotto
Partecipante
    Post totali: 119

    Per esempio in questo link

    https://www.freeforumzone.com/discussione.aspx?idd=10962202

    ho trovato un esempio molto interessante.

    Nel file ho trovato questo codice (per me arabo):

    Sub SaveAsXml()
    Dim Fso As Object, Origine As Object, Destinazione As Object, Fo As Object, Fd As Object
    Dim Tn, Nome As String, I As Long, sInput As String
    Application.DisplayAlerts = False
    Tn = Split(ThisWorkbook.Name, “.”)
    For I = LBound(Tn) To UBound(Tn) – 1
    Nome = Nome & Tn(I) & “.”
    Next I
    fname = ThisWorkbook.Path & “\” & Nome & “xml”
    ThisWorkbook.SaveAsXMLData Filename:=fname, Map:= _
    ThisWorkbook.XmlMaps(“FatturaElettronica_mapping”)
    Application.DisplayAlerts = True
    Set Fso = CreateObject(“Scripting.FileSystemObject”)
    Set Fo = Fso.GetFile(fname)
    Set Origine = Fo.OpenAsTextStream(1, -2)
    Fso.CreateTextFile ThisWorkbook.Path & “\Temp_” & Nome & “xml”
    Set Fd = Fso.GetFile(ThisWorkbook.Path & “\Temp_” & Nome & “xml”)
    Set Destinazione = Fd.OpenAsTextStream(2, -2)
    I = 0
    With Origine
    For I = 1 To 2
    sInput = .readline
    Next
    sInput = “<?xml version=””” & “1.0” & “”” encoding=” & “””UTF-8″”” & “?>”
    Destinazione.writeline sInput
    sInput = “<?xml-stylesheet type=””” & “text/xsl””” & ” href=””” & “fatturapa_v1.0.xsl””” & “?>”
    Destinazione.writeline sInput
    sInput = “<p:FatturaElettronica versione=””” & “1.0”””
    Destinazione.writeline sInput
    sInput = “xmlns:ds=””” & “http://www.w3.org/2000/09/xmldsig#”””
    Destinazione.writeline sInput
    sInput = “xmlns:p=””” & “http://www.fatturapa.gov.it/sdi/fatturapa/v1.0″””
    Destinazione.writeline sInput
    sInput = “xmlns:xsi=””” & “http://www.w3.org/2001/XMLSchema-instance””” & “>”
    Destinazione.writeline sInput

    While Not .AtEndOfStream
    sInput = .readline
    If .AtEndOfStream Then Destinazione.writeline “</p:FatturaElettronica>” Else Destinazione.writeline sInput
    Wend
    End With
    Origine.Close
    Destinazione.Close
    Nome = Fo.Name
    Fo.Delete
    Fd.Name = Nome
    Set Fo = Nothing
    Set Fd = Nothing
    Set Origine = Nothing
    Set Destinazione = Nothing
    Set Fso = Nothing
    End Sub

    Ebbene l’autore di quel file con questo codice è riuscito a fare una fattura elettronica.

    Solo che è limitata ad un Libero Professionista e da modificare per le aziende.

    Se solo si riuscisse a capire il codice penso che poi chiunque sia in grado di farla.

     

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi