馃Ч 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.

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top