VB6.0 Excel不同Sheet之間的操作

VB6.0

Dim l_xlsApp As Excel.Application    '定義一個Excel應用程序對像
    Dim l_xlsWB As Excel.Workbook   '定義一個Excel工作區對像
    Dim l_objQTable As Excel.QueryTable
    Dim l_xlsWS As Excel.Worksheet '定義一個WorkSheet對像(對應Excel中的Sheet)

    Dim l_xlsWS2 As Excel.Worksheet '定義另一個WorkSheet對像

    ' 設定物件變數
    'Set l_xlsApp = CreateObject("Excel.Application")
    Set l_xlsApp = New Excel.Application
    Set l_xlsWB = l_xlsApp.Workbooks.Open(l_strExcelFile)
    Set l_xlsWS = l_xlsWB.Worksheets(1)
    l_xlsWS.Name = "例子"

    '以上我生成好一個Sheet了，還可以對l_xlsWS做相關的操作，但當我們想在第二個Sheet做相關操作時，怎麼辦呢？因為l_xlsWS2是我們定義的另一個Sheet的對像，所以我們可以如下：

        Set l_xlsWS2 = l_xlsWB.Worksheets(2)
        l_xlsWS2.Name = "第二個Sheet名"

'這裡值得提醒的是....l_xlsWB.Worksheets(2)有可能范圍會超出或爆左，這就要視乎模版的Sheet或者生成的Sheet中有多少個已設定好的Sheet,如果模版或生成的只有一個Sheet,這樣用l_xlsWB.Worksheets(2)就必定會范圍爆左，這樣就要采用番動態生成Sheet的方法，之後再操作