Ошибка времени выполнения Outlook '-2147417851 (80010105)'

Question

У меня есть функция Outlook, которая с пятницы 3 мая 2019 года начала выдавать следующую ошибку:

Run-time error '-2147417851 (80010105)':  
Method 'Open' of object "Workbooks' failed  

Это код до точки ошибки:

Sub CreateDictionary()
Dim start
Dim finish

start = Timer
Dim path As String

'***---Declarations---***
Dim MyEmail As Object
Dim xl As New Excel.Application
Dim wb As Excel.Workbook
Dim Sheet As Excel.Worksheet
Dim ExcelFileName As String
Dim j As Integer
Dim jMax As Variant
Dim entry As String

'***---Set Required Variables---***
ExcelFileName = "\\HYPER\CURRENT JOBS\USEFUL STUFF\Active Jobs DB.xlsm"
Set wb = xl.Workbooks.Open(ExcelFileName, 0, True)

Я проверил имя файла, и это нормально. Я дважды проверил свои записи в команде xl.Workbooks.Open и ничего не изменилось. В другом месте я читал, что это проблема Windows 10, хотя я не смог найти никаких рекомендаций по ее устранению.

У кого-нибудь здесь была подобная проблема?

EDIT: Я создал временный обходной путь, открыв нужную книгу и используя следующий код:

On Error Resume Next
Set wb = GetObject("\\HYPER\CURRENT JOBS\USEFUL STUFF\Active Jobs DB.xlsm")

If Err <> 0 Then
    MsgBox ("Please open Active Jobs Database and try again")
    Exit Sub
End If

On Error GoTo 0

В настоящее время он работает, но, очевидно, не так упрощен, как мой предыдущий код. Если кто-нибудь может узнать, почему это происходит, я был бы очень признателен!