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的方法，之後再操作
