excel読み取り専用ワークブックを開いたときにオブジェクト 'workbooks'の 'open'エラーが失敗しました

Question

ブックを一握り開いてキー情報をプルして閉じるコードがあります。 「ワークブック」は私のコード

を失敗した

は、メソッド「オープン」オブジェクトの言うこと私は、ワークブックの負荷を見ることができますが、それはオープンしようとしたとき、私は、ランタイムエラー1004を取得し、以下のようで、私はデバッグするとき、それは声明ながらやるの下2行目に私を取る：

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 

私は同じ問題があったが、何も働いていない他の人の指示に従って、バリアント異なる定義された変数を変更しようとしました。どんな助けでも大変感謝しています！

update *問題の2つのファイル名をリストの一番下に移動し、他のすべてのファイル名を開いて情報を完全にコピーしましたが、ループが最後の2つのファイルに達したときにエラーが発生します。すべてのファイルは、下の2の操作されたコピーですので、なぜそれはdoesnt仕事を参照してください。

update2 *ネットワーク上の別のコンピュータ上で開いているもののエラーを表示するワークブックは、このプログラムを実行すると、すべてのワークブックが他のコンピュータで開かれます

Answer 1

ファイルの一部が破損していることが判明しました。この問題の解決策は、破損したワークブックを閉じてから、再オープンしたときに横にある矢印をクリックして「開けて修復」し、ファイルの新しいコピーを保存してコードがスムーズに実行されました。