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

Question

I have code that should open open a handfull of workbooks, pull key info and close them. i can see the workbook loading but then when it is about to open i get the runtime error 1004 that says

Method 'open' of object 'workbooks' failed

My code is as follows and when i debug it takes me to the 2nd line under the do while statement:

 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

I tried to change the different defined variable to variant as per instructions of other people who had the same issue but nothing worked. Any help is greatly appreciated thanks!

update* I moved the two file names that were an issue to the bottom of the list and every other file name opened and copied the info perfectly but when the loop got to the last two files it gives me that error. all of the files are manipulated copies of the bottom 2 so i dont see why it doesnt work

update2* it seems as though the only workbooks that give the error and wont load are the ones open on another computer in the network, when this program is run all the workbooks will be open on other computers

Answer 1

it turns out a few of the files were corrupted so when the code encountered this it didnt work. the solution to this problem was to close the corrupted workbook then when I reopened it I clicked the arrow next to open and selected "open and repair" then saved a new copy of the file and the code ran smoothly