活頁簿中新增新的工作表

    要在活頁簿中新增新的工作表，可以用以下語法做到

Sub 新增工作表()

   Sheets.Add after:=Sheets(Sheets.Count)

   ActiveSheet.Name = "新的工作表"

End Sub

第一行程式碼使用Add方法新增一個工作表，並將其新增至所有工作表的後面。Sheets.Count傳回活頁簿中工作表總數