access导出Excel时设置格式部分报错1004有时候报424求解

 Private Sub 汇总到押品移交台账_Click()

Dim rs As DAO.Recordset
Dim objxls As Object
Dim N As Long
Dim strCode As String
Dim lngTSales As Long
Dim lngTSTock As Long
If IsNull(Me.贷款品种) Then
Set rs = CurrentDb.OpenRecordset("SELECT 总查询.* FROM 总查询 ORDER BY 总查询.序号;")
Else
Set rs = CurrentDb.OpenRecordset("SELECT 总查询.* FROM 总查询 WHERE (((总查询.[品种-贷款品种]) = '" & Me.贷款品种 & "')) ORDER BY 总查询.序号;")
End If
rs.MoveFirst
N = 5


Set objxls = CreateObject("excel.Application")
objxls.Workbooks.Add
objxls.Visible = True

With objxls.Sheets("sheet1")
    .Range("AE1:AF1").MergeCells = True
    .Range("A1,J1,K1,S1,T1").ColumnWidth = 5
    .Range("F1,R1").ColumnWidth = 20
    .Range("AE1:AF1").ColumnWidth = 20
    .Range("A1") = "序号"
    .Range("B1") = "二级机构名称"
    .Range("C1") = "机构名称"
    With .Range("A1:AI2")
      .Font.Bold = True   '设为粗体
      .HorizontalAlignment = -4108
      .VerticalAlignment = -4108
      .Borders.LineStyle = xlContinuous
      
    End With
    Do While rs.EOF = False
        .Range("A" & N) = rs("序号")
        .Range("B" & N) = rs("支行-所属支行")
        .Range("D" & N) = rs("品种-贷款品种")
        .Range("X" & N) = rs("他项号")
         rs.MoveNext
        N = N + 1

    Loop

    With .Range("A3:AI" & N - 1)
       .Borders.LineStyle = xlContinuous
     
    End With
End With
objxls.ActiveWorkbook.SaveAs FileName:=CurrentProject.Path & "\" & Me.年度 & "" & Me.所属支行 & " " & Me.贷款品种 & "押品移交台帐.xls"
Set objxls = Nothing

End Sub

access导出Excel时设置格式部分报错1004有时候报424

把设定Excel格式的部分注释掉就没问题可以运行