Dim xl As New Excel.Application
        Dim xlBook As Excel.Workbook = xl.Workbooks.Open(strSaveExcelFile)
        Dim xlSheet As Excel.Worksheet = xlBook.Sheets(1)
        Dim col As Integer
        Dim row As Integer

        xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(80, 80)).NumberFormat = "@" '文字格式

        For i = 0 To Rlevel.GetUpperBound(0) '標題
            row = 1 + i * 7 + 1
            xlSheet.Cells(1, row) = Rlevel(i) & "分鐘累積"
            xlSheet.Cells(1, row + 1) = "結束時間"
            '............
        Next

        '............

        xlSheet.Cells.Font.Size = 9
        xlSheet.Cells.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter '所有單元水平居中
        xlSheet.Cells.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter   '所有單元垂直居中

        xlSheet.Cells.EntireColumn.AutoFit()                              '所有列自適合單元寬度
        xlSheet.Range("B2").Activate()
        xl.Application.ActiveWindow.FreezePanes = True                    '凍結視窗B2單元

        xlBook.Save()
        xlBook.Close()
        xl.Quit()
 

----------------

關於range的賦值：

兩個要點：

1、定義二維不定陣列，型別為objcet。

    解釋：Represents a cell, a row, a column, a selection of cells containing one or more contiguous blocks of cells, or a 3-D range.

   微軟上的解釋，可以是單個，2D，或3D維度，（3D沒見過），一般是2D，所以應是兩個維度，應定義2維不定陣列。object可以替代不定型別。

2、轉換賦值後的陣列，沒有0開始，一切從（1，1）開始。且可以直接將元素直接賦值。

思考：把上面的ws.cells(1,1)改為ws.cells(1,2)後，其二維陣列的內部序號怎麼變化?