恳请高手、专家们给诊断一下

程序代码如下Public Sub subImport(cdlItem As CommonDialog)
Dim wbFRD As Workbook
Dim wbFRDMb As Workbook
Dim Ex As New Excel.Application
Dim wsFRDMb As Excel.Worksheet
Dim wsFRD As WorksheetOn Error GoTo ErrProcess
    Screen.MousePointer = vbHourglass
    
    Set Ex = CreateObject("Excel.Application")
    Set wbFRD = Ex.Workbooks.Open(cdlItem.FileName)
    Set wbFRDMb = Ex.Workbooks.Open(App.Path & "\mb\FRDMB.xls")
    If Me.chkPool Then
        Set wsFRD = wbFRD.Sheets("pool")
        Set wsFRDMb = wbFRDMb.Sheets("pool")
        Ex.Range(wsFRDMb.Cells(2, 1), wsFRDMb.Cells(wsFRDMb.Cells.CurrentRegion.Rows.Count, 78)).ClearContents
        Ex.Range(wsFRD.Cells(2, 1), wsFRD.Cells(wsFRD.Cells.CurrentRegion.Rows.Count, 78)).Copy
        wsFRDMb.Select
        wsFRDMb.Cells(2, 1).Select
        ActiveSheet.Paste
    End If
    
    Clipboard.Clear
    wbFRD.Close False            '关闭工作簿
    Set wbFRD = Nothing       '清空内存文档对象
    wbFRDMb.Close True           '关闭工作簿
    Set wbFRDMb = Nothing       '清空内存文档对象
    
    Ex.Quit                     '退出 Excel 应用程序对象
    Set Ex = Nothing
   Screen.MousePointer = vbDefault
    Exit Sub
ErrProcess:
    Screen.MousePointer = vbDefault
    If Err.Number = 32755 Then Exit Sub
    MsgBox "程序运行时发生错误，请您记下错误描述反馈到研发中心:" & vbCr & Err.Description, vbCriticalEnd Sub程序第一次调这个函数时运行没有问题，调第二次在运行到语句：ActiveSheet.Paste
时会报错：“对象变量或 With 块变量未设置”，我明明将相关的变量都关闭了，但在
进程中还是有Excel进程,如果我直接将excel进程杀死，调这个函数还会报错：远程服务器不存在或不能使用。 如果我调第一次后终止程序运行，excel进程就消失了，重新运行程序就没问题了。
恳请高手、专家们给诊断一下