作者：乔山办公网日期：
返回目录：excel表格制作
拼表格，再引e799bee5baa6e59b9ee7ad94334用方法，记得连数据库
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();
}
可以先知把网页内容下载下来，然后再复制一个副本，再把副本的后缀改成xls或doc就可以了；道再把修改后缀后的表格打开，重专新另存为保存“属excel 97-2003工作表（xls)”即可。
word保存方式同excel文件一样。
这个我做过，用asp的话，效率很低，慢得要死~~~而且很容易脚本超时。
后来我是用vb6.0写的dll，然后在asp中调用的。
不知道搂住的服务器可不可以安装dll？？？
下面是asp中的e799bee5baa6e79fa5e98193e4b893e5b19e334代码
=====================================================
Set rs2=Server.CreateObject("ADODB.recordset")
sql="select * from eq where eqbumen='"&dep&"' order by eqbumen desc"
rs2.open sql,conn,1,1
set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open(server.mappath("\test")&"\book1.xlt") '打开Excel模板
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
num=2 '从Excel的第2行开始
Do while not rs2.eof '循环直至数据集中的数据写完
strRange="b"&num&":k"&num '设定要填写内容的单元区域
sheetActive.range(strRange).font.size=10 '设定字体大小
sheetActive.range(strRange).WrapText=false '设定文字回卷
sheetActive.range(strRange).ShrinkToFit=true '设定是否自动适应表格单元大小
sheetActive.range(strRange).value=array(rs2("zcid"),rs2("eqname"),rs2("eqchangjia"),rs2("eqxinghao"),rs2("eqnengli"),rs2("eqweizhi"),rs2("eqxianzhuang"),rs2("eqno"),rs2("eqbumen"),rs2("eqchejian")) '把数据集中的数据填写到相应的单元中
num=num+1
rs2.MoveNext
loop
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,".")
getTemporaryFile=mid(tempFile,1,dotPos)&"xls"
end function
set myFs=createObject("scripting.FileSystemObject")
filePos=server.mappath("\test")&"\temp" '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名
'myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename
objExcel.quit
set objExcel=Nothing
1、保存网页
在浏览器中访问目标网页，执行菜单“文件”→“另存为”，文知件类型选择“网页，全部”。
2、用WPS文字打开html文件
执行“文件”→“打开”，文件类型选择“网页文道件”或“所有文件”，以打开刚才下载得到的《[征稿八]怎样用WPS制作PDF》html文件。
3、去掉不需要的部分
注：表格形式出现的正文，内可以选中后执行“表格”→“转换”→“表格转换为文本”去除表格外框。容
4、最后另存为WPS文档或WORD文档即可。