Hente Drive Statistikk

March 7  by Eliza

Hvis du oppretter en fullverdig program som bruker Excel, kan du ønsker å vite litt om miljøet der programmet kjører. For eksempel, kan du ønsker å vite hvor mange stasjoner er koblet til systemet, hva deres stasjonsbokstaver er, og hvor mye plass de har fri.

Følgende makro vil hente nødvendig informasjon. Alt du trenger å gjøre er å gi kolonneoverskriftene. Makroen forutsetter at du har tre kolonner: ". Brukes%" I celle A1 bør du plassere overskriften "Drive" i celle B1 du plassere overskriften "Free%," og i celle C1 du plasserer overskriften I tillegg bør du formatere kolonner B og C som prosenter.

Sub DriveSizes ()
Dim Drv Som Drive
Dim fs som ny File
Dim Letter As String
Dim Sum Per Variant
Dim Free As Variant
Dim FreePercent Som Variant
Dim TotalPercent Som Variant
Dim i As Integer

On Error Resume Next
i = 2
For Hver Drv I fs.drives
Hvis Drv.IsReady Deretter
Letter = Drv.DriveLetter
Total = Drv.TotalSize
Gratis = Drv.FreeSpace

FreePercent = Free / Total
TotalPercent = 1 - FreePercent

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

Når du først kjøre denne makroen, kan du få en feilmelding. Hvis du gjør det, betyr det at du må konfigurere din makro referanse til Microsoft Scripting Runtime. Følg disse trinnene fra innenfor VBA Redaktør:

  1. Velg Referanser alternativ fra Verktøy-menyen. VBA viser dialogboksen Referanser.
  2. I listen over tilgjengelige referanser, sørg for Microsoft Scripting Runtime er valgt.
  3. Klikk på OK.

Nå makroen skal kjøres helt fint, og du vil ha et fullt befolket tabell representerer alle stasjonene tilgjengelig på systemet ditt. (Hvis systemet har stasjoner som bruker flyttbare medier, for eksempel diskettstasjoner, de kan ikke vises med mindre du har media i dem.)

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2716) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Hente Drive statistikk.