vb.net 教程 10-2 Excel操作1 Excel文件的打开

为了便于理解Excel操作，我做了一个示意图

1、打开Excel，相当于新建了一个Application对象：
Dim xls As New Excel.Application

2、打开工作簿（包含1个或多个工作表）相当于新建Workbook并打开文件：
Dim Wbook As Excel.Workbook = xls.Workbooks.Open(filename)

3、所有工作表的集合，相当于Worksheets：
Dim Wsheets As Excel.Worksheets = Wbook.Worksheets

4、单个的工作表，相当于Worksheet，单个的工作表可以通过两种方式获得：
Dim Wsheet As Excel.Worksheet=Wsheets(序号) ，如Worksheets(1)
或者
Dim Wsheet As Excel.Worksheet=Wsheets(工作表名称)，如Worksheets("Sheet1")
还可以略过Worksheets：
Dim Wsheet As Excel.Worksheet= Wbook.Worksheets(1)

5、最后，别忘了关闭打开的 Excel：
xls.Quit()

当定义并获得一个Worksheet后，我们就可以操作里面的数据
使用worksheet.Rows.Count 和 worksheet.Columns.Count 获得工作表的行数和列数，
这两个数字对于Excel2003到Excel97版本（*.xls文件）是 65535 和 256
对于Excel2007及以后版本（*.xlsx 文件）是 1048576 和 16384
要想获得里面的数据，必须对rows和columns进行遍历，但是，这两个数字实在是太大了，所以常常使用
worksheet..UsedRange.Columns.Count 和 worksheet..UsedRange.Rows.Count
来获得有效使用的行数和列数。
通过 worksheet.Cells(行号，列号).Value 即可获得对应单元格的值
但是需要注意的是，如果那个单元格为空，可能会引发错误，可以使用isNothing先做判断是否有数据。

以下是一个简单的代码来说明上面的操作。
使用到的xls文件内容如下：

使用到的窗体设计如下，其中lvExel.View属性设置为 Details ：

具体代码：

   '载入数据Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim filename As StringDim ofd As New OpenFileDialog()ofd.Filter = "表格文件|*.xls;*.xlsx"If ofd.ShowDialog <> DialogResult.OK ThenExit SubElsefilename = ofd.FileNamelvExcel.Items.Clear()End IfDim xls As New Excel.ApplicationDim Wbook As Excel.Workbook = xls.Workbooks.Open(filename)Dim Wsheet As Excel.WorksheetWsheet = Wbook.Worksheets(1)    '("Sheet1")Dim maxColumn As IntegerDim maxRow As Integer'读入第一行数据作为columnIf Wsheet.Rows.Count > 1 ThenlvExcel.Columns.Clear()maxColumn = Wsheet.UsedRange.Columns.CountmaxRow = Wsheet.UsedRange.Rows.CountFor i As Integer = 1 To maxColumnIf IsNothing(Wsheet.Cells(1, i).Value) Then'无数据lvExcel.Columns.Add("(空)")ElselvExcel.Columns.Add(Wsheet.Cells(1, i).Value)End IfNextFor j As Integer = 2 To maxRowDim Lv As New ListViewItem()Dim LvText As StringIf IsNothing(Wsheet.Cells(j, 1).Value) ThenLvText = "(空)"ElseLvText = Wsheet.Cells(j, 1).ValueEnd IfLv.Text = LvTextDim subLvText As StringFor k As Integer = 2 To maxColumnIf IsNothing(Wsheet.Cells(j, k).Value) ThensubLvText = "(空)"ElsesubLvText = Wsheet.Cells(j, k).ValueEnd IfLv.SubItems.Add(subLvText)NextlvExcel.Items.Add(Lv)NextEnd Ifxls.Quit()End Sub

运行后，当点击载入数据，选中样例文件打开后如下：