excel - 运行时错误 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直到之后才设置，因此出现空错误。