vb 关闭excel

发布网友 发布时间:2022-04-19 23:06

我来回答

3个回答

热心网友 时间:2023-07-18 03:30

sub aa()
workdir = ActiveWorkbook.Path '获取当前路劲(C:\dcam\pmill2\程序单)
Workbooks.Open Filename:=workdir + "\Temp1.xls" '打开Temp1.xls

Windows("Temp1.xls").Activate
Application.DisplayAlerts = False ‘避免弹出对话框
'ActiveWorkbook.Save '保存表格,此处不保存
ActiveWorkbook.Close '关闭Temp1.xls
Application.DisplayAlerts = True
end sub

热心网友 时间:2023-07-18 03:30

加参数False,第一个参数就控制是否保存修改的。
举例:
Sub Test()
Dim Wb As Workbook
Workbooks.Add
Set Wb = ActiveWorkbook
Wb.Close False
End Sub

热心网友 时间:2023-07-18 03:31

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
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

Private Sub Command1_Click()
Dim hWnd As Long
hWnd = FindWindow("XLMAIN", "Microsoft Excel - Temp1.xls")
KillProcess hWnd
End Sub
Private Sub KillProcess(ByVal whWnd As Long)
Dim lpdwProcessId As Long
Dim hProcessHandle As Long
GetWindowThreadProcessId whWnd, lpdwProcessId
hProcessHandle = OpenProcess(&H1F0FFF, True, lpdwProcessId)
Dim success As Long
If hProcessHandle <> 0 Then
success = TerminateProcess(hProcessHandle, ByVal 0&)
End If
If success = 1 Then CloseHandle (hProcessHandle)
End Sub

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com