vba - 打开只读工作簿时，对象 'open'的excel方法 'workbooks'失败错误

Question

我的代码应打开一本完整的工作簿，提取关键信息并关闭它们。我可以看到工作簿正在加载，但是当它即将打开时，出现运行时错误1004

Method 'open' of object 'workbooks' failed

我的代码如下，当我调试时，将我带到do while语句下的第二行:

 Sub OEEsummmary()
Dim Gcell As Range
Dim MySheet As Worksheet
Dim Txt$, MyPath$, MyWB$
Dim myValue As Integer
Dim x As Long
Dim v As Variant, r As Range, rWhere As Range

MyPath = "L:\Manufacturing Engineering\Samuel Hatcher\"
x = 2
Set MySheet = ActiveSheet

Application.ScreenUpdating = False

Do While MySheet.Range("A" & x).Value <> ""
    MyWB = MySheet.Range("A" & x).Text
    Workbooks.Open Filename:=MyPath & MyWB, ReadOnly:=True, IgnoreReadOnlyRecommended:=True
    Set Gcell = ActiveSheet.Range("E21")
        With MySheet.Range("A" & x)
            .Offset(0, 7).Value = Gcell.Value
        End With
    ActiveWorkbook.Close savechanges:=False
    x = x + 1
Loop

End Sub

我试图按照其他遇到相同问题但无济于事的人的指示，将不同的定义变量更改为variant。任何帮助，万分感谢!

更新*我将两个有问题的文件名移到列表的底部，其他所有文件名均打开并完美复制了信息，但是当循环到达最后两个文件时，出现了这个错误。所有文件都是底部2的可操纵副本，所以我不明白为什么它不起作用

update2 *似乎唯一出现错误且不会加载的工作簿是在网络中另一台计算机上打开的工作簿，运行此程序时，所有工作簿都将在其他计算机上打开

Answer 1

事实证明，其中一些文件已损坏，因此当代码遇到此问题时，它不起作用。解决此问题的方法是关闭损坏的工作簿，然后重新打开它，然后单击打开旁边的箭头并选择“打开并修复”，然后保存文件的新副本，代码运行顺利