如果要使用Excel创建功能完善的应用程序,则可能需要了解一些有关运行应用程序的环境的信息。例如,您可能想知道系统上连接了多少个驱动器,它们的驱动器号是多少以及它们有多少可用空间。

下面的宏将检索请求的信息。您需要做的就是提供列标题。该宏假定您将具有三列:在单元格A1中应放置标题“驱动器”,在单元格B1中应放置标题“ Free%”,在单元格C1中应放置标题“ Used%”。此外,您应将B列和C列设置为百分比格式。

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

首次运行此宏时,可能会出现错误。如果这样做,则意味着您需要配置宏以引用Microsoft脚本运行时。在VBA编辑器中执行以下步骤:

。从工具菜单中选择引用选项。 VBA显示“引用”对话框。

。在可用引用列表中,确保选择了Microsoft脚本运行时。

。单击确定。

现在,宏应该可以正常运行,并且您将具有一个完全填充的表,该表代表系统上所有可用的驱动器。 (如果您的系统具有使用可移动介质的驱动器,例如软盘驱动器,则除非其中装有介质,否则它们可能不会显示。)

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(2716)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: