vbaexcel

Permission Denied, Error 70 When You Use OpenTextFile Statement in Excel VBA

I am getting the error Run-time error '70': Permission Denied.

While debugging we Identified error is coming from the below line:

Set objFileCheck = objFSCheck.OpenTextFile(strDirName & "\" & cnstCheckVersion_Filename, ForReading, TristateFalse)

But when the user is retrying he/she could not get the same error. What might be the root cause for this error while opening the textfile in read mode.

I really appreciate the help.

Solution

  • Solution: In Excel VBA Macro(.xltm) file we have implemented a mechanism that tries opening the text file which causing run time error, after a 5 sec waiting time before it fails. Code: Application.Wait (Now + TimeValue("0:00:05"))