Я получаю ошибку компиляции при создании нового экземпляра объекта файловой системы

Question

Когда я пытаюсь запустить этот код, я получаю такую ​​ошибку

Ошибка компиляции
Не удается найти проект или библиотеку.

Public FSO As New FileSystemObject

Sub DiskSpace()
    Dim drv As Drive
    Dim Space As Double
    Set drv = FSO.GetDrive("C:") ' Creating the the Drive object

    Space = drv.FreeSpace
    Space = Space / 1073741824 'converting bytes to GB
    Space = WorksheetFunction.Round(Space, 2) ' Rounding

    MsgBox "C: has free space = " & Space & " GB"
End Sub

Answer 1

Я предполагаю, что вы установили ссылку на Microsoft Scripting Runtime, в противном случае ошибка будет выглядеть как Определяемый пользователем тип, не определенный.

В Редакторе VBA перейдите в Инструменты / Ссылки и найдите ссылку сОТСУТСТВУЕТ.Снимите этот флажок и посмотрите, работает ли он.

Answer 2

Вам необходимо установить ссылку на Microsoft Scripting Runtime.В VBE нажмите Инструменты, Ссылки, затем прокрутите вниз до «Среда выполнения сценариев Microsoft» и установите флажок рядом с ним.