有什么方法可以在VB里杀死EXCEL的进程呢??

来源:百度知道 编辑:UC知道 时间:2024/05/14 10:39:48
我用VB生成一个EXCEL的表格,但打印出来以后EXCEL的进程不能正常退出,所以再生成表格的时候就会出错,有什么方法可以在VB里杀死EXCEL的进程呢??

按楼主的说法,杀死进程并不是一个好方法,只是亡羊补牢。其实你完全可以在编程中自己控制excel的死活。就是说,你必须要在创建excel对象和使用该对象之后,一定要及时释放和卸载,这样就可以避免出现这种现象。
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

源代码如下;自己看一下懂不懂
Option Explicit

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlag