ASP教程之导出Excel数据的四种方法

我们有时候需要把数据导出来，作为参考等等。下面就为你介绍，ASP导出Excel书籍的四种方法。

一、使用OWC

什么是OWC？

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

以下为引用的内容：

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

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

以下为引用的内容：

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

 
 
 
    
  
  
  
  1.   
    2. 
  
  
  
    3.

导出到Excel代码

 
 
 
    
  
  
  
  1.   
    2. 
  
  
  
  2.   
    3. 
  
  
  
  3.  
    4. 
  
  
  
  4. 
  
  
  
  5. 　　导出到word代码 
    6. 
  
  
  
  6. 
  
  
  
  7.   
    8. 
  
  
  
  8. Sub buildDoc  
    9. 
  
  
  
  9. set table = document.all.data  
    10. 
  
  
  
  10. row = table.rows.length  
    11. 
  
  
  
  11. column = table.rows(1).cells.length 
    12. 
  
  
  
  12. 
  
  
  
  13. Set objwordDoc = CreateObject("word.Document") 
    14. 
  
  
  
  14. 
  
  
  
  15. objwordDoc.Application.Documents.Add theTemplate, False  
    16. 
  
  
  
  16. objwordDoc.Application.Visible=True
    17. 
  
  
  
  17. 
  
  
  
  18. Dim theArray(20,10000)  
    19. 
  
  
  
  19. for i=0 to row-1  
    20. 
  
  
  
  20. for j=0 to column-1  
    21. 
  
  
  
  21. theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT  
    22. 
  
  
  
  22. next  
    23. 
  
  
  
  23. next  
    24. 
  
  
  
  24. objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题 
    25. 
  
  
  
  25. 
  
  
  
  26. objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")  
    27. 
  
  
  
  27. Set rngPara = objwordDoc.Application.ActiveDocument.Paragraphs(1).Range  
    28. 
  
  
  
  28. With rngPara  
    29. 
  
  
  
  29. .Bold = True //将标题设为粗体  
    30. 
  
  
  
  30. .ParagraphFormat.Alignment = 1 //将标题居中  
    31. 
  
  
  
  31. .Font.Name = "隶书" //设定标题字体  
    32. 
  
  
  
  32. .Font.Size = 18 //设定标题字体大小  
    33. 
  
  
  
  33. End With  
    34. 
  
  
  
  34. Set rngCurrent = objwordDoc.Application.ActiveDocument.Paragraphs(3).Range  
    35. 
  
  
  
  35. Set tabCurrent = ObjwordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column) 
    36. 
  
  
  
  36. 
  
  
  
  37. for i = 1 to column 
    38. 
  
  
  
  38. 
  
  
  
  39. objwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)  
    40. 
  
  
  
  40. objwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1  
    41. 
  
  
  
  41. next  
    42. 
  
  
  
  42. For i =1 to column  
    43. 
  
  
  
  43. For j = 2 to row  
    44. 
  
  
  
  44. objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)  
    45. 
  
  
  
  45. objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1  
    46. 
  
  
  
  46. Next  
    47. 
  
  
  
  47. Next
    48. 
  
  
  
  48. 
  
  
  
  49. End Sub  
    50. 
  
  
  
  50.  
    51.

三、直接在IE中打开，再存为Excel文件

以下为引用的内容：

把读出的数据用

格式，在网页中显示出来，同时，加上下一句即可把Excel表在客客户端显示。

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

注意：显示的页面中，只把

输出，***不要输出其他表格以外的信息。

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

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

CSV文件介绍 （逗号分隔文件）

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

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

希望本文介绍的三种方法，能够帮助到你。

网站名称：ASP教程之导出Excel数据的四种方法
链接URL：http://www.csdahua.cn/qtweb/news7/363157.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网

成都快上网为您推荐相关内容

网站导航知识

分类信息网

成都小程序开发　　 　虚拟主机购买　　 　德阳服务器托管　　 　成都富士康招工　　 　网站SEO优化　　 　简阳服务器托管　　 　响应式报价　　 　混凝土密封固化剂　　 　达州做网站　　 　中建建业环保　　 　外贸网站建设　　 　成都app制作　　 　seo优化　　 　产品包装设计　　 　网站快速收录　　 　名片印刷厂　　 　绵阳电信服务器托管　　 　德阳定制网站建设　　 　成都网页设计　　 　成都西云机房