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
增加该功能,会使 Frun.exe 增大很多,我们会考虑一个“动态”的方式,增加该功能。
FRUN。EXE。。早就应该分开了。打包时需要的构件才加进去
增加该功能,会使 Frun.exe 增大很多,我们会考虑一个“动态”的方式,增加该功能。
期待星下次升级能增加此功能及冻结窗口的功能。
有需要的朋友帮忙顶一下。