Question

我具有一个Outlook函数，该函数从2019年5月3日星期五开始引发以下错误：

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问题，尽管找不到解决该问题的指导。

这里有人有类似的问题吗？

编辑：我通过打开所需的工作簿并使用以下代码创建了一个临时解决方法：

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

它当前正在工作，但是显然不如我之前的代码简化。如果有人能找到原因，我将不胜感激！

Outlook运行时错误'-2147417851（80010105）'

0 个答案: