請問壹些關於 巨集的問題

mark15jill

如題
假使 有100筆資料 (同時放在一個EXCEL下  就是 一個新的EXCEL環境 放進100筆資料 並且未置底 僅縮小)
其中 40筆的資料 活頁簿 有 班級壹 班級貳 班級參 班級肆 班級五  五頁
     30筆的資料 活頁簿 有 班級壹 班級貳 班級五  班級六  四頁
     30筆的資料 活頁簿 有 班級壹 班級貳 班級肆 四頁
我已經有作三個巨集模組
但是 卻發生 幾種情形 使得 效率變很差
情形1  會發生 陣列錯誤 導致程式執行中斷
情形2  會發生 資料數太多 同時放置太多EXCEL檔的話會當掉
情形3 有時候會產生 資料未做修正 就直接儲存關閉(如: sheet名稱未改 就直接儲存關閉)


想請教是否可以自動忽略情形一的錯誤
感謝各位高手

以下是我所做的巨集指令



Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+l
    Application.DisplayAlerts = False
    Sheets("班級壹").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("班級貳").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("班級參").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("班級肆").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("班級五").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("班級六").Select
    ActiveWindow.SelectedSheets.Delete
End Sub



Sub Macro2()
'
' Macro2 Macro
'
' 快速鍵: Ctrl+q
Sub CloseAllWorkbooks()
    Dim Book As Workbook
    For Each Book In Workbooks
        If Book.Name <> ThisWorkbook.Name Then
            Book.Close savechanges:=True
        End If
    Next Book
    ThisWorkbook.Close savechanges:=True
End Sub

End Sub


Sub Macro3()
'
' Macro3 Macro
'
' 快速鍵: Ctrl+e

    Application.Run "PERSONAL.XLSB!Macro1"
    Application.Run "PERSONAL.XLSB!Macro2"
End Sub