Previous page | 1 | Next page
Facebook  

Modicare in esportazione file creato con mapping xml

Last Update: 11/7/2014 9:57 AM
Author
Print | Email Notification    
Post: 1
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
10/25/2014 9:24 AM
 
Modify
 
Delete
 
Quote

Modicare in esportazione file creato con mapping xml - Fattura Elettronica
Per il mio lavoro ho necessità di poter fatturare con il nuovo formato xml (fattura elettronica).
Ho creato un foglio excel che mi permette di esportare in file xml gli input da celle.
Solo alcuni dati, quelli segnati in giallo, sarebbero frequentemente modificati. Gli altri rimarrebbero fissi.
Il problema è che non riesco a far modificare, al momento della esportazione, il file xml nella parte iniziale del codice, prima dell'header, nella parte, per intenderci, in cui vengono descritti i fogli di stile, versione, etc.
Questo comporta che devo intervenire manualmente sul codice xml.

Il codice corretto lo riporto qui sotto

Altro problema, nel file esportato non riesco a fare in modo che i due zeri dopo la virgola vengano esposti nel file xml.
Senza questo formato (NR.00) non vengono accettati dalla Agenzie delle entrate. Sono per questo costretto ad inserire manualmente, come testo, nelle celle mappate, i numeri nel formato nr.00.

Questo dovrebbe essere il codice da inserire, uguale in ogni fattura elettronica prima dell'header
<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="fatturapa_v1.0.xsl"?>
<p:FatturaElettronica versione="1.0"
xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
xmlns:p="http://www.fatturapa.gov.it/sdi/fatturapa/v1.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
.........
</p:FatturaElettronica>

Questo è quello che viene nel file esportato
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<ns1:FatturaElettronica xmlns:ns1="http://www.fatturapa.gov.it/sdi/fatturapa/v1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versione="1">
.........
</ns1:FatturaElettronica>
E' l'unica modifica che devo fare manualmente sul codice...
Come posso allegare il mio file excel?
------------
Office 2010 windows 7
[Edited by offtime 10/25/2014 9:26 AM]
E' giusto adorare Gesù?Testimoni di Geova Online...136 pt.6/19/2019 10:53 PM by barnabino
Formula per cancellare dati all'interno di un campo definito con data43 pt.6/19/2019 7:24 PM by Pako96
Monica Matano (RAIsport)TELEGIORNALISTE FANS FORU...42 pt.6/19/2019 8:49 PM by Sir_Anthony
Post: 2,728
Registered in: 3/13/2012
Location: LIVORNO
Age: 74
Veteran User
2010
OFFLINE
10/25/2014 10:41 AM
 
Modify
 
Delete
 
Quote

2 alternative
1) zippa il file e allegalo tramite l'apposito pulsante grigio
2) caricalo su un sito di share e incolla qui il link

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 1
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
10/25/2014 11:02 AM
 
Modify
 
Delete
 
Quote

Microsoft Office 2010 - Windows 7
Post: 631
Registered in: 4/24/2004
Location: TERAMO
Age: 58
Senior User
2010
OFFLINE
10/26/2014 12:41 AM
 
Modify
 
Delete
 
Quote

Salve.
Questa macro salva il file in formato xml e copia il file xml su un nuovo file correggendo l'errore
Public 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
    ThisWorkbook.SaveAsXMLData Filename:="D:\Documenti\12345.xml", Map:= _
        ThisWorkbook.XmlMaps("FatturaElettronica_mapping")
    Nome = ""
    Application.DisplayAlerts = True
    Tn = Split(ThisWorkbook.Name, ".")
    For I = LBound(Tn) To UBound(Tn) - 1
        Nome = Nome & Tn(I) & "."
    Next I
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Fo = Fso.GetFile(ThisWorkbook.Path & "\" & Nome & "xml")
    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)
    With Origine
        While Not .AtEndOfStream
            sInput = .readline
            If InStr(sInput, "UTF-8") <> 0 Then
                sInput = ""
            End If
            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
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 2
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 9:52 AM
 
Modify
 
Delete
 
Quote

Re:
Zer0kelvin, 26/10/2014 00:41:

Salve.
Questa macro salva il file in formato xml e copia il file xml su un nuovo file correggendo l'errore
Public Sub SaveAsXml()
.....cut




