主题：如何终止excel进程

应该没问题的，改一下这段

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    FileSys.CopyFile( dlg.FileName,"d:\财政导出表.xls" ,True)  '复制表
    '---- 下面开始删除表的前两行
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\财政导出表.xls" )
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作
        '    ws.rows("1:2").delete(MSExcel.XlDirection.xlUp)
        ws.rows("1:2").delete(MSExcel.XlDirection.xlUp)
        wb.Save
    catch ex As exception
        msgbox(ex.message)
    finally
        app.quit
    End try
End If

先删除excel.exe进程，然后测试，不可能有问题的。

如果要硬性关闭，参考

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")

For Each p As System.Diagnostics.Process In ps
    p.kill
Next