Risultati da 1 a 6 di 6

Discussione: Inserire data odierna



  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

    Inserire data odierna

    Buongiorno al Forum, ho questa macro che mi permette di esportare in XML, desideravo che in automatico mi inseriva la data del giorno, sia a DataEsportazione che nei tag XML <DataDoc> </DataDoc>. Mi potreste aiutare ?

    Codice: 
    Sub registra()Dim wks1 As Worksheet, wks2 As Worksheet
        Dim x As Integer, y As Integer
        'Set wks1 = Worksheets("Principale")
        Set wks2 = Worksheets("Archivio")
        Application.ScreenUpdating = False
        nomefile = "esempio_" & 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=""20160302"">"
    Print #1, "  <ListaDocumenti>"
    Print #1, "    <Documenti>"
    Print #1, "      <Testata>"
    Print #1, "        <DataDoc>" Format(Date, "; dd - mm - yyyy; "); "</DataDoc>"
    Print #1, "      </Testata>"
    
    
    
    
    For riga = 2 To Maxriga
        Print #1, "      <Righe>"
        For col = 5 To 28
            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

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301
    Ciao,
    dovrebbe essere sufficiente cambiare la scritta in rosso nella riga del tuo codice:
    Codice: 
    Print #1, "<Unknown xmlns=""http://www.exampleURI.com/Schema1"" DataEsportazione=" now ">"
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  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
    Grazie ges, solo che nel file esportato mi mette anche l'orario è possibile avere solo la data?

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301
    Devi formattare la cella (o le celle) in cui compare la data.
    Ti posizioni sulla cella --- > Tasto destro del mouse ----> Formato celle ---- > Numero ----> Data
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979
    Credo che Lety88 intenda dire che scrive anche l'orario insieme alla data

    Se è così devi sostituire Now con Date()

    Se vuoi un formato particolare devi implementare Date() con Format()

    es.
    Forma(Date(), "ddmmyyyy")

    dove:
    d=giorno
    m=mese
    y=anno

  6. #6
    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
    Grazie ges e Grazie Rubik72 ho risolto.

Discussioni Simili

  1. [Risolto] somma valori alla data odierna
    Di zizus nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 12/12/16, 17:02
  2. [Risolto] Ricerca data più vicina alla data odierna
    Di KARLO16 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 12/12/16, 11:07
  3. [Risolto] Formattazione condizionata di intera colonna in base data odierna
    Di KARLO16 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 25/10/16, 23:00
  4. Inserire data odierna o un'altra data.
    Di Laura Belli nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 02/09/16, 09:16
  5. Evidenziare la data odierna in un calendario
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 34
    Ultimo Messaggio: 18/06/16, 18:33

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
  •