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 ...
