asp.net 操作excel的实现代码
(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>
浙公网安备 33010602011771号