开发者社区> springfe> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

ASP导出Excel数据的四种方法

简介:  一、使用OWC   什么是OWC?   OWC是Office Web Compent的缩写,即Microsoft的Office Web组件,它为在Web中绘制图形提供了灵活的同时也是最基本的机制。
+关注继续查看

 一、使用OWC

  什么是OWC?

  OWC是Office Web Compent的缩写,即Microsoft的Office Web组件,它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中,如果可以假设客户机上存在特定的浏览器和一些功能强大的软件(如IE5和Office 2000),那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下,客户端工作站将在整个任务中分担很大的比重。

  1img_a6339ee3e57d1d52bc7d02b338e15a60.gif<%Option Explicit 
  2img_a6339ee3e57d1d52bc7d02b338e15a60.gifClass ExcelGen 
  3img_a6339ee3e57d1d52bc7d02b338e15a60.gifPrivate objSpreadsheet 
  4img_a6339ee3e57d1d52bc7d02b338e15a60.gifPrivate iColOffset 
  5img_a6339ee3e57d1d52bc7d02b338e15a60.gif
  6img_a6339ee3e57d1d52bc7d02b338e15a60.gifPrivate iRowOffset 
  7img_a6339ee3e57d1d52bc7d02b338e15a60.gifSub Class_Initialize() 
  8img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet objSpreadsheet = Server.CreateObject("OWC.Spreadsheet"
  9img_a6339ee3e57d1d52bc7d02b338e15a60.gifiRowOffset = 2 
 10img_a6339ee3e57d1d52bc7d02b338e15a60.gifiColOffset = 2 
 11img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Sub 
 12img_a6339ee3e57d1d52bc7d02b338e15a60.gif
 13img_a6339ee3e57d1d52bc7d02b338e15a60.gifSub Class_Terminate() 
 14img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet objSpreadsheet = Nothing 'Clean up 
 15img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Sub 
 16img_a6339ee3e57d1d52bc7d02b338e15a60.gif
 17img_a6339ee3e57d1d52bc7d02b338e15a60.gifPublic Property Let ColumnOffset(iColOff) 
 18img_a6339ee3e57d1d52bc7d02b338e15a60.gifIf iColOff > 0 then 
 19img_a6339ee3e57d1d52bc7d02b338e15a60.gifiColOffset = iColOff 
 20img_a6339ee3e57d1d52bc7d02b338e15a60.gifElse 
 21img_a6339ee3e57d1d52bc7d02b338e15a60.gifiColOffset = 2 
 22img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd If 
 23img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Property 
 24img_a6339ee3e57d1d52bc7d02b338e15a60.gif
 25img_a6339ee3e57d1d52bc7d02b338e15a60.gifPublic Property Let RowOffset(iRowOff) 
 26img_a6339ee3e57d1d52bc7d02b338e15a60.gifIf iRowOff > 0 then 
 27img_a6339ee3e57d1d52bc7d02b338e15a60.gifiRowOffset = iRowOff 
 28img_a6339ee3e57d1d52bc7d02b338e15a60.gifElse 
 29img_a6339ee3e57d1d52bc7d02b338e15a60.gifiRowOffset = 2 
 30img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd If 
 31img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Property Sub GenerateWorksheet(objRS) 
 32img_a6339ee3e57d1d52bc7d02b338e15a60.gif'Populates the Excel worksheet based on a Recordset's contents 
 33img_a6339ee3e57d1d52bc7d02b338e15a60.gif'Start by displaying the titles 
 34img_a6339ee3e57d1d52bc7d02b338e15a60.gifIf objRS.EOF then Exit Sub 
 35img_a6339ee3e57d1d52bc7d02b338e15a60.gifDim objField, iCol, iRow 
 36img_a6339ee3e57d1d52bc7d02b338e15a60.gifiCol = iColOffset 
 37img_a6339ee3e57d1d52bc7d02b338e15a60.gifiRow = iRowOffset 
 38img_a6339ee3e57d1d52bc7d02b338e15a60.gifFor Each objField in objRS.Fields 
 39img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Value = objField.Name 
 40img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Columns(iCol).AutoFitColumns 
 41img_a6339ee3e57d1d52bc7d02b338e15a60.gif'设置Excel表里的字体 
 42img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Font.Bold = True 
 43img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Font.Italic = False 
 44img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Font.Size = 10 
 45img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中 
 46img_a6339ee3e57d1d52bc7d02b338e15a60.gifiCol = iCol + 1 
 47img_a6339ee3e57d1d52bc7d02b338e15a60.gifNext 'objField 
 48img_a6339ee3e57d1d52bc7d02b338e15a60.gif'Display all of the data 
 49img_a6339ee3e57d1d52bc7d02b338e15a60.gifDo While Not objRS.EOF 
 50img_a6339ee3e57d1d52bc7d02b338e15a60.gifiRow = iRow + 1 
 51img_a6339ee3e57d1d52bc7d02b338e15a60.gifiCol = iColOffset 
 52img_a6339ee3e57d1d52bc7d02b338e15a60.gifFor Each objField in objRS.Fields 
 53img_a6339ee3e57d1d52bc7d02b338e15a60.gifIf IsNull(objField.Value) then 
 54img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Value = "" 
 55img_a6339ee3e57d1d52bc7d02b338e15a60.gifElse 
 56img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Value = objField.Value 
 57img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Columns(iCol).AutoFitColumns 
 58img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Font.Bold = False 
 59img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Font.Italic = False 
 60img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjSpreadsheet.Cells(iRow, iCol).Font.Size = 10 
 61img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd If 
 62img_a6339ee3e57d1d52bc7d02b338e15a60.gifiCol = iCol + 1 
 63img_a6339ee3e57d1d52bc7d02b338e15a60.gifNext 'objField 
 64img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjRS.MoveNext 
 65img_a6339ee3e57d1d52bc7d02b338e15a60.gifLoop 
 66img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Sub Function SaveWorksheet(strFileName) 
 67img_a6339ee3e57d1d52bc7d02b338e15a60.gif
 68img_a6339ee3e57d1d52bc7d02b338e15a60.gif'Save the worksheet to a specified filename 
 69img_a6339ee3e57d1d52bc7d02b338e15a60.gifOn Error Resume Next 
 70img_a6339ee3e57d1d52bc7d02b338e15a60.gifCall objSpreadsheet.ActiveSheet.Export(strFileName, 0
 71img_a6339ee3e57d1d52bc7d02b338e15a60.gifSaveWorksheet = (Err.Number = 0
 72img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Function 
 73img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Class 
 74img_a6339ee3e57d1d52bc7d02b338e15a60.gif
 75img_a6339ee3e57d1d52bc7d02b338e15a60.gifDim objRS 
 76img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet objRS = Server.CreateObject("ADODB.Recordset"
 77img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjRS.Open "SELECT * FROM xxxx""Provider=SQLOLEDB.1;Persist Security 
 78img_a6339ee3e57d1d52bc7d02b338e15a60.gif
 79img_a6339ee3e57d1d52bc7d02b338e15a60.gifInfo=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;" 
 80img_a6339ee3e57d1d52bc7d02b338e15a60.gifDim SaveName 
 81img_a6339ee3e57d1d52bc7d02b338e15a60.gifSaveName = Request.Cookies("savename")("name"
 82img_a6339ee3e57d1d52bc7d02b338e15a60.gifDim objExcel 
 83img_a6339ee3e57d1d52bc7d02b338e15a60.gifDim ExcelPath 
 84img_a6339ee3e57d1d52bc7d02b338e15a60.gifExcelPath = "Excel\" & SaveName & ".xls" 
 85img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet objExcel = New ExcelGen 
 86img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjExcel.RowOffset = 1 
 87img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjExcel.ColumnOffset = 1 
 88img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjExcel.GenerateWorksheet(objRS) 
 89img_a6339ee3e57d1d52bc7d02b338e15a60.gifIf objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then 
 90img_a6339ee3e57d1d52bc7d02b338e15a60.gif'Response.Write "<html><body bgcolor='gainsboro' text='#000000'>已保存为Excel文件. 
 91img_a6339ee3e57d1d52bc7d02b338e15a60.gif
 92img_a6339ee3e57d1d52bc7d02b338e15a60.gif<a href='" & server.URLEncode(ExcelPath) & "'>下载</a>" 
 93img_a6339ee3e57d1d52bc7d02b338e15a60.gifElse 
 94img_a6339ee3e57d1d52bc7d02b338e15a60.gifResponse.Write "在保存过程中有错误!" 
 95img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd If 
 96img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet objExcel = Nothing 
 97img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjRS.Close 
 98img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet objRS = Nothing 
 99img_a6339ee3e57d1d52bc7d02b338e15a60.gif%>  
100img_a6339ee3e57d1d52bc7d02b338e15a60.gif
101img_a6339ee3e57d1d52bc7d02b338e15a60.gif

  二、用Excel的Application组件在客户端导出到Excel或Word

  注意:两个函数中的“data“是网页中要导出的table的 id

<input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint">
<input type="hidden" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint"> 

 

img_a6339ee3e57d1d52bc7d02b338e15a60.gif<SCRIPT LANGUAGE="javascript"> 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
!-- 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
function AutomateExcel() 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
// Start Excel and get Application object. 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
var oXL = new ActiveXObject("Excel.Application"); 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
// Get a new workbook. 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
var oWB = oXL.Workbooks.Add(); 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
var oSheet = oWB.ActiveSheet; 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
var table = document.all.data; 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
var hang = table.rows.length; 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
var lie = table.rows(0).cells.length; 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
// Add table headers going cell by cell. 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
for (i=0;i<hang;i++
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
for (j=0;j<lie;j++
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gifoSheet.Cells(i
+1,j+1).value = table.rows(i).cells(j).innerText; 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gifoXL.Visible 
= true
img_a6339ee3e57d1d52bc7d02b338e15a60.gifoXL.UserControl 
= true
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
//--> 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
/SCRIPT>  
img_a6339ee3e57d1d52bc7d02b338e15a60.gif

2. 导出到Excel代码

<script language="javascript">
function exportExcel(atblData)
{
 if (typeof(EXPORT_OBJECT)!="object")
   {
     document.body.insertAdjacentHTML("afterBegin","<OBJECT style='display:none' classid=clsid:0002E510-0000-0000-C000-000000000046 id=EXPORT_OBJECT></Object>");
   }
 with (EXPORT_OBJECT){
          DataType = "HTMLData";
          HTMLData =atblData.outerHTML;
      try{
           ActiveSheet.Export("C:\\sortTEL.xls",0);
  alert('导出EXCEL文档完毕');
          }
  catch (e)
  {
               alert('导出Excel表失败,请确定已安装Excel2000(或更高版本),并且没打开同名xls文件');
  }
            }
 }
</script>
<center><input type="button" value="导出以上数据为Excel文档" onclick="exportExcel(tblData)"></center>

 

  导出到Word代码

img_a6339ee3e57d1d52bc7d02b338e15a60.gif<script language="vbscript"> 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifSub buildDoc 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifset table 
= document.all.data 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifrow 
= table.rows.length 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifcolumn 
= table.rows(1).cells.length 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet objWordDoc 
= CreateObject("Word.Document"
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.Documents.Add theTemplate, False 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.Visible
=True 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gifDim theArray(
20,10000
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
for i=0 to row-1 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
for j=0 to column-1 
img_a6339ee3e57d1d52bc7d02b338e15a60.giftheArray(j
+1,i+1= table.rows(i).cells(j).innerTEXT 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifnext 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifnext 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(
"综合查询结果集"//显示表格标题 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif

img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(
""
img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet rngPara 
= objWordDoc.Application.ActiveDocument.Paragraphs(1).Range 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifWith rngPara 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif.Bold 
= True //将标题设为粗体 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
.ParagraphFormat.Alignment = 1 //将标题居中 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
.Font.Name = "隶书" //设定标题字体 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
.Font.Size = 18 //设定标题字体大小 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
End With 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet rngCurrent 
= objWordDoc.Application.ActiveDocument.Paragraphs(3).Range 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifSet tabCurrent 
= ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column) 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
for i = 1 to column 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.ActiveDocument.Tables(
1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1
img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.ActiveDocument.Tables(
1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifnext 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifFor i 
=1 to column 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifFor j 
= 2 to row 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.ActiveDocument.Tables(
1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j) 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifobjWordDoc.Application.ActiveDocument.Tables(
1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifNext 
img_a6339ee3e57d1d52bc7d02b338e15a60.gifNext 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gifEnd Sub 
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
/SCRIPT>  
img_a6339ee3e57d1d52bc7d02b338e15a60.gif
img_a6339ee3e57d1d52bc7d02b338e15a60.gif

  三、直接在IE中打开,再存为EXCEL文件

  把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把EXCEL表在客客户端显示。

<%response.ContentType ="application/vnd.ms-excel"%> 

  注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。

  四、导出以半角逗号隔开的csv

  用fso方法生成文本文件的方法,生成一个扩展名为csv文件。此文件,一行即为数据表的一行。生成数据表字段用半角逗号隔开。(有关fso生成文本文件的方法,在此就不做介绍了)

  CSV文件介绍 (逗号分隔文件)

  选择该项系统将创建一个可供下载的CSV 文件; CSV是最通用的一种文件格式,它可以非常容易地被导入各种PC表格及数据库中。

  请注意即使选择表格作为输出格式,仍然可以将结果下载CSV文件。在表格输出屏幕的底部,显示有 "CSV 文件"选项,点击它即可下载该文件。

  如果您把浏览器配置为将您的电子表格软件与文本(TXT)/逗号分隔文件(CSV) 相关联,当您下载该文件时,该文件将自动打开。下载下来后,如果本地已安装EXCEL,点击此文件,即可自动用EXCEL软件打开此文件。

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
【译】Asp.Net 导出 Excel 数据的9种方案
原文 http://www.cnblogs.com/garydot/archive/2012/06/04/excel-export.html 简介 Excel 的强大之处在于它不仅仅只能打开Excel格式的文档,它还能打开CSV格式、Tab格式、website table 等多钟格式的文档。
1096 0
ASP.NET MVC RC 2 发布
今天发布了ASP.NET MVC RC2,希望不要像上一个版本一样有BUG之后重新再发布 下载: http://www.asp.net/mvc/ 源码: http://aspnet.codeplex.
633 0
+关注
springfe
曾就职于欧洲跨国企业、国内知名互联网公司、国内NADAQ上市企业,从事互联网研发和技术团队管理工作,相继担任过高级开发工程师、高级经理、架构师、研发总监、CTO等职务。对于系统架构设计、算法设计、自动化运维和技术管理有较高的实战经验。
173
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载