[算表] VBA 關閉所有工作簿 (已解決)
軟體: Excel
版本: 2007
As title
假設我打開10個txt檔
要自動關掉 並不儲存的話
我找到如下code
我任選一個txt檔 按Alt+F11叫出VB
並輸入以下code 執行
Sub CloseAllWorkbooks()
Dim Book As Workbook
For Each Book In Workbooks
If Book.Name <> ThisWorkbook.Name Then
Book.Close savechanges:=False
End If
Next Book
ThisWorkbook.Close savechanges:=False
End Sub
但每次執行都只有一個工作簿被關閉
如何讓code一執行就關掉全部工作簿?
______________
Thanks! soyoso
已解決
1. code改成如下
2. txt檔要換成xls
Sub CloseAllWorkbooks()
Dim Book As Workbook
For Each Book In Workbooks
If Book.Name <> ThisWorkbook.Name Then
Application.DisplayAlerts = False
Application.Quit
End If
Next Book
Application.DisplayAlerts = False
Application.Quit
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.66.222.12
→
02/13 15:01, , 1F
02/13 15:01, 1F
→
02/13 15:01, , 2F
02/13 15:01, 2F
※ 編輯: Morphee 來自: 203.66.222.12 (02/13 15:54)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
