Проверьте, существует ли файл в OneDrive через VBA - PullRequest
Новая
       19

Проверьте, существует ли файл в OneDrive через VBA

2 голосов
/ 29 марта 2020

Я пытаюсь проверить, существует ли файл Excel в OneDrive, используя Dir(Filename) (не открывая его): 

strFilePath = "https://d.docs.live.net/ce59asdf4hj34h5k/Folder 1/Folder 2/File.xlsm"
If Dir(strFilePath) <> "" Then
'do something
End If

, но Dir(Filename) выдает ошибку: Run-time error '52': Bad filename or number

Я попытался сделать обходной путь и проверить, действителен ли сам URL (используя пример кода здесь) к сожалению, URL-адрес всегда действителен, независимо от того, существует файл или нет (если рассматриваемый файл существует) Один диск, кажется, не возвращает файл по умолчанию, по крайней мере, это то, что он делает, если вы тестируете его в браузере, см. скриншот ниже)

enter image description here

Буду признателен за любые другие идеи о том, как решить проблему (я пытаюсь сделать это без фактического открытия файла, так как это создаст другие проблемы, которых я пытаюсь избежать).

Примечание: у меня есть OneDrive (Syn c) установлен, но, к сожалению, использование локального пути выходит за рамки решения. Soultion должен работать с файлами, которые не синхронизируются локально.

...