none
查询结果导出到EXCEL RRS feed

  • 问题

  • 想问下我下面的代码查询结果现在是导出到EXCEL的一个表上的,如果我再加多个查询结果一起导出到同一个EXCEL文件不一样的工作表上怎么实现?

    也就是说两个查询结果导出到一个EXCEL文件的两个工作表上。

    Response.ContentType = "application/vnd.ms-excel"
                Response.AddHeader     "Content-Disposition", "attachment; filename=BomExport-" & thisDate & ".xls"

                Response.Write "<table border=""1"">"

     Response.write "<tr bgcolor=""#cccccc""><td>Agilepartnumber</td><td>Description</td><td>Qty</td><td>manufacturerer name</td><td>ManufacturerPartNumber</td><td>MDFStatus</td><td>Weight(mg)</td><td>PPMPass</td><td>CFName</td><td>HMName</td><td>MaterialName</td><td>CASNumber</td><td>CalcMgMass</td><td>SubstancePPM</td><td>Exemption</td><td>SubstanceMass</td><td>StandardName</td><td>StandardCompoundMaterialName</td><td>CASNumber</td><td>MaterialName</td><td>StandardLimitAmount</td></tr>"
                For x = 0 To UBound(dsData,2)
                    If not(isnull(dsData(18,x))) Then
                        Response.Write "<tr bgcolor=""#cc0033"">"
                    Else
                        Response.Write "<tr>"
                    End If
                    For y = 0 To UBound(dsData,1)
                        If dsData(1,x) = "g" Then
                            Response.Write "<td>" & dsData(y,x) & "</td>"
                        Else
                            Response.Write "<td>" & dsData(y,x) & "</td>"
                        End If
                    Next
                    Response.Write "</tr>"
                Next
                Response.Write "</table>"


    Ares Zeng
    2011年5月9日 7:08

答案

  • 你好,

    官方是不推荐在服务端代码中操作office产品的。因为所有office产品不论是设计、测试,还是配置,都是直接针对在客户端机器上的使用office的最终用户。当然你可以通过多种方式在服务端实现对office产品操作,但是微软推荐使用其他的替代方案:

    http://support.microsoft.com/kb/257757

    你碰到的这个问题,由于使用的是html的方式将数据输出到excel表中,这种方式据我所知是无法控制excel中的工作表的。你可以去尝试搜索一下使用其他方式将数据导入到excel。谢谢。


    Leo Tang [MSFT]
    MSDN Community Support | Feedback to us
    Get or Request Code Sample from Microsoft
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.
    2011年5月10日 9:35
    版主