效果展示

引用excel类

Imports Microsoft.Office.Interop

Excel类代码开始

Public Class Cls_excel

返回Excel对象

''' ''' 返回Excel对象''' ''' Private Shared Function Xlapp() As Excel.ApplicationTryReturn GetObject(, "Excel.Application")Catch ex As Exception            MsgBox("连接Excel失败!", MsgBoxStyle.Critical, "警告")Return NothingEnd TryEnd Function

返回工作簿列表

    ''' ''' 返回工作簿列表''' ''' Public Shared Function Get_worklist() As ArrayListTryDim arr As New ArrayListFor Each XL In Xlapp.Workbooks                arr.Add(XL.name)NextReturn arrCatch ex As ExceptionReturn NothingEnd TryEnd Function

返回工作表列表

    ''' ''' 返回工作表列表''' ''' Public Shared Function Get_sheetlist(ByVal book As String) As ArrayListTryDim arr As New ArrayListDim xll As Excel.Workbook = Xlapp.Workbooks(book)For Each XL In xll.Worksheets                arr.Add(XL.name)NextReturn arrCatch ex As ExceptionReturn NothingEnd TryEnd Function

返回指定工作表对象

    ''' ''' 返回选中的工作表''' ''' Public Shared Function XlSheet(ByVal boname As String, ByVal shname As String) As Excel.WorksheetTryDim xlll As Excel.Workbook = Xlapp.Workbooks(boname)            xlll.Activate()Dim xlsh As Excel.Worksheet = xlll.Worksheets(shname)            xlsh.Activate()Return xlshCatch ex As ExceptionReturn NothingEnd TryEnd FunctionEnd Class

使用方法：

Public Class Form1    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        ListBox1.DataSource = Cls_excel.Get_worklist    End Sub    Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click        ListBox2.DataSource = Cls_excel.Get_sheetlist(ListBox1.SelectedItem)    End Sub    Private Sub ListBox2_Click(sender As Object, e As EventArgs) Handles ListBox2.Click        Dim XL As Object = Cls_excel.XlSheet(ListBox1.SelectedItem, ListBox2.SelectedItem)        Label2.Text = XL.Name & vbCrLf & "A1单元格的值：" & XL.RANGE("a1").value    End SubEnd Class

今天教程到此结束啦！