Question

我有一个报告页面，它有两个标签，两个下拉菜单，一个命令按钮和一个显示数据的表格。问题是，在将数据导出到Excel时，标签和下拉列表也会随表一起导出。

如何只导出表而不是任何html控件？

Answer 1

最好通过FileSystemObject将表的内容导出到excel文件。

例如：

    dim vPath , vRecordset
    vPath = "reports/" & objFileSystem.GetTempName & ".xls"
    set vRecordset= DBConnection.Execute(SqlQueryString)

    set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
    set objFile= objFileSystem.OpenTextFile(Server.MapPath(vPath),8,true,-1)

    dim strHeader,strLine
    strHeader = "<table border=1><tr>"
    strLine = ""

    for each col in vRecordset.fields
        strHeader = strHeader &"<th bgcolor=#bed9fa><b>" & col.name & "</b></th>"
    next
    objFile.WriteLine strHeader & "</tr>"

    do while not vRecordset.eof
        strLine = "<tr>"
        for each col in vRecordset.fields
            strLine = strLine & "<td>" & col.value &  "</td>"
        next
        objFile.WriteLine strLine & "</tr>"
    vRecordset.movenext
    loop
    objFile.WriteLine "</table>"

    response.write "<a href='"& vPath &"'>report download</a>"

用户下载现有文件直接响应页面的所有内容将更加顺畅。

使用Classic ASP将表数据导出到Excel的问题

1 个答案: