Excel을 사용하여 본격적인 응용 프로그램을 만드는 경우 응용 프로그램이 실행되는 환경에 대해 약간 알고 싶을 수 있습니다. 예를 들어 시스템에 연결된 드라이브 수, 드라이브 문자가 무엇인지, 사용 가능한 공간이 얼마나되는지 알고 싶을 수 있습니다.

다음 매크로는 요청 된 정보를 검색합니다. 열 제목 만 제공하면됩니다. 매크로는 세 개의 열이 있다고 가정합니다. 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 Scripting Runtime을 참조하도록 매크로를 구성해야합니다. VBA 편집기에서 다음 단계를 따르십시오.

  1. 도구 메뉴에서 참조 옵션을 선택하십시오. VBA는 참조 대화 상자를 표시합니다.

  2. 사용 가능한 참조 목록에서 Microsoft Scripting Runtime이 선택되어 있는지 확인합니다.

  3. 확인을 클릭하십시오.

이제 매크로가 정상적으로 실행되고 시스템에서 사용 가능한 모든 드라이브를 나타내는 완전히 채워진 테이블이 생깁니다. (시스템에 플로피 드라이브와 같은 이동식 미디어를 사용하는 드라이브가있는 경우 미디어가 없으면 표시되지 않을 수 있습니다.)

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2716)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Retrieving_Drive_Statistics [드라이브 통계 검색].