try:
' <summary>
' 读取Excel文件
' </summary>
' <param name="dt">要转换为Excel文件的表</param>
' <param name="page">页面Page对象,用法: 将me.Page传递过来即可</param>
' <return>数据集DataSet</return>
Public Function ReadExcelFileToDataSet(ByVal strFileName As String) As DataSet
Try
'建立一个专门存放Excel文件的目录
If Directory.Exists(Page.Server.MapPath("ExcelFolder")) = False Then
Directory.CreateDirectory(Page.Server.MapPath("ExcelFolder"))
End If
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Page.Server.MapPath(".") & "\ExcelFolder\" & strFileName & ";" & "Extended Properties=Excel 8.0;"
Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConn)
Dim strExcel As String = "select * from [sheet1$]"
Dim ds As DataSet = New DataSet
conn.Open()
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(strExcel, strConn)
adapter.Fill(ds)
Return ds
Catch ex As Exception
Throw ex
End Try
End Function