Excelを使用して本格的なアプリケーションを作成している場合は、アプリケーションが実行されている環境について少し知りたいと思うかもしれません。たとえば、システムに接続されているドライブの数、ドライブ文字の種類、空き容量を知りたい場合があります。

次のマクロは、要求された情報を取得します。あなたがする必要があるのは列見出しを提供することだけです。このマクロは、3つの列があることを前提としています。セルA1に見出し「Drive」を配置し、セル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 ScriptingRuntimeを参照するようにマクロを構成する必要があることを意味します。 VBAエディター内から次の手順に従います。

。 [ツール]メニューから[参照]オプションを選択します。 VBAは[参照]ダイアログボックスを表示します。

。使用可能な参照のリストで、Microsoft ScriptingRuntimeが選択されていることを確認します。

。 [OK]をクリックします。

これで、マクロは正常に実行され、システムで使用可能なすべてのドライブを表す完全に入力されたテーブルが作成されます。 （システムにフロッピードライブなどのリムーバブルメディアを使用するドライブがある場合、メディアが含まれていないと表示されない場合があります。）

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（11214）は、Microsoft Excel 2007および2010に適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excel-Retrieveing_Drive_Statistics [ドライブ統計の取得]。