{"id":699,"date":"2013-08-07T12:04:41","date_gmt":"2013-08-07T10:04:41","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=699"},"modified":"2014-04-12T16:58:33","modified_gmt":"2014-04-12T14:58:33","slug":"copiare-file-con-vba","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2013\/08\/copiare-file-con-vba\/","title":{"rendered":"023. Copiare File con VBA"},"content":{"rendered":"
\"Download<\/a><\/div>

Domanda:<\/p>\n

Ho una colonna di Excel dove sono riportati una lista di files (comprensivi di percorso) e in un\\’altra colonna il nome di questi files (con percorso destinazione) che integrano nel nome alcune cose. Il problema \u00e8: con VBA come faccio a realizzare una istruzione che mi copi i files da una parte all\\’altra con un ciclo? Vi ringrazio<\/p>\n

Risposta:
\nposto in un foglio la colonna A con il nome del file da copiare comprensivo di percorso ed estensione,
\ned una colonna B il nome del file da incollare comprensivo di percorso ed estensione,
\npu\u00f2 utilizzare il seguente codice:<\/p>\n

<\/p>\n

Public Sub CopiaFile()\r\nDim Origine As String\r\nDim Destinazione As String\r\n\r\nLast_Row = ActiveSheet.Cells.Find(\"*\", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row\r\n\r\nFor i = 2 To Last_Row\r\n\r\nOrigine = Cells(i, 1)\r\nDestinazione = Cells(i, 2)\r\n\r\nSet fs = CreateObject(\"Scripting.FileSystemObject\")\r\nfs.CopyFile Origine, Destinazione Set fs = Nothing\r\n\r\nNext i\r\n\r\nEnd Sub<\/pre>\n
Allego file d’esempio
\nCopia File con VBA<\/a><\/p>\n
Prima di lanciare la macro bisogna creare in C: la cartella “Cartella Origine” contenente i file “FileA_Orig.xlsx” e “FileB_Orig.xlsx” e sempre in C: la cartella “Cartella Destinazione”<\/p>\n
Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"
Domanda: Ho una colonna di Excel dove sono riportati una lista di files (comprensivi di percorso) e in un\\’altra colonna il nome di questi files (con percorso destinazione) che integrano nel nome alcune cose. Il problema \u00e8: con VBA come … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[13,6],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-bh","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":1129,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/copia-file-con-condizione\/","url_meta":{"origin":699,"position":0},"title":"047. Copia File con condizione","date":"9 Aprile 2014","format":false,"excerpt":"Domanda: Avrei bisogno di una macro che mi permetta di copiare i soli file di testo di una specifica directory che contengono una specifica stringa alfanumerica dalla directory sorgente ad un'altra da specificare. Risposta: E\u2019 possibile risolvere il problema con una solo macro che verifica presenza della stringa nel nome\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":895,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/copiare-file-con-vba-e-rinominarli\/","url_meta":{"origin":699,"position":1},"title":"037. Copiare File con VBA e rinominarli","date":"27 Gennaio 2014","format":false,"excerpt":"Domanda: Non sono un esperto di excel vba , ma vorrei sapere se \u00e8 possibile risolvere questo mio problema. In una cartella di Windows 7 ho un elenco di files (vedi un esempio sotto, di alcuni di essi). Sono tutti con una parte del nome ripetitiva e una parte variabile\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":883,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/esportare-file-con-vba-come-csv-impostando-delimitatore\/","url_meta":{"origin":699,"position":2},"title":"036. Esportare file con VBA come CSV impostando delimitatore","date":"22 Gennaio 2014","format":false,"excerpt":"Domanda: Come posso fare a salvare il file con estensione .csv ma con separatore \";\" invece della \",\"\u00a0? Risposta: Non avendo mai avuto\u00a0la necessit\u00e0 di risolvere questo problema, ho cercato la soluzione in rete dove ho trovato il seguente articolo (I thank the author for sharing code): http:\/\/www.erlandsendata.no\/english\/index.php?d=envbatextexportcsv Vi spiego\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":866,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/copiare-directory-tramite-vba\/","url_meta":{"origin":699,"position":3},"title":"034. Copiare Directory tramite VBA","date":"17 Gennaio 2014","format":false,"excerpt":"Domanda: Buon 2014 a tutti, avrei la necessit\u00e0 di realizzare una macro in Excel (VBA) per copiare una directory: percorso \u2013 C:\\DATI La cartella (directory) contiene 15 file .doc, dopo aver copiato la directory deve essere incollata nel desktop. Risposta: Per copiare una directory in un\u2019altro percorso, pu\u00f2 utilizzare i\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1145,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/estrarre-dati-da-cartelle-e-files-chiusi-2\/","url_meta":{"origin":699,"position":4},"title":"048. Estrarre dati da cartelle e files chiusi – 2","date":"11 Aprile 2014","format":false,"excerpt":"Domanda: La mia necessit\u00e0 \u00e8 quella di copiare da file chiusi xls sempre le stesse celle (a4:u200), che si trovano in una cartella in \"c:\/dati\" e incollarli,nel file attivo in quel momento chiamato archivio, sulla prima riga libera partendo dalla colonna A in sequenza, senza lasciare righe libere. Risposta: Ho\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1155,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/calcolo-percentuale-con-vba\/","url_meta":{"origin":699,"position":5},"title":"049. Calcolo percentuale con VBA","date":"12 Aprile 2014","format":false,"excerpt":"Domanda: Buongiorno, chiedo il vostro aiuto in merito ad un problema con codice vba. Ho la colonna C con dei valori e nell'ultima cella, che pu\u00f2 variare di posizione, il totale. Ora vorrei creare un codice in vba che mi permetta di riportare in colonna D le diverse percentuali di\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/699"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=699"}],"version-history":[{"count":4,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/699\/revisions"}],"predecessor-version":[{"id":1198,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/699\/revisions\/1198"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=699"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=699"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=699"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}