对象变量或WITH块变量未设置

'怀疑是没有指定父BOOK，但自己又不懂得指定。

'错误停在xlSheet2.Cells(4, 3) = xlSheet.Cells(1, 21)    这一句

'  当出错时，这句得到的工作表数量并不是我想要的工作簿，而是另外一个工作表的数量。gzbsl = ActiveWorkbook.Sheets.Count '判断当前工作簿有几个工作表，如果只有1个工作表，则没有“分箱数据”工作表。

    Dim xlApp As Excel.Application                                  'Excel应用程序对象
    Dim xlBook As Excel.Workbook                                    'Excel工作簿对象
    Dim xlBook2 As Excel.Workbook
    Dim xlSheet As Excel.Worksheet                                  'Excel工作表对象
    Dim xlSheet2 As Excel.Worksheet
    Set dbs = CurrentDb()
    Set wks = Workspaces(0)
    Set xlApp = CreateObject("Excel.Application")         '创建Excel应用程序对象
        xlApp.Visible = True                          '对象的可见性为“真”
    Set xlBook = xlApp.Workbooks.Open(Me.文本1)
   xlBook.Activate
   

      Dim gzbsl As Long
      gzbsl = ActiveWorkbook.Sheets.Count '判断当前工作簿有几个工作表，如果只有1个工作表，则没有“分箱数据”工作表。
         If gzbsl = 1 Then
             Set xlSheet = xlBook.Worksheets(1)                    '选择Sheet（1）
                If xlSheet.Name <> "明细" Then
                    MsgBox "出货明细只有一个工作表，工作表的名称必须为“明细”"
                    Exit Sub
                End If
        End If
        If gzbsl = 2 Then
           Set xlSheet = xlBook.Worksheets(2)                    '选择Sheet（1）
            If xlSheet.Name <> "分箱数据" Then
                MsgBox "出货明细有两个工作表，第二个工作表的名称必须为“分箱数据”"
                Exit Sub
             End If
        End If
   gzbhs = ActiveSheet.UsedRange.Rows.Count  '判断当前工作表使用了多少行
   Set xlBook2 = xlApp.Workbooks.Open(StrDtn2)

    Set xlSheet2 = xlBook2.Worksheets(1)                    '选择Sheet（1）
xlSheet2.Cells(4, 3) = xlSheet.Cells(1, 21)
xlSheet2.Cells(7, 3) = xlSheet.Cells(8, 20)