Как открыть файл на моем Onedrive с VBA, если у меня нет подключения к интернету?

Question

У меня есть макрос, который открывает файл на моем Onedrive.Если я в настоящее время подключен к Интернету, макрос работает отлично.Когда я отключен от Интернета, макрос не может открыть файл, даже если я указываю путь к моему локальному диску.Например

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open (D:\OneDrive\file.dotx")

Answer 1

Используйте ENVIRON для извлечения текущей папки пользователя или локальной папки OneDrive.

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("OneDrive") & "\file.dotx"

По умолчанию локальная папка OneDrive должна быть папкой верхнего уровня в папке пользователя.

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("USERPROFILE") & "\OneDrive\file.dotx"

Откройте окно командной строки и введите SET в командной строке, чтобы увидеть текущие переменные среды.Полный список переменных также доступен в апплете «Система» в разделе «Сводка системы», «Программная среда», «Переменные среды».