Metodo 1: elimina tutti i file nella cartella<\/strong><\/span><\/p>\n Questa particolare macro eliminer\u00e0 tutti i file nella cartella denominata My_Data<\/strong> .<\/span><\/p>\n Metodo 2: elimina l’intera cartella<\/strong><\/span><\/p>\n Questa particolare macro eliminer\u00e0 l’intera cartella My_Data<\/strong> in modo che non esista pi\u00f9.<\/span><\/p>\n La riga On Error Resume Next<\/strong> indica a VBA che se si verifica un errore e la cartella non viene trovata, non dovrebbe essere visualizzato alcun messaggio di errore.<\/span><\/p>\n Utilizziamo quindi On Error GoTo 0<\/strong> per ripristinare i messaggi di errore alle impostazioni predefinite.<\/span><\/p>\n Se vuoi visualizzare un messaggio di errore se la cartella non viene trovata, rimuovi semplicemente queste due righe dal codice.<\/span><\/p>\n I seguenti esempi mostrano come utilizzare in pratica ciascun metodo con la seguente cartella denominata My_Data<\/strong> che contiene tre file Excel:<\/span> <\/p>\n Diciamo che vogliamo utilizzare VBA per eliminare tutti i file dalla cartella denominata My_Data<\/strong> .<\/span><\/p>\n Per fare ci\u00f2 possiamo creare la seguente macro:<\/span><\/p>\n Una volta eseguita questa macro e aperta nuovamente la cartella, vedremo che tutti i file sono stati eliminati:<\/span> <\/p>\n Se desideri utilizzare VBA per eliminare l’intera cartella denominata My_Data<\/strong> in modo che non esista pi\u00f9, puoi creare la seguente macro:<\/span><\/p>\n Una volta eseguita questa macro e aperto Esplora file, vedremo che la cartella denominata My_Data<\/strong> non esiste pi\u00f9:<\/span> <\/p>\n I seguenti tutorial spiegano come eseguire altre attivit\u00e0 comuni in VBA:<\/span><\/p>\n VBA: come contare il numero di fogli in una cartella di lavoro<\/a> \u00c8 possibile utilizzare i seguenti metodi in VBA per eliminare le cartelle: Metodo 1: elimina tutti i file nella cartella Sub DeleteFolderContents() On Error Resume Next Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.* \u201d On Error GoTo 0 End Sub Questa particolare macro eliminer\u00e0 tutti i file nella cartella denominata My_Data . Metodo 2: elimina l’intera cartella SubDeleteFolder () […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n Sub<\/span> DeleteFolderContents()\n \n On Error Resume Next<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n On Error GoTo 0<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n SubDeleteFolder<\/span> ()\n \n On Error Resume Next<\/span>\n \n 'delete all files in folder<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n \n 'delete empty folder<\/span>\n RmDir \" C:\\Users\\bobbi\\Desktop\\My_Data\\<\/span> \"\n \n On Error GoTo 0<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/delfiles1.jpg\")
<\/p>\n Esempio 1: eliminare tutti i file nella cartella utilizzando VBA<\/strong><\/span><\/h2>\n
Sub<\/span> DeleteFolderContents()\n \n On Error Resume Next<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n On Error GoTo 0<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/delfolder1.jpg\")
<\/p>\n Esempio 2: eliminare un’intera cartella utilizzando VBA<\/strong><\/span><\/h2>\n
SubDeleteFolder<\/span> ()\n \n On Error Resume Next<\/span>\n \n 'delete all files in folder<\/span>\n Kill \u201c C:\\Users\\bobbi\\Desktop\\My_Data\\*.*<\/span> \u201d\n \n 'delete empty folder<\/span>\n RmDir \" C:\\Users\\bobbi\\Desktop\\My_Data\\<\/span> \"\n \n On Error GoTo 0<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/delfolder2.jpg\")
<\/p>\n Risorse addizionali<\/strong><\/span><\/h2>\n
VBA: come estrarre i dati da un’altra cartella di lavoro
VBA: come eliminare un foglio se il nome contiene testo specifico<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"