Select Case e.Link.text
    Case "工资数据录入"
        Forms("工资录入").open()
        MainTable = Tables("工资数据录入")
       
    Case " 导出excel"     
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\工资发放明细表.xls") \'打开模板
        Dim fl As String = ProjectPath & "Reports\\工资发放明细表.xls"
        \' Dim Sheet As XLS.Sheet = Book.Sheets(0)
        \' Sheet(4,0).Value = "<工资数据录入>"  \'写入表名
        Book.Build() \'生成报表
        Book.Save(fl)
        Dim Proc As New Process
        Proc.File = fl
        Proc.Start()
       
    Case "批量审核"
        For Each r As Row In Tables("工资数据录入").Rows
            If r("审核") =False Then
                r("审核") = True
            End If
        Next
    Case "取消审核"
        For Each r As Row In Tables("工资数据录入").Rows
            If r("审核") =True Then
                r("审核") = False
            End If
        Next
End Select

单击任务栏的“导出excel“  无反应，无法导出模板，请指出代码的问题，谢谢！

Case " 导出excel"     

改成（去掉多余空格）

Case "导出excel"