Если вы создаете полномасштабное приложение с помощью 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:

  1. Выберите параметр «Ссылки» в меню «Инструменты». VBA отображает диалоговое окно «Ссылки».

  2. В списке доступных ссылок убедитесь, что выбрана среда выполнения сценариев Microsoft.

  3. Щелкните ОК.

Теперь макрос должен работать нормально, и у вас будет полностью заполненная таблица, представляющая все диски, доступные в вашей системе. (Если в вашей системе есть приводы со съемными носителями, например, дисководы гибких дисков, они могут не отображаться, если в них нет носителя.)

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11214) относится к Microsoft Excel 2007 и 2010. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Retrieving_Drive_Statistics [Получение статистики диска].