利用owc建立EXECL的例子 - 中国站长下载,源码下载,站长工具下载

     呵呵，这个是我介绍制作EXECL的第三种方法了，对于OWC，我在前面的文章里也已经有所介绍，废话少说，请看代码：

  <%
   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
   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
   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 titles", "DSN=FooBar"

   Dim objExcel
   Set objExcel = New ExcelGen

   objExcel.RowOffset = 4
   objExcel.ColumnOffset = 1

   objExcel.GenerateWorksheet(objRS)
   If objExcel.SaveWorksheet(Server.MapPath("foo.xls")) then
   Response.Write "Worksheet saved. <a href=""foo.xls"">Download</a>"
   Else
   Response.Write "Error in saving worksheet!"
   End If

   Set objExcel = Nothing

   objRS.Close
   Set objRS = Nothing
  %>

  注意：请注意权限的问题……经常有人发EMAIL给我关于这方面的问题，实际上你只要给iuser_machine以适当的权限就可以了，比如对存放在EXECL文件的地方要有写的权限

  ：），下次我看看会再介绍一种生成EXECL的方法，可以利用BCP做的。




   做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。

软件：	ASP 源码 \| .NET源码 \| PHP 源码 \| JSP 源码 \| CGI 源码 \| 网页模板 \| 网页素材 \| 字体下载 \| 工具软件 \| 服务器类 \| 书籍教程
文章：	网页编程 \| 网页制作 \| 数据库区 \| 服务器区 \| 网络安全 \| 网站运营 \| 图形图象




中国站长下载	本页只接受PR>=4 IT类站点连接,申请连接,谢谢您们的支持!希望我们的下载站能够真正帮到中国的站长们！
	关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 Copyright © 2005-2006 ChinaZhan.Net. All Rights Reserved .