vb.net操作excel汇集

        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)后，其二维数组的内部序号怎么变化?

最后

以上就是风趣翅膀为你收集整理的vb.net操作excel汇集的全部内容，希望文章能够帮你解决vb.net操作excel汇集所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。