Dim strPath As String = Server.MapPath("~/文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory.CreateDirectory(strPath)
End If
Dim PATH As String = Server.MapPath((FileUpload1.FileName))
'如果文件存在 则上传
If (FileUpload1.HasFile) Then
FileUpload1.PostedFile.SaveAs(PATH)
End If
'一:先把EXCEL导入dateView
'二:然后将dateView里的数据导入到数据库里面
'EXCEL 的连接串
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" + PATH + ";" & _
"Extended Properties=Excel 8.0;"
'建立EXCEL的连接
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
Dim objCmdSelect As OleDbCommand = New OleDbCommand("SELECT * FROM [Sheet1$]", objConn)
Dim objAdapter As OleDbDataAdapter = New OleDbDataAdapter()
objAdapter.SelectCommand = objCmdSelect
Dim objDataset As DataSet = New DataSet()
objAdapter.Fill(objDataset, "XLData")
Dim dt As DataTable = objDataset.Tables(0)
'转换成table后就可以随即操作了
值得注意的是:上传的时候需要有权限 所以在web.config里 <authentication mode="Windows"/> 节点下加一行代码
<identity impersonate ="true" userName="域名/账号" password="*****"/>
发布网站的时候在服务器加上这句话发布 在本机发布必须隐掉这句话要不然报错