Excel打开只读工作簿时，对象“工作簿”的“打开”方法失败

我有代码，应该打开工作簿handfull，拉关键信息并closures它们。 我可以看到工作簿加载，但是当它打开我得到运行时错误1004说

对象“工作簿”的方法“打开”失败

我的代码如下，当我debugging它需要我的第二行下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 

我尝试将其他定义的variables更改为变体，按照其他人有相同的问题，但没有任何工作的指示。 任何帮助非常感谢，谢谢！

更新*我把这两个文件名称的问题列表的底部和其他所有文件名称打开并复制完美的信息，但是当循环到最后两个文件，它给了我这个错误。 所有的文件被操纵底部2副本，所以我不明白为什么它不工作

更新2 *似乎只有工作簿给出的错误，并不会加载是在networking中的另一台计算机上打开的，当这个程序运行时，所有的工作簿将在其他计算机上打开

Answer 1

事实certificate，一些文件已损坏，所以当代码遇到这个没有工作。 解决这个问题的办法是closures损坏的工作簿，然后当我重新打开时，我点击旁边的箭头打开并select“打开并修复”，然后保存该文件的新副本，代码顺利运行