Domanda:
Buon 2014 a tutti, avrei la necessità di realizzare una macro in Excel (VBA) per copiare una directory: percorso – 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’altro percorso, può utilizzare i FileSystemObject
Questa è la funzione che normalmente utilizzo:
Public Function CopiaDirectory(Origine As String, Destinazione As String)
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder Origine , Destinazione
Set fs = Nothing
End Function
Gli argomenti della funzione sono:
Origine, variabile di tipo Testo
Destinazione, variabile di tipo Testo
Una volta inserita la funzione pubblica in un modulo, la si può richiamare inserendo
al posto di Origine e Destinazione, i percorsi desiderati:
Call CopiaDirectory (“C:\DATI”, “C:\Users\rvincenti\Desktop\”)
in alternativa è possibile inserire i percorsi in un foglio excel e lanciare la macro
con riferimento al contenuto di specifiche celle:
Call CopiaDirectory (Sheet1.Range("A2"), Sheet1.Range("B2")
In entrambi i casi bisogna assicurarsi la correttezza dei percorsi d’origine e di destinazione
In allegato il file con entrambe le soluzioni
APRI
Riccardo Vincenti
Riccardo Vincenti
Ultimi post di Riccardo Vincenti (vedi tutti)
- 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
- 072. Estrazione numeri casuali - 6 Ottobre 2017
- 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
- 070. Contare dati univoci senza Pivot - 21 Settembre 2017
- 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017
This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial 4.0 International