从excel倒入数据

Dim filename As String = Server.MapPath("test1.xls")
Response.Write(System.IO.File.Exists(filename))
Response.Write(filename)
Dim exc As Excel.Application = New Excel.Application
Try

exc.Workbooks.Open(filename)
Dim sht As Excel.Worksheet = exc.Worksheets(1)
Dim str As String = sht.UsedRange.Cells(1, 1).value

Response.Write(str)
Catch ex As Exception
Response.Write(ex.Message)

Finally
exc.Workbooks(1).Close()
exc.Quit()

End Try