不用打开EXCEL进程,不过要用到FSO代码如下:

最新推荐文章于 2023-12-19 14:52:46 发布

gbsck

最新推荐文章于 2023-12-19 14:52:46 发布

阅读量1.1k

点赞数

分类专栏： ASP_开发类文章标签： excel xsl properties javascript file sql server

本文链接：https://blog.csdn.net/gbsck/article/details/574806

版权

ASP_开发类专栏收录该内容

33 篇文章 0 订阅

订阅专栏

我给你代码,不用打开EXCEL进程,不过要用到FSO,(我一直用得很好)代码如下:
<%
server.scripttimeout=100000000
sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn)
 '定义
 dim myConnection
 dim strName
 dim rsXsl,rsSql
 dim str_Xsl,str_Sql
 dim myConn_Xsl
 dim cmd
 dim i,j
 dim maxId

    strName=strFileName
    set myConnection=server.createobject("adodb.connection")
    set rsXsl=Server.Createobject("ADODB.Recordset")
    set rsSql=Server.CreateObject("ADODB.Recordset")
    set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=myConn

myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName & ";Extended Properties=Excel 8.0"

'myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("ASP_Directory") & "chapter05/database/" & strName & ";Extended Properties=Excel 8.0"
   '打开连接
    myConnection.open myConn_Xsl

    '打开表
    str_Xsl="select * from ["& strSheetName &"$]"
    rsXsl.open str_Xsl,myConnection,1,1
j=1
    Do While not rsXsl.eof
    '取出最大值
    str_Sql="select Max(id) as maxId from fubiao"
    rsSql.open str_Sql,myConn,1,3
    If Not rsSql.Eof Then
       If not isNull(rsSql("maxId")) Then
          maxId=Clng(rsSql("maxId"))+1
    Else
       maxId=1
    End if
    else
       maxId=1
    End if
    rsSql.close'//关闭对象
'加入数据库
str_Sql="insert into fubiao values("&maxId&",'"&rsXsl(1)&"','"&rsXsl(3)&"','"&rsXsl(4)&"','"&rsXsl(5)&"','"&rsXsl(6)&"','"&rsXsl(7)&"','"&rsXsl(8)&"','"&rsXsl(9)&"','"&rsXsl(10)&"','"&rsXsl(11)&"','"&rsXsl(12)&"','"&rsXsl(13)&"','"&rsXsl(14)&"','"&rsXsl(15)&"','"&rsXsl(16)&"','"&rsXsl(17)&"','"&rsXsl(18)&"','"&rsXsl(19)&"','"&rsXsl(20)&"','"&rsXsl(21)&"','"&rsXsl(22)&"','"&rsXsl(23)&"','"&rsXsl(24)&"','"&rsXsl(25)&"','"&rsXsl(26)&"','"&rsXsl(27)&"')"
    cmd.CommandText=str_Sql
    cmd.Execute()
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         j=j+1
    rsXsl.movenext
    Loop

response.write "共导入" & j-1 & "条记录. "
 response.write "<a href=javascript:history.back()>确定</a>"
 set rsXsl=nothing
 set rsSql=nothing
 set myconnection=nothing
 set cmd=nothing
end sub

file1="'"&request.form("filename2")&"'"
strtj=mid(request.form("filename2"),instrrev(file1,"/"),(instrrev(file1,".")-instrrev(file1,"/")-1))
if file1="" then
response.write "请选择您要导入的Excel表!"
%>
<a href=javascript:history.back()>上一页</a>
<%
response.end
end if
'respons.write "'"&request.form("filename")&"'"
myconn="DRIVER={SQL SERVER};SERVER=(local);uid=sa;pwd=sa;DATABASE=qjgsj_data"
dataIntoSqlServer_ceritificate file1,""&strtj&"",myconn