Excel VBA - 例外：許可が拒否されたエラー70

Question

他のアプリケーションがdata.txtファイルにデータを書き込んでいて、VBAがそれを読み込もうとすると、

これらの例外を無視する方法がありますか、ファイルが自由にアクセスできるようになるまで待ってからコードを実行し続けるのが良いですか？

fileName = "C:\TEXT\data.txt" 
fileNo = FreeFile 'Get first free file number 

Open fileName For Input As #fileNo 
Do While Not EOF(fileNo) 
    Line Input #fileNo, textRow 
    jsonText = textData & textRow 
Loop 
Close #fileNo 

Answer 1

私はこれを試してみましたが、私はそれが100％の信頼性があるかどうかわからないです：

Dim continue As Boolean 

fileName = "C:\TEXT\data.txt" 
fileNo = FreeFile 'Get first free file number 

continue = True 

Do While continue 
On Error Resume Next 
Open fileName For Input As #fileNo 
If Err Then 
continue = True 
Application.Wait (Now + 0.000001) 
Else 
Do While Not EOF(fileNo) 
    Line Input #fileNo, textRow 
    jsonText = textData & textRow 
Loop 
Close #fileNo 
continue = False 
End If 
Loop 

Answer 2

は、ここで私が何を意味するかの例です。

fileName = "C:\TEXT\data.txt" 
fileNo = FreeFile 'Get first free file number 

On Error Resume Next 
Do 
    Open fileName For Input As #fileNo 
    If err.number = 0 then 
     Exit Do 
    Else 
     Err.clear 
    End If 
Loop 
On Error Goto 0 

Do While Not EOF(fileNo) 
    Line Input #fileNo, textRow 
    jsonText = textData & textRow 
Loop 
Close #fileNo