Excel打開只讀工作簿時，對象“工作簿”的方法“打開”失敗

Question

我的代碼應該打開一本完整的工作簿，提取關鍵信息並關閉它們。 我可以看到工作簿正在加載，但是當它即將打開時，出現運行時錯誤1004

對象“工作簿”的方法“打開”失敗

我的代碼如下，當我調試時，將我帶到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

事實證明，其中一些文件已損壞，因此當代碼遇到此問題時，它不起作用。 解決此問題的方法是關閉損壞的工作簿，然后當我重新打開它時，單擊打開旁邊的箭頭並選擇“打開並修復”，然后保存文件的新副本，代碼順利運行