查询结果导出到EXCEL

Question

想问下我下面的代码查询结果现在是导出到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