vb.net 实现操作excel的代码

发布时间:2020-10-12编辑:脚本学堂
为大家介绍vb.net操作excel的实现代码,有需要的朋友可以参考下。

为大家介绍vb.net操作excel的实现代码,有需要的朋友可以参考下。

一、运行环境
(1).Windows 2000 Professional
(2)..Net Framework SDK Beta 2
(3).Microsoft Access Data Component 2.6(MADC2.6)

二、设计思路
(1).获得要访问的Excel文件名称
(2).读出Excel文件的内容
(3).用DataGrid格式显示出来

三、关键步骤
(1).为了方便,我们就把Excel文件假定在C盘的根目录,名称为test.xls。
(2).为了读取Excel文件,我们必须了解一个名称空间(NameSpace)--System.Data.Oledb。System.Data.Oledb中有三个对象分别是OleDbConnection,OleDbCommand,OledbDataAdapter。我们就是通过他们来访问Excel文件的。
i> OleDbConnection对象主要是提供连接方式。
ii> OleDbCommand对象提供对目标的具体操作方法。
iii>OledbDataAdapter对象是对对象进行不同操作后的返回数据集。

读取C盘的test.xls:
 

复制代码 代码示例:
Dim myOleDbConnection As OleDbConnection = New
 OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=c:test.xls;" & _
 "Extended Properties=""Excel 8.0;""")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT *
 FROM [Sheet1$]",myOleDbConnection) '如果你想读出Sheet2的内容
 ,把Sheet1$改成Sheet2$即可
Dim myData As OledbDataAdapter= New
 OledbDataAdapter(myOleDbCommand)

(3).读出Excel文件内容后,就要把他用DataGrid显示出来。
为了显示,还要用另外一个名称空间--System.Data,有个对象DataSet,可以和DataGrid进行数据帮定,从而以DataGrid形式显示数据。而此时读出的数据集并不是以对象DataSet来表现的,这就需要进行转换,好在OledbDataAdapter对象提供了一个方法--Fill,可以完成转换。
具体程序:
 

复制代码 代码示例:
Dim myDataset As New DataSet()
myData.Fill(myDataset)
'完成从OledbDataAdapter对象到DataSet的转换
DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind() '完成数据帮定,显示数据

四、完整代码
 

复制代码 代码示例:

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim myDataset As New DataSet()
Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:.xls;" & _
"Extended Properties=""Excel 8.0;""")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [Sheet1$]",myOleDbConnection)
Dim myData As OledbDataAdapter= New OledbDataAdapter(myOleDbCommand)

myData.Fill(myDataset)

DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind()
End Sub
</script>

<html>
<head></head>
<body>
<asp:Label id="L1" runat="server">读取C盘根目录下的test.xls文件,并以DataGrid的形式显示出来</asp:label>
<asp:DataGrid id=DataGrid1 runat="server"/>
</body>
</html>