iT邦幫忙

0

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

https://ithelp.ithome.com.tw/upload/images/20200626/20128213QLTtUIUA44.jpg

是活頁簿還是工作表?
iannnn iT邦新手 5 級 ‧ 2020-06-27 16:51:49 檢舉
不好意思,應該是工作表才對~~

2 個回答

1
rogeryao
iT邦高手 1 級 ‧ 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
iannnn iT邦新手 5 級 ‧ 2020-06-27 16:52:10 檢舉

感謝你的回答~

2
海綿寶寶
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
iannnn iT邦新手 5 級 ‧ 2020-06-27 16:52:25 檢舉

感謝你的回答~~

我要發表回答

立即登入回答