asp導出數據到EXCEL表格

asp導出到excel

在開頭加上這壹句

Response.ContentType?=?"application/vnd.ms-excel"

如果導出結果為空白的，那就去掉它

壹下是導出Excel代碼

--------------------------------------------------------------------------------

<%

set?rs=server.createobject("adodb.recordset")

sql="select?*?from?provinceinfo?where?1=1"

rs.open?sql,objconn,1,1

Set?ExcelApp?=CreateObject("Excel.Application")

ExcelApp.Application.Visible?=?True

Set?ExcelBook?=?ExcelApp.Workbooks.Add

ExcelBook.WorkSheets(1).cells(1,1).value?="用戶表"?

ExcelBook.WorkSheets(1).cells(2,1).value?=?"用戶編號"?

ExcelBook.WorkSheets(1).cells(2,2).value?=?"登陸名"?

ExcelBook.WorkSheets(1).cells(2,3).value?=?"真實姓名"?

ExcelBook.WorkSheets(1).cells(2,4).value?=?"密碼"?

cnt?=3?

do?while?not?rs.eof?

ExcelBook.WorkSheets(1).cells(cnt,1).value?=?rs("provinceid")?

ExcelBook.WorkSheets(1).cells(cnt,2).value?=?rs("province")?

ExcelBook.WorkSheets(1).cells(cnt,3).value?=?rs("flag")?

ExcelBook.WorkSheets(1).cells(cnt,4).value?=?rs("id")

rs.movenext?

cnt?=?cint(cnt)?+?1?

loop?

Excelbook.SaveAs?"d:\yourfile.xls"'這個是數據導出完畢以後在D盤存成文件

ExcelApp.Application.Quit?'導出以後退出Excel

Set?ExcelApp?=?Nothing?'註銷Excel對象

%>

因妳數據量大 另提示EXCEL相關信息

Excel?07-2003壹個工作表最多可有65536行，行用數字1—65536表示;最多可有256列，列用英文字母A—Z，AA—AZ，BA—BZ，……，IA—IV表示；壹個工作簿中最多含有255個工作表，默認情況下是三個工作表；

Excel?2007及以後版本，壹個工作表最多可有1048576行，16384列；

所以建議用2007以上版本的excel

上一篇:百度空間CSS完整教程

下一篇:壹個馬來西亞的朋友給我發的郵件，可到電腦裏全是亂碼，請哪位好心人幫忙翻譯壹下，謝謝。