Risultati da 1 a 3 di 3

Discussione: Macro che mi stampa file xml



  1. #1
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7

    Macro che mi stampa file xml

    Buongiorno a tutti come va? spero bene.

    Ho un problemino nel stampare un file xml con vba. La funzione è la segunete:

    Codice: 
    Sub registra()
    Dim wks1 As Worksheet, wks2 As Worksheet
        Dim x As Integer, y As Integer
        Dim ivam As String, ivad As Integer
        ivam = "06311410721"
        'Set wks1 = Worksheets("Principale")
        Set wks2 = Worksheets("Archivio")
        Application.ScreenUpdating = False
        nomefile = ThisWorkbook.Path & "\siad_produzione_" & Right(Date, 4) & Mid(Date, 4, 2) & Left(Date, 2) & ".xml"
    Open nomefile For Output As #1
    Maxriga = Cells(2, "E").End(xlDown).Row
    Print #1, "<Unknown xmlns=""http://www.exampleURI.com/Schema1"" DataEsportazione="; Format(Date, "yyyymmdd"); ">"
    Print #1, "  <ListaDocumenti>"
    Print #1, "    <Documenti>"
    Print #1, "      <Testata>"
    'Print #1, "        <TipoDocumento>"; --;"</TipoDocumento>"
    Print #1, "        <DataDoc>"; Format(Date, "ddmmyyyy"); "</DataDoc>"
    Print #1, "        <PIVAMittente>"; ivam; "</PIVAMittente>"
    Print #1, "        <PIVADestinatario>"; ivam; "</PIVADestinatario>"
    Print #1, "      </Testata>"
    
    
    
    
    For riga = 2 To Maxriga
        Print #1, "      <Righe>"
        For col = 5 To 26
            recxml = "        <" & wks2.Cells(1, col).Text & ">" & wks2.Cells(riga, col).Text & "</" & wks2.Cells(1, col).Text & ">"
            Print #1, recxml
        Next col
        Print #1, "      </Righe>"
    Next riga
    
    
    Print #1, "    </Documenti>"
    Print #1, "  </ListaDocumenti>"
    Print #1, "</Unknown>"
    Close #1
    MsgBox ("Foglio di lavoro esportato in XML")
    
    
    End Sub
    A me nel file stampa questo:
    <Unknown xmlns="http://www.exampleuri.com/Schema1" DataEsportazione=20160901>

    Invece vorrei che stampasse questo:

    <Unknown xmlns="http://www.exampleuri.com/Schema1" DataEsportazione="20160901">

    nella stamp adel file deve aggiungere i doppi apici alla data.


    Vi ringrazio per la cortese attenzione

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1106
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Macro che mi stampa file xml

    Print #1, "<Unknown xmlns=""http://www.exampleURI.com/Schema1"" DataEsportazione="""; Format(Date, "yyyymmdd"); """>"

  3. #3
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7

    Re: Macro che mi stampa file xml

    Grazie mille patel ti auguro una buona giornata.

Discussioni Simili

  1. Protezione File Word - Solo lettura e stampa
    Di claudiopsr nel forum Domande sul Microsoft Word
    Risposte: 7
    Ultimo Messaggio: 29/08/17, 13:21
  2. [Risolto] Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio
    Di Nicola nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 23/09/16, 17:56
  3. stampa unione word da file di dati excel
    Di CRISTIAN nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 16/06/16, 12:34
  4. Problema macro stampa
    Di karotto nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 15/03/16, 14:36
  5. Stampa unione da file Excel a file Excel
    Di Sandra nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 17/11/15, 17:46

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •