如何用asp读取Excel文件

最新推荐文章于 2011-11-15 23:57:02 发布

jianqian1234

最新推荐文章于 2011-11-15 23:57:02 发布

阅读量1k

点赞数

文章标签： excel asp microsoft 服务器 vbscript 数据库

本文链接：https://blog.csdn.net/jianqian1234/article/details/6431280

版权

本文介绍了如何使用ASP与VBScript来操作Excel文件，包括创建Excel对象、新建和打开文件、读取内容、另存和保存文件，并强调了在操作完成后必须退出Excel应用的重要性。

摘要由CSDN通过智能技术生成

1.ASP对Excel的基本操作
(1) 建立Excel对象
     创建Excel对象可以通过下面的代码来实现:
<%
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false                '不显示警告
objExcelApp.Application    = false                '不显示界面
%>
(2) 新建Excel文件
     新建Excel文件可以通过以下代码来实现:
<%
objExcelApp.WorkBooks.add
set objExcelBook    = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet   = objExcelBook.Sheets(1)
%>
(3) 读取已有的Excel文件
     读取已有的Excel文件可以通过下面的代码来实现
<%
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls")
set objExcelBook    = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet   = objExcelBook.WorkSheets(1)
%>
(4) 另存Excel文件
     另存Excel文件可以通过以下代码来实现
<%
objExcelBook.SaveAs strAddr & "templateTables.xls"
%>
(5) 保存Excel文件
     保存Excel文件可以通过以下代码来实现:
<%
objExcelBook.Save
%>
(6) 退出Excel操作
<%
objExcelApp.Quit          '一定要退出
set objExcelApp = nothing
%>

2 读取Excel文件的实例

<%
set xlApp = server.CreateObject("Excel.Application")
strsource = server.MapPath("xl.xls")
set xlbook = xlApp.WorkBooks.Open(strsource)
set xlsheet = xlbook.Worksheets(1)

i = 1
response.write "<table>"

while xlsheet.cells(i,1) <> ""

    response.write "<tr>"
    response.write "<td>" & xlsheet.Cells(i,1) & "</td>"
    response.write "<td>" & xlsheet.Cells(i,2) & "</td>"
    response.write "<td>" & xlsheet.Cells(i,3) & "</td>"
    response.write "<tr>"
    i = i + 1

wend

response.write "</table>"
set xlsheet = nothing
set xlbook   = nothing
xlApp.quit
'千万记住要加这一句，否则每运行一次你的机器里就增加一个Excel进程，而且无法释放
'set xlApp = nothing 是不行的
%>

================================================================

3. 怎样将数据从Excel导入到SQL Server中

(1)
<%
sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn)
    '定义
    dim myConnection
    dim strName
    dim rsXsl,rsSql
    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"
    '打开连接
     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 exceltosql"
    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 exceltosql values(" & maxId&",'"&rsXsl(1)&"','" & rsXsl(2)&"')"
       cmd.CommandText = str_Sql
       cmd.Excute()
       ''''''''''''''''''''''''''''''''''''''''''
       j = j + 1
       rsXsl.moveNext
    loop

    response.write "共导入