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

81 阅读 0 评论 54 点赞

我是靠谱客的博主矮小大树，这篇文章主要介绍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.Click
        Dim filename As String
        Dim ofd As New OpenFileDialog()
        ofd.Filter = "表格文件|*.xls;*.xlsx"
        If ofd.ShowDialog <> DialogResult.OK Then
            Exit Sub
        Else
            filename = ofd.FileName
            lvExcel.Items.Clear()
        End If

Dim xls As New Excel.Application
        Dim Wbook As Excel.Workbook = xls.Workbooks.Open(filename)

Dim Wsheet As Excel.Worksheet
        Wsheet = Wbook.Worksheets(1)    '("Sheet1")

Dim maxColumn As Integer
        Dim maxRow As Integer
 
        '读入第一行数据作为column
        If Wsheet.Rows.Count > 1 Then
            lvExcel.Columns.Clear()

maxColumn = Wsheet.UsedRange.Columns.Count
            maxRow = Wsheet.UsedRange.Rows.Count

For i As Integer = 1 To maxColumn
                If IsNothing(Wsheet.Cells(1, i).Value) Then
                    '无数据
                    lvExcel.Columns.Add("(空)")
                Else
                    lvExcel.Columns.Add(Wsheet.Cells(1, i).Value)
                End If
            Next

For j As Integer = 2 To maxRow
                Dim Lv As New ListViewItem()
                Dim LvText As String

If IsNothing(Wsheet.Cells(j, 1).Value) Then
                    LvText = "(空)"
                Else
                    LvText = Wsheet.Cells(j, 1).Value
                End If
                Lv.Text = LvText

Dim subLvText As String
                For k As Integer = 2 To maxColumn
                    If IsNothing(Wsheet.Cells(j, k).Value) Then
                        subLvText = "(空)"
                    Else
                        subLvText = Wsheet.Cells(j, k).Value
                    End If
                    Lv.SubItems.Add(subLvText)
                Next

lvExcel.Items.Add(Lv)
            Next
        End If

xls.Quit()
    End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
   '载入数据
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim filename As String
        Dim ofd As New OpenFileDialog()
        ofd.Filter = "表格文件|*.xls;*.xlsx"
        If ofd.ShowDialog <> DialogResult.OK Then
            Exit Sub
        Else
            filename = ofd.FileName
            lvExcel.Items.Clear()
        End If

        Dim xls As New Excel.Application
        Dim Wbook As Excel.Workbook = xls.Workbooks.Open(filename)

        Dim Wsheet As Excel.Worksheet
        Wsheet = Wbook.Worksheets(1)    '("Sheet1")

        Dim maxColumn As Integer
        Dim maxRow As Integer
 
        '读入第一行数据作为column
        If Wsheet.Rows.Count > 1 Then
            lvExcel.Columns.Clear()

            maxColumn = Wsheet.UsedRange.Columns.Count
            maxRow = Wsheet.UsedRange.Rows.Count

            For i As Integer = 1 To maxColumn
                If IsNothing(Wsheet.Cells(1, i).Value) Then
                    '无数据
                    lvExcel.Columns.Add("(空)")
                Else
                    lvExcel.Columns.Add(Wsheet.Cells(1, i).Value)
                End If
            Next


            For j As Integer = 2 To maxRow
                Dim Lv As New ListViewItem()
                Dim LvText As String

                If IsNothing(Wsheet.Cells(j, 1).Value) Then
                    LvText = "(空)"
                Else
                    LvText = Wsheet.Cells(j, 1).Value
                End If
                Lv.Text = LvText

                Dim subLvText As String
                For k As Integer = 2 To maxColumn
                    If IsNothing(Wsheet.Cells(j, k).Value) Then
                        subLvText = "(空)"
                    Else
                        subLvText = Wsheet.Cells(j, k).Value
                    End If
                    Lv.SubItems.Add(subLvText)
                Next

                lvExcel.Items.Add(Lv)
            Next
        End If

        xls.Quit()
    End Sub