在ASP.NET访问Excel文件 (VB)
  
  
  C#  ---------------------------------------------
  <%@ Page Language="C#" %>
  <%@ Import Namespace="System.Data" %>
  <%@ Import Namespace="System.Data.ADO" %>
  <script language="C#" runat="server">
  protected void Page_Load(Object Src, EventArgs E)
  {
  string strConn;
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
  +"Data Source=C:\\excel  +"Extended Properties=Excel 8.0;";
  ADODataSetCommand myCommand = new ADODataSetCommand("SELECT * FROM [Sheet1$]", strConn);
  DataSet myDataSet = new DataSet();
  myCommand.FillDataSet(myDataSet, "ExcelInfo");
  DataGrid1.DataSource = myDataSet.Tables["ExcelInfo"].DefaultView;
  DataGrid1.DataBind();
  }
  </script>
  <p><asp:Label id=Label1 runat="server">Excel表格内容:</asp:Label></p>
  <asp:DataGrid id=DataGrid1 runat="server"/>
  
  VB  ----------------------------------------------
  <%@ Page Language="VB" %>
  <%@ Import Namespace="System.Data" %>
  <%@ Import Namespace="System.Data.ADO" %>
  <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=C:\excel  & "Extended Properties=""Excel 8.0;"""
  Dim myADODataSetCommand As New ADODataSetCommand("SELECT * FROM [Sheet1$]", strConn)
  myADODataSetCommand.TableMappings.Add("Table", "ExcelTest")
  myADODataSetCommand.FillDataSet(myDataset)
  DataGrid1.DataSource = myDataset.Tables(0).DefaultView
  DataGrid1.DataBind()
  End Sub
  </script>
  <p><asp:Label id=Label1 runat="server">Excel表格内容:</asp:Label></p>
  <asp:DataGrid id=DataGrid1 runat="server"/>