ASP.NETÈçºÎ¶ÁÈ¡ExcelÎļþµÄ¶àÕŹ¤×÷±í

²âÊÔ»·¾³£ºwindows server 2003+visual studio 2008
    ''' <summary>
    ''' »ñÈ¡ExcelÎļþËùÓй¤×÷±íµÄÃû³Æ
    ''' </summary>
    ''' <param name="iSubPath">ExcelÎļþ·¾¶£¬È磺D:\test.xls</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetSheetName(ByVal iSubPath As String) As String
        Dim strRet = ""
        Dim objExcelConn As New OleDb.OleDbConnection
        Dim i As Integer
        Dim sSName As String = ""
        Dim dtTables As DataTable
        Dim sSql = ""
        Dim objAdapter As New OleDbDataAdapter
        Dim objDataSet As New DataSet
 
        'Selects File & Loops Through the Records
        objExcelConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & iSubPath & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""
        objExcelConn.Open()
 
        dtTables = objExcelConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
 
        If dtTables.Rows.Count > 0 Then
            For i = 0 To dtTables.Rows.Count - 1
                sSName = dtTables.Rows(i)("TABLE_NAME")
                sSName = Replace(sSName, "'", "")