vb.net 教程 10 |
您所在的位置：网站首页 › 鸿蒙安装安卓apk解析包错误 › vb.net 教程 10 |
vb.net 教程 10
|
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 为了便于理解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运行后，当点击载入数据，选中样例文件打开后如下：
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。 学习更多vb.net知识，请参看 vb.net 教程 目录 |
【本文地址】