我們知道，不采用模版生成一個Excel時，默認有3個Sheet,但當我們要添加第4個Sheet怎麼辦？或者采用模版生成Sheet,但模版的Sheet我們只設定了兩個，那又如果添加多於設定的兩個呢？下列解答：
Dim l_xlsApp As Excel.Application '定義一個Excel應用程序對像
Dim l_xlsWB As Excel.Workbook '定義一個Excel工作區對像
Dim l_xlsWS As Excel.Worksheet '定義一個WorkSheet對像(對應Excel中的Sheet)
Dim l_xlsWS_Detail As Excel.Worksheet
Dim l_xlsWSS As Excel.Sheets '定義一個Sheets,是指多個Sheet組成的，叫Sheets,這裡作用是生成一個新的Sheet,之後Set給想Set定的對像Sheet
'假設自帶的l_xlsWS (這個Sheet)己滿，要增多一個，下面就是增多一個的例子：
If Not l_xlsWS_Detail Is Nothing Then Set l_xlsWS_Detail = Nothing
If Not l_xlsWSS Is Nothing Then Set l_xlsWSS = Nothing
Set l_xlsWSS = l_xlsWB.Sheets
Set l_xlsWS_Detail = l_xlsWSS.Add
l_xlsWS_Detail.Name = "多一個Sheet的例子"
之後就多了一個Sheet,而我們可以用 l_xlsWS_Detail做相關的操作了
