在ASP.NET访问Excel文件 (VB and C#)

    
   C# Code
   ---------------------------------------------
   <%@ 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:\\exceltest.xls;"
   +"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.NET Code
   ----------------------------------------------
   <%@ 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:\exceltest.xls;" _
   & "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"/>
  
    做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。