按模板导出EXCEL

我按一位前辈的方法做了一个导出EXCEL的按钮，结果弹出错误号为：3265，哪位能帮我看看哪里有问题。

Private Sub 导出EXCEL_Click()
    On Error GoTo ErrorHandler
    Dim strTemplate As String   '模板文件路径名
    Dim strPathName As String   '输出文件路径名
    Dim objApp      As Object   'Excel程序
    Dim objBook     As Object   'Excel工作簿
    Dim rst         As Object   '子窗体记录集
    Dim intRows     As Integer  '明细记录行数
    Dim intRows1     As Integer  '明细记录行数
    Dim intCounter  As Integer  '循环计数器
    Dim blnNoQuit   As Boolean  '此标记为True时不关闭Excel
    Dim strMsg      As String   '消息内容
   
    '当前是新记录则提示并退出（仅用于主子窗体时）
    If Me.NewRecord Then
        MsgBox "当前没有数据可导出！", vbExclamation, "提示"
        Exit Sub
    End If

    '模板文件路径
    strTemplate = CurrentProject.Path & "\PI模板.xlt"
    '默认保存的文件名
    strPathName = CurrentProject.Path & "\PI " & Me.Combo99 & " " & Me.PI号码 & ".xls"

    点击下载此附件