excel导入sql数据库方法.doc

excel导入sql数据库方法在网上看到很多朋友在咨询excel导入sql数据库方法，前段时间做项目时客户有这个功能需求，所以今天给大家分享一下实现的方法。先介绍一个思路：将excel文件上传到服务器，然后预览数据，可以对数据进行筛选，点击“导入”后将选择的数据导入到sql数据库中，最后把上传的文件从服务器上删除，释放空间。好了，接下来我们就按步骤来讲解excel导入sql数据库方法。1、excel文件上传到服务器我们采用函数的实现，代码如下：call UploadFile(fName,FilePath) Function UploadFile(fName,FilePath) UpLoadFileType= x l s | /设置允许上传的文件类型 FileTypeErr=True set upload=new upload_filefor each formName in upload.File set file=upload.File(formName) fName=file.FileNameFileExt=file.FileExtif file.filesize100 thenResponse.Write Response.Write alert(文件地址不能为空);Response.Write location.href= Request.asp; Response.Write Response.end() end if UpLoadFile_ID=split(UpLoadFileType,|)for i=0 to ubound(UpLoadFile_ID) if UpLoadFile_ID(i)=FileExt then FileTypeErr=False exit forend if next if FileTypeErr=True thenResponse.Write Response.Write alert(文件类型错误);Response.Write location.href= Request.asp; Response.Write Response.end()end ifmapurl=trim(fName)file.SaveToFile Server.mappath(mapurl) /保存文件set file=nothing next set upload=nothing FilePath=Server.mappath(mapurl) /将上传的文件路径赋值给FilePathEnd Function2、预览数据，选择数据导入到sql数据库中我们采用函数的实现，代码如下：call ExcelToSql(fName,FilePath) Function ExcelToSql(ExName,FilePath,Mainbody) Dim conn_xlsDim StrConn_xlsDim RsDim SqlDim iExTName = Sheet1On Error Resume NextSet conn_xls =Server.CreateObject(ADODB.Connection)StrConn_xls=Driver=Microsoft Excel Driver (*.xls);DBQ=& Server.MapPath(&ExName)conn_xls.Open StrConn_xlsSet rs_xls = Server.CreateObject(ADODB.Recordset) Sql=select * from &ExTName&$rs_xls.Open Sql,conn_xls ,3,3 If Err Thenerr.ClearSet conn_xls = Nothingset rs_xls=nothingDelete_UpLoadFile(FilePath)Response.Write Response.Write alert(文件格式有误);Response.Write location.href= Request.asp; Response.Write Response.end()End Ifif rs_xls.eof thenSet conn_xls = Nothingset rs_xls=nothingDelete_UpLoadFile(FilePath)Response.Write Response.Write alert(Excel文件中无数据);Response.Write location.href= Request.asp; Response.Write Response.end()elsei=1mainbody=mainbody & mainbody=mainbody &  编号姓名性别省份do while not rs_xls.eof由于excel在处理数据类型时，前面无法带0，补0操作if len(Rs_xls(0)10 then cc= aa=10-len(Rs_xls(0) for c=1 to aa cc=cc & 0 nextend ifpayrollcode=cc & Rs_xls(0) 如果导入的excel数据列有变化，请对程序做适当的修改mainbody=mainbody & mainbody=mainbody & mainbody=mainbody & &payrollcode&mainbody=mainbody & &Rs_xls(1)&mainbody=mainbody & &Rs_xls(2)&mainbody=mainbody & &Rs_xls(3)&mainbody=mainbody & i = i +1rs_xls.MovenextLoopend ifrs_xls.closeset rs_xls=nothingconn_xls.closeset StrConn_xls=nothingmainbody=mainbody &  总数:&i-1& mainbody=mainbody & mainbody=mainbody & End Function3、删除上传的excel文件利用FSO组件删除call Delete_UpLoadFile(FilePath) Function Delete_UpLoadFile(FilePath) Set Fso=server.createobject(scripting.filesystemobject) If Fso.FileExists(FilePath) thenFso.DeleteFile FilePath,trueEnd IfEnd Function4、完整的excel导入sql数据库方法if request(Action)=upload then call UploadFile(fName,FilePath)call ExcelToSql(fName,FilePath)call Delete_UpLoadFile(FilePath)response.redirect Request.asp Response.Endend if需要注意的几个地方：1、请参照example.xls文件的格式进行数据导入，如果excel数据列有增加，可以对程序做适当的修改2、如果在导入数据时，提示“文件格式有误”，请检查ExTName指定的名称和excel文件里的sheet名称是否一致；excel文件是否是标准的excel文件格式。3、确保FilePath在几个函数之间传输时，值不会丢失4、该程序文件和