Risultati da 1 a 5 di 5

Discussione: Salvare il file nella stessa posizione dov'è presente la cartella excel



  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

    Salvare il file nella stessa posizione dov'è presente la cartella excel

    Salve.

    Come posso modificare la seguente macro affinché mi salvi il file nella stessa posizione dov'è presente la cartella excel? Perché adesso me lo salva in Documenti.

    Vi ringrazio per la cortese attenzione.

    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 = "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, "dd-mm-yyyy"); ">"
    Print #1, "  <ListaDocumenti>"
    Print #1, "    <Documenti>"
    Print #1, "      <Testata>"
    Print #1, "        <DataDoc>"; Format(Date, "ddmmyyyy"); "</DataDoc>"
    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

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    Re: Salvare il file nella stessa posizione dov'è presente la cartella excel

    Prova così:
    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 = 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, "dd-mm-yyyy"); ">"
    Print #1, "  <ListaDocumenti>"
    Print #1, "    <Documenti>"
    Print #1, "      <Testata>"
    Print #1, "        <DataDoc>"; Format(Date, "ddmmyyyy"); "</DataDoc>"
    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

  3. #3
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2075
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Salvare il file nella stessa posizione dov'è presente la cartella excel

    @Rubik_72

    mi sfugge un particolare che sarei, invece, interessato a capire.

    tu proponi di aggiungere l indirizzo del workbook al PercorsoNomeFile e di non cambiare altro.
    Ma, quindi, chi decide, nella routine, che senza quest aggiunta, il salvataggio avvenga nella cartella dovumenti dell user del PC, piuttosto che in qualsiasi altra?
    :92:

  4. #4
    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: Salvare il file nella stessa posizione dov'è presente la cartella excel

    Grazie Rubik72 funziona perfettamente.

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    Re: Salvare il file nella stessa posizione dov'è presente la cartella excel

    Di default Excel salva nella cartella Documenti dell'utente. Volendo si può cambiare il percorso da opzioni di Excel / salvataggio

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  6. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. Creazione Packing List - Dati Presenti su Altri Fogli ma nella Stessa Cartella
    Di Bauhaus nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/03/17, 00:12
  2. Creazione Packing List - Dati Presenti su Altri Fogli ma nella Stessa Cartella
    Di Bauhaus nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 06/03/17, 00:12
  3. Risposte: 16
    Ultimo Messaggio: 30/11/16, 22:19
  4. Risposte: 23
    Ultimo Messaggio: 01/11/16, 17:22
  5. Accodamento da più file dbf di una stessa cartella di archiviazione.
    Di pipp333 nel forum Domande su Microsoft Access
    Risposte: 3
    Ultimo Messaggio: 15/10/16, 17:23

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
  •