Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> ActiveWorkbook.Name Then
wb.Close true
End If
Next
End Sub 默认保存本回答被提问者采纳
VBA关闭除当前工作簿以外的所有EXCEL工作簿
Sub aa() Dim wb As Workbook For Each wb In Workbooks If wb.Name <> ActiveWorkbook.Name Then wb.Close true End If NextEnd Sub 默认保存
VBA关闭工作簿和退出Excel代码
将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume Next Workbooks.Close End Sub 退出Excel，并提示对有更改的工作簿进行保存：Sub QuitExcel()Application.Quit End Sub 保存活动工作簿并退出Excel：Sub Sa...
excel如何通过vba代码关闭工作薄呢?
1、首先我们打开一个工作样表作为例子。2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option Explicit Sub setcap()ThisWorkbook.Close False End Sub 3、close方法必须有一个对象，对象为workbooks，在这里我们使用的thisworkbook可以直接使用参数。而workbooks使用...
excel使用vba关闭表格的两种方法
4、按下alt+f键后会进入excel文件菜单，再次按下x，则会提示是否保存excel工作薄，选择相应属性后，关闭excel工作薄，完成退出操作。5、这种是借用excel的快捷键组合操作完成的退出命令。还有一种是使用vba函数完成的操作。同样是输入对象application，并使用quit方法完成退出excel的目的。Sub 关闭Excel()MsgB...
如何用excel vba一次删除工作簿中的除第一张之外的所有工作表
没分哟，加分 For i = 2 To 10 Sheets(i).Select ActiveWindow.SelectedSheets.Delete Next i 如果有10个表的话，最好是前面加一句错误处理。
VBA 中怎么设置关闭窗体同时关闭EXCEl,代码应该怎么写,谢谢了_百度知 ...
1、首先打开需要编辑的Excel表格，右键单击工作表选择打开“查看代码”。2、然后在弹出来的窗口中点击打开“通用”。选择Terminate 事件。3、然后在弹出来的窗口中点击输入下方的代码，Private Sub UserForm_Terminate()ThisWorkbook.Saved = True Application.Quit End Sub 4、然后运行程序，这样就可以设置...
如何关闭多个excel工作簿(即关闭群组) 有解决方案即加分!!!
这个只能用VBA来做。假定所有的EXCEL工作簿都是用一个EXCEL应用打开的，可以用遍历工作簿方式，判断文件名中包含特定文字（群组特征），符合条件就关闭该工作簿。代码如下：Sub 关闭同类文件()Const MYSTRING = "Book"Dim MYBOOK As Workbook For Each MYBOOK In Workbooks aa = Mid(MYBOOK.Name, 1...
急求VBA代码:合并工作簿后,如何关闭所有打开的工作簿(不含汇总表...
FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="选择需要合并工作薄")With ThisWorkbook For X = 1 To UBound(FileOpen)Set wbk = Workbooks.Open(FileOpen(X))wbk.Sheets(1).Copy , .Sheets(.Sheets.Count)wbk.Close False Next End With End Sub ...
如何用vba实现当关闭工作簿时能显示自打开工作簿后所作的所有操作,未点...
按Alt F11打开VBA编辑器，按Ctrl R打开项目资源管理器(如果已经打开则跳过)，右键单击当前工作簿，选择插入(n)和模块(m)，然后将下面的代码粘贴到右边的代码编辑区，按F5执行。但是，如果工作簿尚未保存，将弹出一个窗口，提示您用要保存的工作簿的文件名替换默认文件名。Sub SaveAndCloseAllBook()将...
求一 关闭并保存所有工作簿的vba程序代码
按Alt+F11打开VBA编辑器，按Ctrl+R打开工程资源管理器（如已打开则略过），右键单击当前工作簿，选择“插入(N)”、“模块(M)”,然后在右侧代码编辑区里把下面的代码贴进去，按F5执行即可。但如果工作簿原来没有保存过，会弹出一个窗口提示你为要保存的工作簿去一个文件名来替换默认的文件名。Sub ...
