Se stai creando un’applicazione completa utilizzando Excel, potresti voler conoscere un po ‘l’ambiente in cui è in esecuzione l’applicazione. Ad esempio, potresti voler sapere quante unità sono collegate al sistema, quali sono le loro lettere di unità e quanto spazio hanno libero.

La seguente macro recupererà le informazioni richieste. Tutto quello che devi fare è fornire le intestazioni delle colonne. La macro presuppone che tu abbia tre colonne: nella cella A1 dovresti inserire l’intestazione “Drive”, nella cella B1 l’intestazione “Free%” e nella cella C1 l’intestazione “Used%”. Inoltre, dovresti formattare le colonne B e C come percentuali.

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

Quando esegui questa macro per la prima volta, potresti ricevere un errore. Se lo fai, significa che devi configurare la tua macro per fare riferimento a Microsoft Scripting Runtime. Segui questi passaggi dall’editor VBA:

  1. Scegli l’opzione Riferimenti dal menu Strumenti. VBA visualizza la finestra di dialogo Riferimenti.

  2. Nell’elenco dei riferimenti disponibili, assicurati che Microsoft Scripting Runtime sia selezionato.

  3. Fare clic su OK.

Ora la macro dovrebbe funzionare correttamente e avrai una tabella completamente popolata che rappresenta tutte le unità disponibili sul tuo sistema. (Se il tuo sistema ha unità che utilizzano supporti rimovibili, come unità floppy, potrebbero non essere visualizzate a meno che tu non abbia dei supporti al loro interno.)

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2716) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Retrieving Drive Statistics.