{"id":866,"date":"2014-01-17T13:47:43","date_gmt":"2014-01-17T12:47:43","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=866"},"modified":"2014-04-12T17:19:11","modified_gmt":"2014-04-12T15:19:11","slug":"copiare-directory-tramite-vba","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/copiare-directory-tramite-vba\/","title":{"rendered":"034. Copiare Directory tramite VBA"},"content":{"rendered":"<div style=text-align:right;><a class=\"wpptopdfenh\" target=\"_blank\" rel=\"noindex,nofollow\" href=\"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/copiare-directory-tramite-vba\/?format=pdf\" title=\"Download PDF\"><img alt=\"Download PDF\" src=\"https:\/\/i0.wp.com\/www.office-guru.com\/wordpress\/wp-content\/plugins\/wp-post-to-pdf-enhanced\/asset\/images\/pdf.png?w=584\" data-recalc-dims=\"1\"><\/a><\/div><p>Domanda:<\/p>\n<p>Buon 2014 a tutti, avrei la necessit\u00e0 di realizzare una macro in Excel (VBA) per copiare una directory: percorso \u2013 C:\\DATI<br \/>\nLa cartella (directory) contiene 15 file .doc, dopo aver copiato la directory deve essere incollata nel desktop.<\/p>\n<p>Risposta:<\/p>\n<p>Per copiare una directory in un\u2019altro percorso, pu\u00f2 utilizzare i FileSystemObject<br \/>\nQuesta \u00e8 la funzione che normalmente utilizzo:<br \/>\n<!--more--><\/p>\n<pre>Public Function CopiaDirectory(Origine As String, Destinazione As String)\r\n\r\nDim fs As Object\r\nSet fs = CreateObject(\"Scripting.FileSystemObject\")\r\n\r\nfs.CopyFolder Origine , Destinazione\r\nSet fs = Nothing\r\n\r\nEnd Function<\/pre>\n<p>Gli argomenti della funzione sono:<\/p>\n<p>Origine,\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0variabile di tipo Testo<br \/>\nDestinazione, variabile di tipo Testo<\/p>\n<p>Una volta inserita la funzione pubblica in un modulo, la si pu\u00f2 richiamare inserendo<br \/>\nal posto di Origine e Destinazione, i percorsi desiderati:<\/p>\n<pre>Call CopiaDirectory (\u201cC:\\DATI\u201d, \u201cC:\\Users\\rvincenti\\Desktop\\\u201d)<\/pre>\n<p>in alternativa \u00e8 possibile inserire i percorsi in un foglio excel e lanciare la macro<br \/>\ncon riferimento al contenuto di specifiche\u00a0celle:<\/p>\n<pre>Call CopiaDirectory (Sheet1.Range(\"A2\"), Sheet1.Range(\"B2\")<\/pre>\n<p>In entrambi i casi bisogna assicurarsi la correttezza dei percorsi d\u2019origine e di destinazione<\/p>\n<p>In allegato il file con entrambe le soluzioni<br \/>\n<a href=\"http:\/\/www.office-guru.com\/wordpress\/?attachment_id=864\/\">APRI<\/a><\/p>\n<p>Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"<p>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: &hellip; <a href=\"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/copiare-directory-tramite-vba\/\">Continua a leggere<span class=\"meta-nav\">&rarr;<\/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-dY","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":699,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/08\/copiare-file-con-vba\/","url_meta":{"origin":866,"position":0},"title":"023. Copiare File con VBA","date":"7 Agosto 2013","format":false,"excerpt":"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 faccio a realizzare una istruzione che mi copi i files\u2026","rel":"","context":"In &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1129,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/copia-file-con-condizione\/","url_meta":{"origin":866,"position":1},"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 &quot;Domande Lettori&quot;","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":866,"position":2},"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 &quot;Domande Lettori&quot;","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":866,"position":3},"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 &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":455,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/10\/invio-mail-vba-spedire-automaticamente-fogli-excel-tramite-outlook\/","url_meta":{"origin":866,"position":4},"title":"Invio mail con VBA: Spedire automaticamente fogli Excel tramite Outlook (anche come PDF)","date":"26 Ottobre 2013","format":false,"excerpt":"Il bisogno e' molto semplice: abbiamo una serie di fogli excel (report) da distribuire in modo selettivo a un insieme di colleghi. Vogliamo creare file excel specifici per ogni collega (gruppo di colleghi) contenente i report ad essi destinati vogliamo poter includere in una mail tale file excel (possibilmente senza\u2026","rel":"","context":"In &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":673,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/08\/selezionare-una-variabile-composta-da-parte-letterale-e-parte-numerica\/","url_meta":{"origin":866,"position":5},"title":"Selezionare una variabile composta da parte letterale e parte numerica","date":"5 Agosto 2013","format":false,"excerpt":"Domanda: Fabio: Ciao, ho necessit\u00e0 di inserire all\u2019interno di una variabile il valore contenuto in un\u2019altra variabile che fa parte di un gruppo di variabili composte da una parte letterale e da una numerica. esempio, voglio costruire parole casuali, inserisco le lettere dell\u2019alfabeto in variabili che chiamer\u00f2 da L1 ad\u2026","rel":"","context":"In &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"https:\/\/i1.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2013\/08\/parola_casuale.gif?resize=350%2C200","width":350,"height":200},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/866"}],"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=866"}],"version-history":[{"count":3,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/866\/revisions"}],"predecessor-version":[{"id":1216,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/866\/revisions\/1216"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=866"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=866"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=866"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}