Si está creando una aplicación completa con Excel, es posible que desee saber un poco sobre el entorno en el que se ejecuta su aplicación. Por ejemplo, es posible que desee saber cuántas unidades están conectadas al sistema, cuáles son sus letras de unidad y cuánto espacio tienen libre.

La siguiente macro recuperará la información solicitada. Todo lo que necesita hacer es proporcionar los títulos de las columnas. La macro asume que tendrá tres columnas: en la celda A1 debe colocar el encabezado «Unidad», en la celda B1 coloca el encabezado «% libre» y en la celda C1 coloca el encabezado «% usado». Además, debe formatear las columnas B y C como porcentajes.

Sub DriveSizes()

Dim Drv As Drive     Dim fs As New FileSystemObject     Dim Letter As String     Dim Total As Variant     Dim Free As Variant     Dim FreePercent As Variant     Dim TotalPercent As Variant     Dim i As Integer

On Error Resume Next     i = 2     For Each Drv In fs.drives         If Drv.IsReady Then             Letter = Drv.DriveLetter             Total = Drv.TotalSize             Free = Drv.FreeSpace                          FreePercent = Free / Total             TotalPercent = 1 - FreePercent

Cells(i, 1).Value = Letter             Cells(i, 2).Value = FreePercent             Cells(i, 3).Value = TotalPercent             i = i + 1         End If     Next End Sub

Cuando ejecuta esta macro por primera vez, puede obtener un error. Si lo hace, significa que debe configurar su macro para hacer referencia a Microsoft Scripting Runtime. Siga estos pasos desde el Editor de VBA:

  1. Elija la opción Referencias en el menú Herramientas. VBA muestra el cuadro de diálogo Referencias.

  2. En la lista de referencias disponibles, asegúrese de que Microsoft Scripting Runtime esté seleccionado.

  3. Haga clic en Aceptar.

Ahora la macro debería funcionar bien y tendrá una tabla completamente poblada que representará todas las unidades disponibles en su sistema. (Si su sistema tiene unidades que utilizan medios extraíbles, como unidades de disquete, es posible que no aparezcan a menos que tenga medios en ellas).

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (11214) se aplica a Microsoft Excel 2007 y 2010. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

enlace: / excel-Retrieving_Drive_Statistics [Recuperando estadísticas de la unidad].