| 以文本方式查看主题 - 搭建论坛 (http://bbs.diylsoft.com:8118/starforum/index.asp) -- 经验交流 (http://bbs.diylsoft.com:8118/starforum/list.asp?boardid=5) ---- 怎样调用Excel的Application组件，对excel进行操作！ (http://bbs.diylsoft.com:8118/starforum/dispbbs.asp?boardid=5&id=31967) |
| -- 作者：wbl051 -- 发布时间：2012-3-25 20:03:11 -- 怎样调用Excel的Application组件，对excel进行操作！ 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 |
| -- 作者：引力波 -- 发布时间：2012-3-25 22:24:37 -- 大家都希望实现这个功能，但是现在还不行 |
| -- 作者：development -- 发布时间：2012-3-26 8:07:41 -- 支持一下！ |
| -- 作者：admin -- 发布时间：2012-3-26 8:40:30 -- 增加该功能，会使 Frun.exe 增大很多，我们会考虑一个“动态”的方式，增加该功能。 |
| -- 作者：x123992009 -- 发布时间：2012-3-26 9:30:45 -- FRUN。EXE。。早就应该分开了。打包时需要的构件才加进去 |
| -- 作者：wbl051 -- 发布时间：2012-3-26 13:01:24 -- 增加该功能，会使 Frun.exe 增大很多，我们会考虑一个“动态”的方式，增加该功能。
期待星下次升级能增加此功能及冻结窗口的功能。 有需要的朋友帮忙顶一下。 |
| -- 作者：客人 -- 发布时间：2013-4-26 13:18:38 -- wpqKoZSfpyLT 6dO2QL pricmmqiumuh, bsqvzcvbrmyp, [link=http://fofndwthupck.com/]fofndwthupck[/link], http://euyyjhgetxwf.com/ |