VB6.0 Excel的動態生成多個Sheet的方法

我們知道，不采用模版生成一個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做相關的操作了