Code:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim myDataset As New DataSet()
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Replace(Server.MapPath("."), "\", "\\") & "\\exceltest.xls;" & _
"Extended Properties=""Excel 8.0;"""
@#You must use the $ after the object you reference in the spreadsheet
Dim myOleDbDataAdapter As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
myOleDbDataAdapter.Fill(myDataset)
DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind()
End Sub
</script>
</html>
文章来源于领测软件测试网 https://www.ltesting.net/