ti annuncio che dovrai avere la pazienza di spiegarmi dall'inizio, conosco un po html e la sua logica e per questo sono piu in confidenza con xml che con le macro di excel.
1. Immagino che il salvataggio file non avvenga piu con il comando esporta della scheda "sviluppo" ma direttamente dalla macro.
2. Se incollo la macro così com'è nel foglio excel al debug si ferma, ovviamente, ThisWorkbook.SaveAsXMLData Filename:="D:\Documenti\12345.xml" che indica un file xml.
Ho provato a mettere la path di un file esistente e il debug si ferma a Fso.CreateTextFile ThisWorkbook.Path & "\Temp_" & Nome & "xml"
Calcola che vado a tentoni perche non conosco il signifcato delle stringhe di comando.
3. Ho un altro problema, meno importante, quello di utilizzare le celle mappate come risultanti di fogli di calcolo.
Che questo si possa fare non c'è dubbio però il problema è che excel si rifiuta di mettere i due zeri dopo la virgola, ove nel calcolo non ci siano decimali (per es. 40.00 diventa 40 senza decimali), questo impedisce che l'agenzia delle entrate accetti il file.
Microsoft Office 2010 - Windows 7
Post: 2,759
Registered in: 3/13/2012
Location: LIVORNO
Age: 74
Veteran User
2010
OFFLINE
11/6/2014 11:33 AM
 
Modify
 
Delete
 
Quote

mi sembra che ci sia qualche errore nella macro di zero, prova questa
Sub Save_AsXml()
Dim Fso As Object, Origine As Object, Destinazione As Object, Fo As Object, Fd As Object, fname as string
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)
    With Origine
        While Not .AtEndOfStream
            sInput = .readline
            If InStr(sInput, "UTF-8") <> 0 Then
                sInput = ""
            End If
            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


[Edited by patel45 11/6/2014 11:34 AM]

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 4
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 2:33 PM
 
Modify
 
Delete
 
Quote

Ora crea un file xml ma ho bisogno di capire...
Se non ho capito male una routine if then stabilisce se inserire del testo.
Credo sia if utf8 then "testo"
Non ho capito esattamente pero la sintassi da usare.
Se incollo al posto della stringa inserita il testo che voglio sostituire da errore.
Scusa ma non so leggere affatto la macro
[Edited by offtime 11/6/2014 2:38 PM]
Microsoft Office 2010 - Windows 7
Post: 327
Registered in: 3/29/2012
Location: VARESE
Age: 64
Senior User
2010
OFFLINE
11/6/2014 3:15 PM
 
Modify
 
Delete
 
Quote

Ciao offtime,

guarda se questo esempio va bene

http://www.fatturapa.gov.it/export/fatturazione/sdi/fatturapa/v1.0/IT01234567890_44444.xml

peppo

Excel 2010
Post: 5
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 3:24 PM
 
Modify
 
Delete
 
Quote

Scusa Peppo ma io conosco perfettamente il formato della fattura elettronica.
Qui si discuteva come crearla con excel e la modifica di alcune righe che in intestazione rendono il file inaccettabile per il SDI.
Mi mancano soltanto un pezzetto di codice...
Microsoft Office 2010 - Windows 7
Post: 2,761
Registered in: 3/13/2012
Location: LIVORNO
Age: 74
Veteran User
2010
OFFLINE
11/6/2014 3:34 PM
 
Modify
 
Delete
 
Quote

Re:
offtime, 06/11/2014 14:33:

Ora crea un file xml ma ho bisogno di capire...
Se non ho capito male una routine if then stabilisce se inserire del testo.
Credo sia if utf8 then "testo"
Non ho capito esattamente pero la sintassi da usare.
Se incollo al posto della stringa inserita il testo che voglio sostituire da errore.
Scusa ma non so leggere affatto la macro


Io non conosco l'argomento, mi sono limitato a correggere le sviste di Zero che credo non abbia testato il codice, ora occorre aspettare il suo intervento.



----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 664
Registered in: 4/24/2004
Location: TERAMO
Age: 58
Senior User
2010
OFFLINE
11/6/2014 3:37 PM
 
Modify
 
Delete
 
Quote

Re:
patel45, 06/11/2014 11:33:

mi sembra che ci sia qualche errore nella macro di zero, prova questa


In effetti il codice che ho allegato sopra era una versione di prova; il codice corretto è quello allegato da Patel.
Bisogna solo vedere se il file prodotto viene riconosciuto correttamente.
L'esportazione e correzione del file possono, per comodità, essere collegati ad un pulsante sul foglio.

