excel进程无法自动关闭

[cs_lx_sc]

当excel文件被打开后，此时任务管理器有excel.exe进程；然后为了导入这个文件，用OpenDatabase(sExcelPath, True, True, "Excel 5.0")创建对象，后台还是一个excel.exe进程，但现在如果关闭excel文件，excel.exe进程却不能关闭。。这是怎么回事？怎么解决呢？？


如果不用OpenDatabase创建对象的话，打开excel，再关闭excel，进程是正常的，最后会自动关闭

[cs_lx_sc]

有人遇到过么？？

[cs_lx_sc]

有人么。。？

[ewang11]

[Quote=引用 3 楼 cs_lx_sc 的回复:]
有没有办法调用windows底层API来强行关闭进程？
[/Quote]

可以

[ewang11]

Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPheaplist = &H1
Private Const TH32CS_SNAPthread = &H4
Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread
Private Const PROCESS_TERMINATE As Long = &H1

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Function KillApp(exe As String) As Boolean
Dim i As Long
Dim Proc As PROCESSENTRY32
Dim Snap As Long
Dim exeName As String
Dim theLoop As Long
Dim lHand As Long, lProcessID As Long

Snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄
Proc.dwSize = Len(Proc)
theLoop = ProcessFirst(Snap, Proc) '获取第一个进程，并得到其返回值
Do While theLoop <> 0 '当返回值非零时继续获取下一个进程
exeName = Proc.szExeFile '进程名
exeName = Left$(exeName, IIf(InStr(1, exeName, Chr$(0)) > 0, InStr(1, exeName, Chr$(0)) - 1, 0))
lProcessID = Proc.th32ProcessID '得到进程ID
Debug.Print exeName
If LCase(exeName) <> LCase(exe) Then
theLoop = ProcessNext(Snap, Proc)
Else
GoTo Kill
End If
Loop
KillApp = False
CloseHandle Snap '关闭进程“快照”句柄
Exit Function
Kill:
CloseHandle Snap '关闭进程“快照”句柄
lHand = OpenProcess(PROCESS_TERMINATE, True, CLng(lProcessID)) '获取进程句柄
TerminateProcess lHand, 0 '关闭进程
KillApp = True
End Function



结束进程:
Private Sub Command2_Click()
KillApp "EXCEL.exe"
End Sub

[ewang11]

打开EXCEL有好多方法的, 用API shellexecute 也行,直接操作EXCEL对象也行

[cs_lx_sc]

有没有办法调用windows底层API来强行关闭进程？

[wwwwb]

你的代码贴出来看看