Я пытаюсь настроить код аудита рабочей книги для новых многопоточных комментариев.В основном код будет циклически проходить по всем комментариям (примечаниям) к рабочей книге и объединять их в новый лист в конце рабочей книги.
С тем, что теперь примечания, я использую следующее (отмечая, что cmt1 объявлен как комментарийobject и wsSource - объект листа)
For Each cmt1 In wsSource.Comments
'Collect comment data for testing/pasting
strSheetname = wsSource.Name
strCmt = cmt1.Text
strCellref = cmt1.Parent.Address
strContent = cmt1.Parent.Formula
etc.
Теперь с многопоточными комментариями подход того же типа не сработал.Я пытаюсь сделать числовой цикл с использованием счетчика и кода, подобного приведенному ниже:
For x = 1 to wsSource.commentsthreaded.count
Однако свойство count не работает.Согласно веб-сайту nmicrosoft, это должно быть одно из 4 доступных свойств.https://docs.microsoft.com/en-us/office/vba/api/excel.commentsthreaded
У кого-нибудь еще есть эта проблема?Есть ли способ это исправить?