Использование GrantAccessToMultipleFiles предотвращает запуск под Windows в Windows

Я пишу макрос Excel для автоматического заполнения и сохранения нескольких документов Word. Он отлично работает на Office для Mac 2016, но я хочу обеспечить кросс-совместимость с Windows.

Чтобы уменьшить нагрузку на пользователя при предоставлении индивидуальных разрешений на файлы из-за изолированной программной среды Mac Office, я реализовал команду GrantAccessToMultipleFiles , используя полезное решение ramitarora .

К сожалению, поскольку GrantAccessToMultipleFiles – это специфичная для Mac команда, я запускаю ошибку компиляции: «Sub или Function not defined», как только я пытаюсь запустить ее в Windows. Есть ли этому решение? Поскольку это ошибка компиляции, я не могу просто запустить ее с помощью «On Error Resume Next».

• Как я могу логически протестировать формат другой ячейки в excel
• Извлечь таблицу из html, чтобы преуспеть из командной строки
• Окна VBA для Mac
• Формулы Excel, дающие #VALUE! ошибка при портировании на Mac
• Автоматизация excel в python на mac

Для справки, соответствующий код приведен ниже:

'Operating System check: if pos=0, user is on OSX Dim pos As Integer pos = InStr(Application.OperatingSystem, "Windows") 'If on OSX ask for file permissions in bulk If pos = 0 Then Dim fileAccessGranted As Boolean Dim filePermissionCandidates Dim filePathsArray As String filePathsArray = filePaths(0) For i = 0 To studentNum filePathsArray = filePathsArray & ", " & filePaths(i + 1) Next i 'Create an array with file paths for which permissions are needed filePermissionCandidates = Array(filePathsArray) 'Request access from user fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates) End If 

Благодарю.

 #If Mac then 'your Mac code #Else 'Windows code #End If 

 #If MAC_OFFICE_VERSION >= 15 Then ' Do thing for Office for Mac 2016 (now at version 15.26) #Else 'Do thing for Windows #End If