Файл ADODB.Stream 3002 не может быть открыт

Question

Почему я получаю "Файл не может быть открыт?"ошибка в ADODB.Stream

проблема

Я сейчас получаюRun-time error '3002': File could not be openedв нижней строкеFileStream.LoadFromFile fileCurrent.Path,

Что я пробовал

• Убедиться в правильности пути
  • Используя непосредственное окно, я вижу, что?fileCurrent.Pathзнак равноC:\Users\(puzzlepiece87)\Desktop\Test.txt
• Используя свежий текстовый файл
  • Я создал Test.txt в виде пустого файла, в котором набрал "Hello", нажал "Enter", напечатал "Goodbye", а затем сохранил значение по умолчанию ANSI.
• Убедиться, что процедура в модуле класса ничего не повредила
  • Я попробовал это также в стандартном модуле
• Я попытался переместить его из Personal.xlsb в стандартную книгу
  • Использование стандартной рабочей книги имело ту же проблему

Оставшиеся вопросы

• Что я делаю не так, что вызывает ошибку 3002?
• Я недоразумение .LoadFromFile"sFileName параметр? Здесь говорится, что он примет любой допустимый путь и имя в формате UNC.

Модуль класса classReallyBigFiles

Option Explicit


Public Sub ReadLargeFile(ByVal fileCurrent As Scripting.File)

    Dim FileStream As ADODB.Stream
    Set FileStream = New ADODB.Stream
    FileStream.Type = adTypeText
    FileStream.LineSeparator = adCRLF
    FileStream.Mode = adModeReadWrite
    FileStream.Open
    FileStream.LoadFromFile fileCurrent.Path
    MsgBox FileStream.ReadText(-2)
    FileStream.Close

End Sub

Answer 1

Я сделал слишком сложный MCVE и пропустил ту часть, где я открывал файл как Binary, а затем попытался ADODB.Stream, когда файл был слишком большим, чтобы сохранить все содержимое файла в строку этим способом, но я забыл закрыть Бинарная попытка первая.