我收到错误运行时错误＆＃39; 70＆＃39;：权限被拒绝。
调试时我们识别错误来自以下行：
Set objFileCheck = objFSCheck.OpenTextFile(strDirName & "\" & cnstCheckVersion_Filename, ForReading, TristateFalse)
但是当用户正在重试时，他/她无法得到相同的错误。在读取模式下打开文本文件时，可能是导致此错误的根本原因。
我真的很感激帮助。
答案 0 :(得分：0)
解决方案：在Excel VBA宏（.xltm）文件中，我们实现了一种机制，在失败前等待5秒后尝试打开导致运行时错误的文本文件。 代码：Application.Wait（Now + TimeValue（＆＃34; 0：00：05＆＃34;））