Per quanto riguarda l'altro problema, non ti so dire se esista un'impostazione xml idonea.
Dal lato Excel si può però fare in modo che, quando viene inserito un numero in uno dei campi predisposti, questo venga automaticamente adattato al formato richiesto.
Inserisci questo nel modulo di codice del foglio interessato (controlla che le celle siano quelle giuste):
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If IsNumeric(Target) And Not Intersect(Target, Range("B93,B95,B103,B105,B107,B109,B111,B124,B126,B128,B134,B136,B150")) Is Nothing Then
            Application.EnableEvents = False
            Target = Replace(Target, ",", ".")
            If InStr(Target, ".") = 0 Then Target = Target & ".00"
            Application.EnableEvents = True
        End If
    End If
End Sub

**EDIT**
Allego il file con le modifiche già inserite; clicca sul pulsante per generare il file xml.

[Edited by Zer0kelvin 11/6/2014 3:47 PM]
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 328
Registered in: 3/29/2012
Location: VARESE
Age: 64
Senior User
2010
OFFLINE
11/6/2014 3:45 PM
 
Modify
 
Delete
 
Quote

Ciao offtime,

se fai clik con il tasto destro sulla pagina e selezioni:
"Visualizza sorgente pagina" trovi il codice da inserire all'inizio.

"Questo dovrebbe essere il codice da inserire, uguale in ogni fattura elettronica prima dell'header


xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
xmlns:p="http://www.fatturapa.gov.it/sdi/fatturapa/v1.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
.........
"
peppo

Excel 2010
Post: 664
Registered in: 4/24/2004
Location: TERAMO
Age: 58
Senior User
2010
OFFLINE
11/6/2014 3:52 PM
 
Modify
 
Delete
 
Quote

Re:
offtime, 06/11/2014 14:33:

Ora crea un file xml ma ho bisogno di capire...
Se non ho capito male una routine if then stabilisce se inserire del testo.
Credo sia if utf8 then "testo"
Non ho capito esattamente pero la sintassi da usare.
Se incollo al posto della stringa inserita il testo che voglio sostituire da errore.
Scusa ma non so leggere affatto la macro


Qui non ho capito, cos'è che vuoi inserire?
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 6
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 4:40 PM
 
Modify
 
Delete
 
Quote

lo dicevo ad inizio messaggio, ho bisogno di mettere il riferimento al foglio di stile che c'è nella intestazione e togliere il tag ns fattura.

Il testo corretto del codice XML da principio fino a FatturaElettronicaHeader è questo:

?xml version="1.0" encoding="UTF-8"?
?xml-stylesheet type="text/xsl" href="fatturapa_v1.0.xsl"?
p:FatturaElettronica versione="1.0"
xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
xmlns:p="http://www.fatturapa.gov.it/sdi/fatturapa/v1.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
---------------
Alla fine del codice, in chiusura il tag, deve chiudersi con
/p:FatturaElettronica

ho tolto gli apici che non andavano daccordo con il formato html ma credo si capisca lo stesso
[Edited by offtime 11/6/2014 4:51 PM]
Microsoft Office 2010 - Windows 7
Post: 8
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 4:56 PM
 
Modify
 
Delete
 
Quote

Re: Re:
Zer0kelvin, 06/11/2014 15:37:


In effetti il codice che ho allegato sopra era una versione di prova; il codice corretto è quello allegato da Patel.
Bisogna solo vedere se il file prodotto viene riconosciuto correttamente.
L'esportazione e correzione del file possono, per comodità, essere collegati ad un pulsante sul foglio.

Per quanto riguarda l'altro problema, non ti so dire se esista un'impostazione xml idonea.
Dal lato Excel si può però fare in modo che, quando viene inserito un numero in uno dei campi predisposti, questo venga automaticamente adattato al formato richiesto.
Inserisci questo nel modulo di codice del foglio interessato (controlla che le celle siano quelle giuste):
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If IsNumeric(Target) And Not Intersect(Target, Range("B93,B95,B103,B105,B107,B109,B111,B124,B126,B128,B134,B136,B150")) Is Nothing Then
            Application.EnableEvents = False
            Target = Replace(Target, ",", ".")
            If InStr(Target, ".") = 0 Then Target = Target & ".00"
            Application.EnableEvents = True
        End If
    End If
End Sub

**EDIT**
Allego il file con le modifiche già inserite; clicca sul pulsante per generare il file xml.




Sono cieco io o non vedo l'allegato? [SM=x423021]
Il problema del .00 è risolto grazie!!!!
[Edited by offtime 11/6/2014 5:03 PM]
Microsoft Office 2010 - Windows 7
Post: 2,762
Registered in: 3/13/2012
Location: LIVORNO
Age: 74
Veteran User
2010
OFFLINE
11/6/2014 5:05 PM
 
