未设置运行时错误'91'vba对象变量或with-blockvariable

Question

美好的一天，

我得到如下错误：

  

运行时错误'91'VBA对象变量或with-block变量未设置

我的代码如下：

Sub Test2()

    Dim newWorkBook As Workbook

    newWorkBook = GetExcelFile("C:\", "truck.xlsx")
    Debug.Print newWorkBook

End Sub

Function GetExcelFile(path As String, filename As String) As Workbook

    Dim newWorkBook As Workbook

    Set newWorkBook = Workbooks.Add
    newWorkBook.SaveAs path & "\" & filename
    Debug.Print newWorkBook.name & " " & newWorkBook.FullName


    newWorkBook.Close False
    GetExcelFile = newWorkBook

End Function