ASP导出Excel数据的四种方法是什么呢

欢迎来到小编的文章进行学习阅读，想必大家又有很多问题吧，在这里会有你想要收获的答案，请大家慢慢学习吧！计算机编程语言
一、使用OWC
什么是OWC？
OWC是Office Web Compent的缩写，即Microsoft的office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和office 2000），那么就有能力利用office Web组件提供一个交互式图形开发环境。这种模式下，客户端工作站将在整个任务中分担很大的比重。

以下为引用的内容： <%Option Explicit Class ExcelGen Private obJSPreadsheet Private iColOffset Private iRowOffset Sub Class_Initialize() Set obJSPreadsheet = Server.CreateObject(“OWC.Spreadsheet”) iRowOffset = 2 iColOffset = 2 End Sub Sub Class_Terminate() Set obJSPreadsheet = Nothing 'Clean up End Sub Public Property Let ColumnOffset(iColOff) If iColOff > 0 then iColOffset = iColOff Else iColOffset = 2 End If End Property Public Property Let RowOffset(iRowOff) If iRowOff > 0 then iRowOffset = iRowOff Else iRowOffset = 2 End If End Property Sub GenerateWorksheet(objRS) 'Populates the Excel worksheet based on a Recordset's contents 'Start by displaying the titles If objRS.EOF then Exit Sub Dim objField, iCol, iRow iCol = iColOffset iRow = iRowOffset For Each objField in objRS.Fields obJSPreadsheet.Cells(iRow, iCol).Value = objField.Name obJSPreadsheet.Columns(iCol).AutoFitColumns '设置Excel表里的字体 obJSPreadsheet.Cells(iRow, iCol).Font.Bold = True obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10 obJSPreadsheet.Cells(iRow, iCol).Halignment = 2 '居中 iCol = iCol + 1 Next 'objField 'Display all of the data Do While Not objRS.EOF iRow = iRow + 1 iCol = iColOffset For Each objField in objRS.Fields If IsNull(objField.Value) then obJSPreadsheet.Cells(iRow, iCol).Value = “” Else obJSPreadsheet.Cells(iRow, iCol).Value = objField.Value obJSPreadsheet.Columns(iCol).AutoFitColumns obJSPreadsheet.Cells(iRow, iCol).Font.Bold = False obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10 End If iCol = iCol + 1 Next 'objField objRS.MoveNext Loop End Sub Function SaveWorksheet(strFileName) 'Save the worksheet to a specified filename On Error Resume Next Call obJSPreadsheet.ActiveSheet.Export(strFileName, 0) SaveWorksheet = (Err.Number = 0) End Function End Class Dim objRS Set objRS = Server.CreateObject(“ADODB.Recordset”) objRS.Open “SELECT * FROM xxxx”, “Provider=SQLOLEDB.1;Persist Security Info=True;User ID=xxxx;PassWord=xxxx;Initial Catalog=xxxx;Data source=xxxx;” Dim SaveName SaveName = Request.Cookies(“savename”)(“name”) Dim objExcel Dim ExcelPath ExcelPath = “Excel\\\\” & SaveName & “.xls” Set objExcel = New ExcelGen objExcel.RowOffset = 1 objExcel.ColumnOffset = 1 objExcel.GenerateWorksheet(objRS) If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then 'Response.Write “已保存为Excel文件. 下载” Else Response.Write “在保存过程中有错误!” End If Set objExcel = Nothing objRS.Close Set objRS = Nothing %>

编程语言排行榜上
编程语言（programming language），是用来定义计算机程序的形式语言。它是一种被标准化的交流技巧，用来向计算机发出指令。一种计算机语言让程序员能够准确地定义计算机所需要使用的数据，并精确地定义在不同情况下所应当采取的行动。[1]
最早的编程语言是在电脑发明之后产生的，当时是用来控制提花织布机及自动演奏钢琴的动作。在电脑领域已发明了上千不同的编程语言，而且每年仍有新的编程语言诞生。很多编程语言需要用指令方式说明计算的程序，而有些编程语言则属于声明式编程，说明需要的结果，而不说明如何计算。

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

以下为引用的内容： 注意：两个函数中的“data“是网页中要导出的table的 id VBscript:buildDoc” value=”导出到word” class=”notPrint”> 　　导出到Excel代码 　　导出到word代码

#p#分页标题#e#

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

以下为引用的内容： 把读出的数据用格式，在网页中显示出来，同时，加上下一句即可把Excel表在客客户端显示。 <%response.ContentType =”application/vnd.ms-Excel”%> 注意：显示的页面中，只把输出，最好不要输出其他表格以外的信息。

 
四、导出以半角逗号隔开的csv
用fso方法生成文本文件的方法，生成一个扩展名为csv文件。此文件，一行即为数据表的一行。生成数据表字段用半角逗号隔开。（有关fso生成文本文件的方法，在此就不做介绍了）
CSV文件介绍 （逗号分隔文件）
选择该项系统将创建一个可供下载的CSV 文件； CSV是最通用的一种文件格式，它可以非常容易地被导入各种PC表格及数据库中。
请注意即使选择表格作为输出格式，仍然可以将结果下载CSV文件。在表格输出屏幕的底部，显示有 “CSV 文件”选项，点击它即可下载该文件。
请作者联系本站，及时附注您的姓名。联系邮箱:edu#chinaz.com（把#改为@）。c语言编程入门

大家学到了多少？如果意犹未尽，可前往课课家官网直接查看，希望大家获益匪浅哦！！！