Modify
 
Delete
 
Quote

prova questa
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 = ""
        Destinazione.writeline sInput
        sInput = ""
        Destinazione.writeline sInput
        sInput = ""
        Destinazione.writeline sInput
        
        While Not .AtEndOfStream
            sInput = .readline
            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

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 9
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 5:35 PM
 
Modify
 
Delete
 
Quote

Da errore di sintassi alla riga 28 e alla 46 è rosso
[Edited by offtime 11/6/2014 5:36 PM]
Microsoft Office 2010 - Windows 7
Post: 2,763
Registered in: 3/13/2012
Location: LIVORNO
Age: 74
Veteran User
2010
OFFLINE
11/6/2014 6:18 PM
 
Modify
 
Delete
 
Quote

ti allego il file, la macro che vedi sul forum non è quella reale

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 10
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 6:33 PM
 
Modify
 
Delete
 
Quote

Funziona perfettamente eseguendo la seconda macro!!!!
Capisco che ho già chiesto troppo ma manca solo una parte di codice....
Alla fine del file XML andrebbe il tag di chiusura.
Attualmente l'ultima riga del codice XML come puoi notare chiude in modo diverso....
Andrebbe corretta solo l'ultima riga del codice XML, da
/ns1:FatturaElettronica

a

/p:FatturaElettronica

Ve ne sarò eternamente grato!
Alla fine potrò assegnare la macro ad un tasto e posso pubblicare il file nella sezione dei lavori completi!
Ho apportato tutti i miglioramenti che mi avete scritto
Microsoft Office 2010 - Windows 7
Post: 666
Registered in: 4/24/2004
Location: TERAMO
Age: 58
Senior User
2010
OFFLINE
11/6/2014 6:35 PM
 
Modify
 
Delete
 
Quote

Il mio allegato era questo.
Purtroppo l'upload degli allegati ogni tanto fallisce...
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 667
Registered in: 4/24/2004
Location: TERAMO
Age: 58
Senior User
2010
OFFLINE
11/6/2014 6:43 PM
 
Modify
 
Delete
 
Quote

Per l'ultima modifica, dovrebbe andar bene questo:
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 = ""
        Destinazione.writeline sInput
        sInput = ""
        Destinazione.writeline sInput
        sInput = ""
        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
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 11
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 7:09 PM
 
Modify
 
Delete
 
Quote

Grazie!!! corretto un piccolo errore, ora va benissimo!!!
Metto un tasto ed ho finito!
Grazie veramente!
Non riesco ad allegare il file finito
[Edited by offtime 11/6/2014 7:20 PM]
Microsoft Office 2010 - Windows 7
Post: 669
Registered in: 4/24/2004
Location: TERAMO
Age: 58
Senior User
2010
OFFLINE
11/6/2014 7:35 PM
 
Modify
 
Delete
 
Quote

Prova a zipparlo.
__________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya)
Post: 12
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 7:41 PM
 
Modify
 
Delete
 
Quote

Ok grazie, io lo testo un po poi lo metto tra i lavori completati.
Il file è stato creato per me che di mestiere faccio l'avvocato ma va benone per qualunque professionista, unico limite una sola linea di fattura ma già è tanto così!
Ovviamente rende la vita facile in quanto salvi i tuoi dati e cambi solo gli onorari con il foglio di calcolo e i dati della P.A.
Ancora grazie!
Microsoft Office 2010 - Windows 7
Post: 2,764
Registered in: 3/13/2012
Location: LIVORNO
Age: 74
Veteran User
2010
OFFLINE
11/6/2014 8:00 PM
 
Modify
 
Delete
 
Quote

sarebbe utile un foglio di istruzioni per l'uso

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 13
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/6/2014 9:26 PM
 
Modify
 
Delete
 
Quote

ok, fatto.
Allego tutto qui e nella sezione apposita
Microsoft Office 2010 - Windows 7
Post: 16
Registered in: 10/25/2014
Location: MESSINA
Age: 50
Junior User
Office2010 64 bit
OFFLINE
11/7/2014 9:57 AM
 
Modify
 
Delete
 
Quote

Mi sono accorto che al momento della esportazione gli zeri dopo la virgola spariscono... [SM=x423054]
Rimane comunque un ottimo lavoro
Microsoft Office 2010 - Windows 7
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 11:49 PM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com