🧹 Liberar espacio en disco duro usando macro en Excel y Explorador de Windows

🔥 Platicando con Caro de SMARTpro Academy, hablamos sobre la necesidad de borrar archivos grandes para liberar espacio en el disco duro.

👉 En este video te mostraré 2 técnicas: una en Windows y otra usando una macro en Excel.

Ver video Eliminar archivos desde Excel y Windows

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Eliminar archivos desde Windows

Eliminar archivos desde el explorador de Windows
Eliminar archivos desde el explorador de Windows.

El objetivo es filtrar todos los archivos de video tipo MP4 y eliminar los más grandes o pesados.

  • Entramos al Explorador de archivos usando Windows + E.
  • Entramos a la carpeta que deseamos depurar.
  • En la parte superior derecha ingresamos el texto *.mp4

Para mandar los archivos a la Papelera reciclaje solo presionamos [Supr] en nuestro teclado o damos Click derecho y elegimos Eliminar.

Si quieres eliminar los archivos de manera permanente, presiona Shift + Supr.

Enlistar nombres de archivos usando EXCELeINFO add-in.

Enlistar archivos de una carpeta usando EXCELeINFO add-in en Excel
Enlistar archivos de una carpeta usando EXCELeINFO add-in en Excel.

Enseguida te mostraré una macro para eliminar archivos desde Excel, pero primero necesitamos tener las rutas completas de los archivos a eliminar.

Lo haremos usando mi complemento EXCELeINFO add-in.

  • Nos vamos a la pestaña EXCELeINFO.
  • En la sección Archivos elegimos Listar nombres de archivos de una carpeta.
  • Elegimos la carpeta, la extensión y si deseamos buscar en subcarpetas.

Una vez que tenemos los nombres y las rutas completas de los archivos, ahora usaremos una macro para eliminar los archivos desde Excel.

Macro para eliminar archivos

La siguiente macro deberá ir en un Módulo normal.

Option Explicit

'Mi canal de YouTube | youtube.com/user/sergioacamposh
'Mi Sitio | exceleinfo.com
'Descarga mi add-in | addin.exceleinfo.com
'Obtén la Certificación Excel Expert | exceleinfo.com/certificacion-mos

Sub Eliminar()
Dim Pregunta As Byte
Dim Celda As Range
Dim Nombre As String
Dim Nombre1 As String

Pregunta = MsgBox("Deseas eliminar los archivos seleccionados?", vbYesNo + vbQuestion)

If Pregunta = vbYes Then
    For Each Celda In Selection
        Kill Celda.Value
        Nombre = Celda.Value
        Nombre1 = Nombre1 & vbNewLine & Nombre
    Next Celda

    MsgBox "Eliminados:" & vbNewLine & Nombre1

Else 'No
    MsgBox "No"
End If

End Sub

Ejecutar la macro desde un botón en la QAT que se muestre sólo en el archivo

La macro anterior tiene un propósito específico, por lo que debe ejecutarse sólo en el archivo que la contiene.

Sigue los siguientes pasos para agregar un acceso directo a la Barra de herramientas de acceso rápido y se muestre sólo cuando el archivo esté abierto.

  • Nos vamos a la Pestaña Archivo > Opciones.
  • Elegimos Barra de herramientas de acceso rápido.
  • En Comandos disponibles en: elegimos Macros.
  • Ubicamos el nombre de la macro, en este caso Eliminar.
  • Presionamos el botón Agregar.
  • En Personalizar barra de herramientas de acceso rápido: elegimos Para [nombre del archivo].

Con esto, vamos a lograr que ese icono en la QAT (Quick Access Toolbar) sólo aparezca cuando se abra dicho archivo.

Descarga el archivo para practicar

Liberar espacio en disco eliminando archivos – EXCELeINFO.zip

⭐ Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

You may also like...

Leave a Reply

Your email address will not be published.

%d bloggers like this: