請問如何寫vba關掉所有活頁簿，只保留第一個活頁簿呢

#excel #vba

ian 2020-06-26 11:35:31 ‧ 1996 瀏覽

分享至

paicheng0111 iT邦大師 5 級 ‧ 2020-06-26 12:34:06 檢舉

是活頁簿還是工作表？

ian iT邦新手 5 級 ‧ 2020-06-27 16:51:49 檢舉

不好意思，應該是工作表才對~~

登入發表討論

熱門推薦

{{ item.channelVendor }} | {{ item.webinarstarted }} |

直播中

2 個回答

rogeryao

iT邦超人 7 級 ‧ 2020-06-26 12:21:27

最佳解答

Public Sub DeleteNotFirstSheet()
Dim j As Integer
If Worksheets.Count > 1 Then
  Application.DisplayAlerts = False
  For j = Worksheets.Count To 2 Step -1
    Worksheets(Worksheets(j).Name).Delete
  Next
  Application.DisplayAlerts = True
End If
End Sub

Private Sub Workbook_Open()
ThisWorkbook.DeleteNotFirstSheet
End Sub

回應 1
分享
檢舉

ian iT邦新手 5 級 ‧ 2020-06-27 16:52:10 檢舉

感謝你的回答~

登入發表回應

海綿寶寶

iT邦大神 1 級 ‧ 2020-06-26 14:10:49

我只會刪掉Sheets
不會關掉活頁簿

資料請先備份
參考看看

Sub Main()
    Application.DisplayAlerts = False
    Do While Sheets.Count > 1
        Sheets(Sheets.Count).Delete
    Loop
    Application.DisplayAlerts = True
End Sub