Ошибка во время выполнения 91 Переменная объекта или блок не установлен

Question

Я получаю эту ошибку

Ошибка времени выполнения '91': переменная объекта или блок не установлен.

Я пытаюсь разрешить пользователювыберите файлы, затем выберите sheet3 (имя которого - Необработанные данные) из выбранных файлов, затем скопируйте в текущую рабочую книгу

Мой код:

Private Sub OpenWorkBook_Click()

Dim myFile As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False

myFile = Application.GetOpenFilename(Title:="Browse your file", FileFilter:="Excel Files(*.xls*),*xls*")

If OpenBook <> False Then
    Set OpenBook = Application.Workbooks.Open(myFile)
    OpenBook = Application.Workbooks.Open(myFile)
    OpenBook.Sheets(3).Range("A1:3063").Copy
    ThisWorkbook.Worksheets("Raw data(STEP 1)").Range("A2").PasteSpecial xlPasteValues
    OpenBook.Close False
End If

Application.ScreenUpdating = True

End Sub

Выделенная строка If OpenBook <> False Then

Любая помощь приветствуется

Answer 1

Я думаю, что это должно быть If myFile <> False Then. myFile - это переменная, которую вы используете для получения имени файла. OpenBook не устанавливается до тех пор, пока не возникнет ошибка.