|
為大家介紹vb.net操作excel的實(shí)現(xiàn)代碼，有需要的朋友可以參考下。
一、運(yùn)行環(huán)境
(1).Windows 2000 Professional
(2)..Net Framework SDK Beta 2
(3).Microsoft Access Data Component 2.6(MADC2.6)
二、設(shè)計(jì)思路
(1).獲得要訪問(wèn)的Excel文件名稱
(2).讀出Excel文件的內(nèi)容
(3).用DataGrid格式顯示出來(lái)
三、關(guān)鍵步驟
(1).為了方便，我們就把Excel文件假定在C盤的根目錄，名稱為test.xls。
(2).為了讀取Excel文件，我們必須了解一個(gè)名稱空間(NameSpace)--System.Data.Oledb。System.Data.Oledb中有三個(gè)對(duì)象分別是OleDbConnection，OleDbCommand，OledbDataAdapter。我們就是通過(guò)他們來(lái)訪問(wèn)Excel文件的。
i> OleDbConnection對(duì)象主要是提供連接方式。
ii> OleDbCommand對(duì)象提供對(duì)目標(biāo)的具體操作方法。
iii>OledbDataAdapter對(duì)象是對(duì)對(duì)象進(jìn)行不同操作后的返回?cái)?shù)據(jù)集。
讀取C盤的test.xls：
復(fù)制代碼 代碼示例:
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的內(nèi)容
，把Sheet1$改成Sheet2$即可
Dim myData As OledbDataAdapter= New
OledbDataAdapter(myOleDbCommand)
(3).讀出Excel文件內(nèi)容后，就要把他用DataGrid顯示出來(lái)。
為了顯示，還要用另外一個(gè)名稱空間--System.Data，有個(gè)對(duì)象DataSet，可以和DataGrid進(jìn)行數(shù)據(jù)幫定，從而以DataGrid形式顯示數(shù)據(jù)。而此時(shí)讀出的數(shù)據(jù)集并不是以對(duì)象DataSet來(lái)表現(xiàn)的，這就需要進(jìn)行轉(zhuǎn)換，好在OledbDataAdapter對(duì)象提供了一個(gè)方法--Fill,可以完成轉(zhuǎn)換。
具體程序：
復(fù)制代碼 代碼示例:
Dim myDataset As New DataSet()
myData.Fill(myDataset)
'完成從OledbDataAdapter對(duì)象到DataSet的轉(zhuǎn)換
DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind() '完成數(shù)據(jù)幫定，顯示數(shù)據(jù)
四、完整代碼
復(fù)制代碼 代碼示例:
<%@ 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的形式顯示出來(lái)</asp:label>
<asp:DataGrid id=DataGrid1 runat="server"/>
</body>
</html>
|
