Ms access 对象定义错误的来源是什么？

我无法识别显示的对象定义错误。它出现在

Set myxlSheet

语句中

Private Sub LoadConfigFile(filename As String)

    Dim myXLApp As Object
    Dim myXLWorkbook As Object
    Dim myXLSheet As Object
    Dim LastRow As Integer
    Dim LastColumn As Integer
    Dim ColumnCounter As Integer
    Dim RowCounter As Integer
    Dim StartRates As Boolean
    Dim tempPlanName As String, TempPreTax As String
    Dim dbs As Database
    Dim rst As Recordset
    Dim LPosition As Integer

    On Error GoTo ProcError

    'check if the file exists
    If Dir(filename) = "" Then
        MsgBox "Cannot find Config file"
        Exit Sub
    End If

    'clear out CRDRates table and set up to enter data
    Set dbs = CurrentDb
    DoCmd.RunSQL "DELETE * from [tblConfigRates]"      'clear out CRDRates table
    Set rst = dbs.OpenRecordset("tblConfigRates", dbOpenDynaset)

    'start MS Excel by checking if it is already open (GetObject). If not open it will error and go to CreateObject
    Set myXLApp = GetObject(, "Excel.Application")
    myXLApp.Visible = False       'user does not need flashing Excel on screen
    Set myXLWorkbook = myXLApp.Workbooks.Open(filename, ReadOnly:=True)

    Set myXLSheet = myXLWorkbook.Worksheets("Sheet1")

---

该工作簿中是否有名为

Sheet1

的工作表？是的，工作表1和工作表2。代码以前工作正常，然后突然出现此错误。您是否尝试过设置myXLSheet=myXLWorkbook.Sheets（“Sheet1”）？