You are here:--Spostamento massivo file da una cartella all'altra in base ad un elenco
Spostamento massivo file da una cartella all'altra in base ad un elenco2019-12-19T12:06:36+01:00

Home Forum Domande su Excel VBA e MACRO Spostamento massivo file da una cartella all'altra in base ad un elenco

  • Autore
    Articoli
  • AvatarElise
    Partecipante
      Post totali: 8

      Buongiorno a tutti,

      è da giorni che sto tentando di far girare correttamente il seguente codice che ho trovato su internet e che ho adattato alle mie esigenze con risultati alternanti.

      **************************************************************************

      Sub SpostaFile ()

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>Dim srcPath As String</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>     Dim dstFolder As String</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>     Dim dstFile As String</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>     Dim r As Long</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>     </span>dstFolder = Cells(26, 51) ‘Inserire il percorso della cartella di destinazione (r,c)

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>If Right(dstFolder, 1) <> “\” Then</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>         dstFolder = dstFolder & “\”</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>     </span>End If

      r = 15 ‘Inserire il percorso della prima cartella di origine

      srcPath = Cells(r, 51) ‘Inserire la colonna della cartella di origine

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>Do While srcPath <> “”</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>         dstFile = Right(srcPath, Len(srcPath) – InStrRev(srcPath, “\”))</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>         FileCopy srcPath, dstFolder & dstFile</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>         r = r + 1</span>

      <span lang=”EN-US” style=”mso-ansi-language: EN-US;”>         </span>srcPath = Cells(r, 51) ‘Inserire la colonna della cartella di origine

      Loop

      End Sub

      ***********************************************

      Attualmente ho l’elenco dei percorsi dei file di origine che vanno dalla cella AY15 alla cella AY24  es. V:\xxx\xxx<span style=”display: inline !important; float: none; background-color: #ffffff; color: #333333; font-family: Georgia,’Times New Roman’,’Bitstream Charter’,Times,serif; font-size: 16px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;”>\……..\file1.xlsm, V<span style=”display: inline !important; float: none; background-color: #ffffff; color: #333333; font-family: Georgia,’Times New Roman’,’Bitstream Charter’,Times,serif; font-size: 16px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;”>:\xxx\xxx</span><span style=”background-color: #ffffff; color: #333333; display: inline; float: none; font-family: Georgia,&quot; times new roman&quot;,&quot;bitstream charter&quot;,times,serif; font-size: 16px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;”>\……..\file2.xlsm</span></span>

      e il percorso della cartella di destinazione nella cella AY26  es. V<span style=”display: inline !important; float: none; background-color: #ffffff; color: #333333; font-family: Georgia,’Times New Roman’,’Bitstream Charter’,Times,serif; font-size: 16px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;”>:\xxx\xxx</span><span style=”background-color: #ffffff; color: #333333; display: inline; float: none; font-family: Georgia,&quot; times new roman&quot;,&quot;bitstream charter&quot;,times,serif; font-size: 16px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;”>\……..\Test</span>

      Tutte queste cartelle e file si trovano sul server.

      La cosa che assolutamente non capisco è che a parità di stessi identici path di input qualche volta questo codice gira correttamente (e mi pare che questo accada quando passo il path e faccio girare subito la macro) mentre la maggior parte delle volte si blocca restituendo il seguente errore “Run time error ’76 Path not found” evidenziando come riga incriminata “<span style=”display: inline !important; float: none; background-color: #ffffff; color: #333333; font-family: Georgia,’Times New Roman’,’Bitstream Charter’,Times,serif; font-size: 16px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;”>FileCopy srcPath, dstFolder & dstFile”.</span>

      Ho controllato e ricontrollato i path mille volte e sono identici, non cambia nulla da un lancio all’altro. A questo punto non so onestamente come uscirne :-(

      Anticipatamente grazie a tutti per un eventuale aiuto!!!

       

       

       

       

       

    • AvatarKris_9951
      Partecipante
        Post totali: 113

        Salve a tutti!

        Non c’entra nulla con il post in se ma chiedo all’amministratore se c’è un modo per evitare di visualizzare i dettagli del codice HTML quando si copia ed incolla, altrimenti non si capisce niente 😖

      • BySalvBySalv
        Amministratore del forum
          Post totali: 572

          Ciao Kris, devi selezionare il testo e selezionare “Code”, infatti non si capisce molto, adesso vedo se riesco a capirne qualcosa, ma fai prima ad allegare un file con l’esempio e ciò che vuoi ottenere.

          Ciao By Sal (8-D

        • AvatarKris_9951
          Partecipante
            Post totali: 113

            Grazie mille BySal!

            Ma un’altra soluzione non sarebbe anche quella di fare in modo che l’editor di testo di questo forum non trascriva anche il codice HTML?

            A volte è capitato anche a me.

            Quando scrivo un post su questo Forum devo necessariamente scriverlo da zero e non posso fare copia/incolla da un altro editor altrimenti lui trascrive anche il codice HTML…

             

            Grazie per i suggerimenti :-)

          • BySalvBySalv
            Amministratore del forum
              Post totali: 572

              Ciao Non sono io il programmatore, ma puoi ovviare facendo un passaggio intermedio, copia prima su un Blocco note txt e poi fai copia incolla dal blocco note.

              non ho provato però.

              Ciao By Sal (8-D

            • AvatarKris_9951
              Partecipante
                Post totali: 113

                Ciao BySal,

                ci avevo già provato ma non funziona.

                Comunque per quel che mi riguarda quando io scrivo i post su questo forum li scrivo sempre da zero senza fare il copia/incolla.

                Il mio problema è quando lo fanno gli altri, ad esempio questo Post.

                In questo Post io vedo il codice HTML e non ho ancora capito in che modo toglierlo per poter leggere con chiarezza quelli che Elise ha scritto.

                Grazie per il supporto :-)

              • AvatarElise
                Partecipante
                  Post totali: 8

                  Buongiorno a tutti,

                  per maggiore comprensibilità allego il link del file di esempio con codice annesso (per ovvi motivi ho dovuto sostituire i path reali).

                  http://www.filedropper.com/esempio

                  Grazie mille per un eventuale aiuto!

                   

                   

                   

                   

                Devi essere loggato per rispondere a questa discussione.

                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