當打開了多個工作簿時,每個工作簿都要耗費一定的內存,從而導致電腦的運行速度降低。
因此,用戶應及時關閉一些不需要的工作簿。 在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一樣,它在市場擁有統(tǒng)治份額。它最初對占優(yōu)勢的Lotus 1-2-3是個競爭者,但最后它賣得比它多、快,于是它成為了實際標準。它適宜Windows和Macintosh平臺。
聲明:本網站尊重并保護知識產權,根據《信息網絡傳播權保護條例》,如果我們轉載的作品侵犯了您的權利,請在一個月內通知我們,我們會及時刪除。
蜀ICP備2020033479號-4 Copyright ? 2016 學習鳥. 頁面生成時間:3.619秒