当打开了多个工作簿时,每个工作簿都要耗费一定的内存,从而导致电脑的运行速度降低。
因此,用户应及时关闭一些不需要的工作簿。 在Excel 2010中,用户可以通过以下几种方法关闭工作簿。
按钮1:单击标题栏右上角的“关闭”按钮。 按钮2:双击Excel按钮。
命令:单击“文件”菜单,在弹出的面板中单击“关闭”命令。 快捷键1:按【Alt+F4】组合键。
快捷键2:按【Ctrl+F4】组合键。 快捷键3:按【Ctrl+W】组合键。
快捷键4:依次按键盘上的【Alt】、【F】、【C】键。 快捷键5:依次按键盘上的【Alt】、【F】、【X】键。
当打开了多个工作簿时,每个工作簿都要耗费一定的内存,从而导致电脑的运行速度降低。
因此,用户应及时关闭一些不需要的工作簿。 在Excel2010中,用户可以通过以下几种方法关闭工作簿。
按钮1:单击标题栏右上角的关闭按钮。 按钮2:双击Excel按钮。
命令:单击文件菜单,在弹出的面板中单击关闭命令。 快捷键1:按【Alt+F4】组合键。
快捷键2:按【Ctrl+F4】组合键。 快捷键3:按【Ctrl+W】组合键。
快捷键4:依次按键盘上的【Alt】、【F】、【C】键。 快捷键5:依次按键盘上的【Alt】、【F】、【X】键。
这个只能用VBA来做。假定所有的EXCEL工作簿都是用一个EXCEL应用打开的,可以用遍历工作簿方式,判断文件名中包含特定文字(群组特征),符合条件就关闭该工作簿。
代码如下:
Sub 关闭同类文件()
Const MYSTRING = "Book"
Dim MYBOOK As Workbook
For Each MYBOOK In Workbooks
aa = Mid(MYBOOK.Name, 1, 4)
jg = InStr(MYSTRING, aa)
If jg = 1 Then
MYBOOK.Close
End If
Next
End Sub
例如运行前有4个打开的文件。如图:
运行宏后结果将开始于“Book”的全部关闭。结果如图:
用excel VBA 编写打开和关闭多个工作薄,相应的代码如下:
1、打开指定工作簿
dim wb as workbook
set wb = " 文件路径及文件名"
workbooks.open filename:= wb
2、关闭所有工作簿并保存
workbooks.close
3、打开多个工作薄的程序代码:
Sub OpenWorkbooks()
On Error Resume Next
Dim SelectFiles As Variant
'显示打开文件对话框
SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打开", , True)
'未选择
If TypeName(SelectFiles) = "Boolean" Then
Exit Sub
End If
'打开所选工作簿
For i = 1 To UBound(SelectFiles)
Workbooks.Open SelectFiles(i)
Next i
End Sub
Excel的启动方法:
1、利用“开始”菜单打开。
2、鼠标双击Excel 2010应用程序快捷方式图标。
Excel的退出方法:
1、单击“文件”-“退出”命令。
2、单击“标题栏”最右端的“关闭”按钮。
3、双击“标题栏”最左端的窗口控制按钮图标。
4、按Alt+F4快捷键。
Microsoft Excel是电子试算表程序(进行数字和预算运算的软件程序),与Microsoft Word一样,它在市场拥有统治份额。它最初对占优势的Lotus 1-2-3是个竞争者,但最后它卖得比它多、快,于是它成为了实际标准。它适宜Windows和Macintosh平台。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
蜀ICP备2020033479号-4 Copyright © 2016 学习鸟. 页面生成时间:3.619秒