In VBA possiamo eliminare qualsiasi file presente nel computer utilizzando i codici VBA e il codice che viene utilizzato per eliminare qualsiasi file è noto come comando Kill, il metodo per eliminare qualsiasi file è quello prima, forniamo il percorso del file che significa dove il file si trova nel computer e quindi usiamo il comando Kill per eliminare il file.
Come eliminare i file utilizzando il codice VBA?
VBA è la cosa difficile all'inizio, ma man mano che trascorri più tempo con VBA inizierai ad amarlo proprio come me. Possiamo aprire i file da un'altra cartella di un computer, possiamo lavorare con loro e ora possiamo anche eliminare i file usando la codifica VBA. In questo articolo, ti mostreremo come eliminare i file utilizzando il codice VBA nella cartella specifica.
Quando lavoriamo con progetti di grandi dimensioni, di solito creiamo molti file intermedi per supportare il nostro processo. Dopo che tutto il lavoro è stato fatto, è necessario eliminare quei file per evitare qualsiasi tipo di confusione in futuro.
E uno scenario è quando di solito riceviamo un'e-mail salviamo gli allegati per il nostro lavoro regolare o vogliamo solo vedere il rapporto per quel momento e in seguito potremmo dover eliminare quei file.
L'eliminazione manuale di quei file richiederà del tempo o potremmo dimenticarci di salvare e occuperà lo spazio sul nostro computer. Ti mostreremo come eliminare quei file con semplici codici VBA.
Elimina il metodo per eliminare i file in una cartella utilizzando il codice VBA
Una semplice funzione KILL eliminerà la cartella, il file specifico, tutti i file excel, ecc. Dai un'occhiata alla sintassi del metodo KILL in VBA. Il metodo Kill non può eliminare i file di sola lettura.
Nome percorso : il nome del percorso non è altro che il percorso della cartella nel computer per eliminare i file.
Nota: il nome del percorso può includere anche caratteri jolly. Possiamo usare un asterisco (*) e punti interrogativi (?) Come caratteri jolly in Excel.
L'asterisco (*) è utile per abbinare qualsiasi stringa di qualsiasi lunghezza anche zero è considerato.
Il punto interrogativo (?) È utile per trovare la corrispondenza con un solo carattere.
Elimina nome file particolare
Ad esempio, ho una cartella come di seguito.
In questa cartella, voglio eliminare il file denominato "File 5". Inizia il codice con la funzione KILL.
Codice:
Sub Delete_Files () Kill (PathName) End Sub
Copia e incolla il percorso della cartella.
E Incolla tra virgolette.
Elimina "E: \ File Excel"
Ora metti un'altra barra all'indietro (\) e inserisci il nome del file con l'estensione.
Elimina "E: \ File Excel \ File5.xlsx"
Quando si esegue questo codice, verrà eliminato il file denominato "File 5.xlsx" nel percorso della cartella menzionato.
Elimina tutti i file Excel
Per eliminare tutti i file excel nella cartella utilizzando VBA, è necessario utilizzare caratteri jolly con la funzione KILL. Dopo aver menzionato il percorso della cartella, dobbiamo menzionare il file come "* .xl *"
Codice:
Elimina "E: \ File Excel \ *. Xl *"
Quando esegui questo codice, verranno eliminati tutti i file Excel nella cartella.
Abbiamo visto come possiamo eliminare un singolo file excel e tutti i file excel. Ma se vogliamo eliminare tutti i file nella cartella come possiamo eliminarlo. Dato che stiamo usando Excel VBA, può eliminare altri file?
La risposta è si!!! Usa il codice seguente per eliminare tutti i file nella cartella.
Codice:
Elimina "E: \ File Excel \ *. *"
Elimina solo l'intera cartella
È possibile eliminare l'intera cartella stessa?
Sì, è possibile.
Per fare ciò, la prima cosa che dobbiamo fare è eliminare tutti i file nella cartella utilizzando la funzione KILL, quindi per eliminare la cartella dobbiamo utilizzare un'altra funzione chiamata RmDir .
Codice:
RmDir "E: \ File Excel \"
Qui RmDir eliminerà solo la cartella vuota, se c'è qualche sottocartella non può eliminarla.
Elimina tutti i file di testo nella cartella
Per eliminare tutti i file di testo nella cartella utilizzare il codice seguente.
Codice:
Elimina "E: \ File Excel \ *. Txt"
Elimina file di sola lettura
Come ho detto, la funzione KILL non può eliminare i file di "sola lettura" nella cartella. In tal caso, è necessario utilizzare le altre due funzioni "Dir $" e "SetAttr". Di seguito è riportato il codice di esempio per eliminare anche i file di sola lettura.
Codice:
Sub Delete_Files1() Dim DeleteFile As String DeleteFile = " E:\Excel Files\" If Len(Dir$(DeleteFile)) > 0 Then SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
You can download this VBA Delete File Excel Template from here – VBA Delete File Excel Template
