作者：乔山办公网日期：
返回目录：excel表格制作
Set fso = CreateObject("Scripting.FileSystemObject")
Set htmlwrite=fso.OpenTextFile(server.MapPath("xxx.txt"))
strOut=htmlwrite.ReadAll
htmlwrite.close
response.write(strOut)
大体意zhidao思就是这专些 其他的再自属己补充下
拼表格，再引e799bee5baa6e997aee7ad94e78988e69d83330用方法，记得连数据库
public static void StringToExcel(StringBuilder strExcel, string strTitle, HttpResponse Response)
{
Response.Clear();
Response.Buffer = true;
Response.Charset = "utf-8"; //设置了类型为中文防止乱码的出现
Response.AddHeader("content-disposition", "attachment;filename=" + strTitle + ".xls");
Response.ContentEncoding = System.Text.Encoding.GetEncoding("gb2312");//设置输出流为简体中文
Response.ContentType = "application/vnd.ms-excel";//设置输出文件类型为excel文件。
System.IO.StringWriter stringWrite = new System.IO.StringWriter(strExcel);
Response.Write(stringWrite.ToString());
Response.End();
}
使用循环读取数据的方法导出excel文件e799bee5baa6e4b893e5b19e364，提供你一个参考思路，希望能帮你解决问题！
<%
dim def_export_sep,def_export_val
def_export_sep = ","
def_export_val = """"
Set rs = Conn.Execute(sql)
if filetype="csv" then
Response.contenttype="text/csv"
Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".csv"
strLine=""
For each x in rs.fields
strLine= strLine & def_export_val & x.name & def_export_val & def_export_sep
Next
Response.write strLine & vbnewline
While rs.EOF =false
strLine= ""
For each x in rs.fields
strLine= strLine & def_export_val & Myreplace(x.value) & def_export_val & def_export_sep
Next
rs.MoveNext
Response.write strLine & vbnewline
Wend %>
如果知你用的是asp环境的话，就用道asp script要好点。具体请参考：回http://apps.hi.baidu.com/share/detail/33316721
希望能帮到你，祝你成答功！