Попробуйте найти, где данные на информационной стороне в Excel находится

Question

Я создал пользовательские свойства в Файл > Информация > Свойства > Пользовательский и назвал его Procent . Позже он появляется на информационном экране в Excel ( Файл > Информация ). Смотри картинку:

Procent на информационном экране никогда не изменяется, даже если значение пользовательских свойств имеет. Я попытался убрать это в пользовательских свойствах, но это все еще там на информационном экране.

Могу ли я найти данные, сохраненные на информационном экране, чтобы я мог изменить их с помощью VBA? Мы используем его, чтобы показать в SharePoint, сколько мы сделали в этом конкретном файле.

/ Йоаким

Answer 1

Используйте свойство .CustomDocumentProperties (звучит немного глупо, я знаю ...)

Например, мы можем выполнить итерацию по всем именам и значениям отдельных пользовательских свойств, например, создав упорядоченный индексированный список всех пользовательских свойств:

Private Sub print_properties()
    Dim index As Integer
    index = 1

    For Each property In ThisWorkbook.CustomDocumentProperties
      Sheets("Sheet1").Cells(index, 1) = property.Name
      Sheets("Sheet1").Cells(index, 2) = property.Value
      index = index + 1
    Next property

End Sub

В качестве примера я создал два пользовательских свойства. После запуска процедуры я получил следующий результат:

Так что теперь я бы знал, какое свойство имеет какой идентификатор. В этом случае Procent будет 2.

---

Итак, чтобы ответить на ваш вопрос, вкратце, вы можете указать значение Ваш прогресс следующим образом ThisWorkBook.CustomDocumentProperties(2).Value

(измените 2 на тот, который является вашим ID Procent) :