Здравствуйте! Имеется макрос, который определяет точный путь к папке, в которой лежит этот файл, нужно его изменить так, чтобы он определял путь и на системе MacOS. Файлы все лежат на диске Onedrive. Файл шаблон во вложении, который загружает данные из файла находящийся в той же папке.
Код
Function FilePathURLToUNC( _
strURL As String, _
Optional bOnlyDir As Boolean = False, _
Optional bCorpAcc As Boolean = False _
) As String
Dim astr() As String, lLastElement As Long, li As Long
astr = Split(strURL, "/")
li = LBound(astr)
If astr(li) <> "https:" Then
FilePathURLToUNC = strURL
Exit Function
End If
lLastElement = UBound(astr)
Dim strUNC As String
If bCorpAcc Then
strUNC = Environ("OneDrive")
li = li + 6
Else
strUNC = Environ("OneDriveConsumer")
li = li + 4
End If
For li = li To lLastElement
If li = lLastElement And bOnlyDir Then Exit For
strUNC = strUNC & "\" & astr(li)
Next li
FilePathURLToUNC = strUNC
End Function
Здравствуйте! Проблема частично решилась теперь макрос работает путь к папке определяется и на макос, необходимо было поставить одну галку в PQ в разделе параметры-конфиденциальность-разрешение объединение данных из множества источников.....Но теперь появилась другая проблема если эти два файла лежат к примеру в папке "загрузка", то все отлично работает, а если я переношу эти файлы в папку "документы" то при выполнении запроса возникает ошибка нет доступа в файлу! Хотя все доступы имеются, я являюсь администратором, права на чтение и запись есть! Не могу понять в одних папка все работает в других нет! Где еще нужно дать разрешение не могу понять!