生成Excel的” 源代码

原创 2004年08月10日 17:31:00

给你一个能“ 生成Excel的” 源代码 具体怎样操作 你自己办了

'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
end if

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 btel as 号码 FROM bmember", "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=;Initial Catalog=7056a;Data source=127.0.0.1;"
Dim SaveName
SaveName = Request.Cookies("savename")("name")
Dim objExcel
Dim ExcelPath
ExcelPath = "Excel/gg.xls"
Set objExcel = New ExcelGen
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
 
objExcel.GenerateWorksheet(objRS)

If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
Response.Write "<html><body bgcolor='gainsboro' text='#000000'>已保存为Excel文件. <a href="&server.URLEncode(ExcelPath)&">下载</a>"
Else
Response.Write "在保存过程中有错误!"
End If

Set objExcel = Nothing
objRS.Close
Set objRS = Nothing

数据导出到Excel(或Word)源代码大全

数据导出到Excel(或Word)源代码大全 标签: exceldatasetnulloffice数据库generation 2008-11-16 15:24 13988人阅读 评论(15) ...
  • kasama1953
  • kasama1953
  • 2016年06月16日 23:23
  • 3541

学习笔记之js中导出表格到excel详解+源码

在系统开发中,经常会遇到要将一个表格数据导出到excel中,刚刚做完,把示例代码共享一下,话不多说直接上代码。 html 表格导出道 ...
  • u011009362
  • u011009362
  • 2017年02月20日 11:50
  • 2109

Npoi导出excel整理(附源码)

http://www.cnblogs.com/WikStone/archive/2013/01/12/2857466.html 前些日子做了一个简单的winform程序,需要导出的功能,刚开...
  • lanshengsheng2012
  • lanshengsheng2012
  • 2013年09月09日 15:20
  • 21765

excel数据生成sql insert语句

excel表格中有A、B、C三列数据,希望导入到数据库users表中,对应的字段分别是name,sex,age 。 在你的excel表格中增加一列,利用excel的公式自动生成sql语句,方法如下: ...
  • CSDNones
  • CSDNones
  • 2016年12月02日 19:08
  • 6109

JAVA处理Excel文件---生成简单的Excel文件

在现实的办公中,我们常常会有这样一个要求:要求把报表直接用excel打开。在实习中有这样一个需求。根据所选择的资源查询用户所提供附件的全部信息并生成excel供下载。但是在查询的时候我们需要来检测用户...
  • u013310119
  • u013310119
  • 2016年04月14日 22:01
  • 4559

从EXCEL中自动产生WORD文件

昨天帮同事做了一道“作业”,具体应用的场景不能详细地透露,大体上就是如题。用的 Office 是 2010 版本,解决步骤是: EXCEL用几列存储规定的内容。比如B列存负责输出,把几个参数写入...
  • mrtorney
  • mrtorney
  • 2013年07月05日 16:07
  • 4712

C# 将数据生成excel并储存

这里说一下C#怎么将数据生成excel并储存 1.定义一个string的二维数组_data用来储存listview内的项和其子项 2.弹出dialog对话框,编辑储存位置和文件名。将文件名储存到st...
  • lxk7280
  • lxk7280
  • 2015年11月13日 11:45
  • 1517

freemarker生成excel、word、html、xml实例教程

对于导出excel我一直以为用poi、jxt的实现就够了,直到接触了freemarker以后,我才发现我错了,原来还有一种实现比前两者都更简单、便捷。 今天研究了一天的freemarker,一口气写了...
  • u010722643
  • u010722643
  • 2014年12月04日 22:44
  • 8170

代码生成工具——将Excel配置表转成脚本与配置文件(含源码)

在软件开发中多采用自动生成工具,将配置表生成对应的脚本文件(如.lua)和读取脚本的配置文件(如.h与cpp),所有配置文件由管理器ConfigMgr统一加载入内存,程序运行时在需要的地方,即可直接从...
  • little_stupid_child
  • little_stupid_child
  • 2017年02月16日 12:00
  • 645

java如何生成excel报表--jxl.jar操作

文章参考:http://www.cnblogs.com/mingforyou/archive/2013/08/26/3282922.html JAVA EXCEL API:是一开放源码项目,通过它...
  • qingfengmuzhu1993
  • qingfengmuzhu1993
  • 2017年02月25日 11:38
  • 729
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:生成Excel的” 源代码
举报原因:
原因补充:

(最多只允许输入30个字)