Tutorial para eliminar archivos de forma masiva mediante un sencillo código (macro) de Visual Basic (VBA).
La macro utilizada:
------------------
Sub EliminarArchivos()
' / aprendizdeexcel
Dim RutaArchivo, chequeo1, chequeo2 As String
Sheets("Eliminar").Select
chequeo1 = Range("N1").Value
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
RutaArchivo = Range("A" & i).Value
If chequeo1 = "Verdadero" Then
chequeo2 = MsgBox("¿Quieres eliminar el archivo? " & RutaArchivo, vbYesNo + vbQuestion, "Aprendiz de Excel")
If chequeo2 = vbYes Then
Kill RutaArchivo
Else
End If
Else
Kill RutaActual
End If
Next
----------------
Para descargar la plantilla debéis SUSCRIBIROS al canal, darle me gusta al vídeo y COMENTAR EN EL VÍDEO DE RU-vid que queréis la plantilla. El enlace de descarga funcionará a partir de ese momento (pestaña archivo y descargar):
drive.google.com/file/d/1sKJQ...
Índice:
0:00 Introducción
2:30 Código VBA eliminar archivos
9:44 Probar código
2 авг 2024