在网络上打开文件时出现错误“-2147021892 (80070bbc)”答案

【问题标题】：Error '-2147021892 (80070bbc)' when opening file on network在网络上打开文件时出现错误“-2147021892 (80070bbc)”
【发布时间】：2019-01-16 20:28:26
【问题描述】：

我正在使用 vba 代码从网络驱动器上的 Excel 打开一个 excel 文件。错误返回到以下代码行。包含 vba 代码的文件位于服务器上的 VM 上。几天前它突然停止工作（我怀疑某些自动 Windows 更新或病毒软件更新，我无论如何都无法回滚。）

错误指向以下代码行：设置 Target_Workbook = Workbooks.Open(Target_Path)

该文件没有损坏，因为我可以用我的计算机（带有 vba 的那个和网络上的那个）很好地打开它。我也有这个文件的几个较旧的备份副本，这些副本过去可以工作，但现在有相同的错误消息。

这是上下文中的代码：

    Dim Target_Workbook As Workbook
    Dim Local_Workbook As Workbook
    Dim Target_Path As String

    Target_Path = "U:\DATABASES\Prod Sched\PlannedPallets.xls"
    Set Target_Workbook = Workbooks.Open(Target_Path)
    Set Local_Workbook = ThisWorkbook

    Target_Data = Target_Workbook.Sheets("PlannedPallets").Range("A1:CZ50")
    Local_Workbook.Sheets("PlannedPallets").Range("A1:CZ50") = Target_Data
    Local_Workbook.Sheets("Criteria").Range("V25") = 0
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableCancelKey = xlDisabled
    '''''Close Target Workbook
    Local_Workbook.Save
    ' Target_Workbook.Save
    Target_Workbook.Close
    Application.DisplayAlerts = True

【问题讨论】：

Windows Error 0xBBC (3004) An AddJob call was not issued. 这是打印机子系统错误。您可以在此处查看有关如何解码错误social.msdn.microsoft.com/Forums/en-US/… 的答案。
来自 Winerror.h。 //Win32 Spooler Error codes// //3000 to 3049// 和 // MessageId: ERROR_SPL_NO_ADDJOB // MessageText: // An AddJob call was not issued. #define ERROR_SPL_NO_ADDJOB 3004L
文件是否在受信任的位置？ support.microsoft.com/kb/973736
@ACatInLove，错误是 0x80070bbc，而不仅仅是 0xBBC
我给了你一个关于如何解码错误的链接。 0x8007nnnn 包含 Win32 错误。所以 0x80070bbc = 0xbbc。

标签： excel vba

【解决方案1】：

在我的情况下，帮助以只读方式打开 WB，然后将其另存为 ...

代替：

Set Target_Workbook = Workbooks.Open(Target_Path)

用途：

Set Target_Workbook = Workbooks.Open(Target_Path, ReadOnly:=True)

【讨论】：