Rss & SiteMap

搭建论坛 http://bbs.diylsoft.com:8118/starforum/index.asp

搭建论坛是“搭建式”中文软件开发工具《搭建之星》、《网站·搭建者》技术交流的地方。
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:怎样调用Excel的Application组件,对excel进行操作!

1楼
wbl051 发表于:2012-3-25 20:03:11
Excel报表的生成与打印 
这里采用了Excel的Application组件,该组件在安装Excel时安装到系统中。我们的操作也都是针对该组件。 
(1) 建立Excel.Application对象 
set objExcel=CreateObject("Excel.Application") 
(2) 打开Excel模板 
objExcel.Workbooks.Open(server.mappath("\test")&"\book1.xlt") '打开Excel模板 
objExcel.Sheets(1).select '选中工作页 
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet 
(3) Excel的常规添加操作 
例如sheetActive.range("g4").value=date() ‘这里添加的是时间,当然也可以是你指定的任何数据 
(4) Excel中添加数据库中的纪录 
这里假设已有一个数据集adoRset,存放由Sql操作生成的统计数据。 
num=7 ‘从Excel的第七行开始 
do until adoRset.EOF ‘循环直至数据集中的数据写完 
strRange="d"&num&":f"&num ‘设定要填写内容的单元区域 
sheetActive.range(strRange).font.size=10 ‘设定字体大小 
sheetActive.range(strRange).WrapText=false ‘设定文字回卷 
sheetActive.range(strRange).ShrinkToFit=true ‘设定是否自动适应表格单元大小 
sheetActive.range(strRange).value=array(adoRset("bookid"),adoRset("bookname"),adoRset("author")) ‘把数据集中的数据填写到相应的单元中 
num=num+1 
adoRset.MoveNext 
loop 
2楼
引力波 发表于:2012-3-25 22:24:37
大家都希望实现这个功能,但是现在还不行
3楼
development 发表于:2012-3-26 8:07:41

支持一下!

4楼
admin 发表于:2012-3-26 8:40:30
增加该功能,会使 Frun.exe 增大很多,我们会考虑一个“动态”的方式,增加该功能。
5楼
x123992009 发表于:2012-3-26 9:30:45
FRUN。EXE。。早就应该分开了。打包时需要的构件才加进去
6楼
wbl051 发表于:2012-3-26 13:01:24

增加该功能,会使 Frun.exe 增大很多,我们会考虑一个“动态”的方式,增加该功能。

期待星下次升级能增加此功能及冻结窗口的功能。

有需要的朋友帮忙顶一下。

共7 条记录, 每页显示 10 条, 页签: [1]

搭建之星 网站·搭建者 Copyright © 2000 - 2011
Powered By Dvbbs Version 8.2.0
Processed in 0.41101 s, 3 queries.