| 订阅 | 在线投稿
分享
 
 
 

ASP操作Excel技术总结

来源:互联网网民  宽屏版  评论
2008-08-27 06:58:26

本文为【ASP操作Excel技术总结】的汉字拼音对照版显示拼音

mulu

yi huanjingpeizhi

er ASPduiExceldejibencaozuo

san ASPcaozuoExcelshengchengshujubiao

si ASPcaozuoExcelshengchengCharttu

wu fuwuqiduanExcelwenjianliulanxiazaishanchufangan

liu fulu

zhengwen

yi huanjingpeizhi

fuwuqiduandehuanjingpeizhicongshenkaoziliaoshangkanweiruanxiliedepeizhiyinggaidouxingji

1Win9x+PWS+Office

2Win2000 Professional+PWS+Office

3Win2000 Server+IIS+Office

muqianbizheceshichenggongdehuanjingshihouerzheOfficedebanbenmeiyouteshuyaoqiukaolvdaokehujipeizhidebuquedingxinghexiajianrongtexingjianyifuwuqiduanOfficebanbenbuyaotaigaoyifangzhikehujixiazaihouwufazhengquexianshi

fuwuqiduanhuanjingpeizhihuanyoulianggeourandefaxianshi

1 bizhekaifajiqishangyuanlaizhuangyoujinshandeWPS2002jieguoExcelduixiangchuangjianshizhongchuxianwentixiezaiWPS2002houcuowuxiaoshi

2 bizhekaifaASPdaimaxihuanyongFrontPagejieguofaxianruguoFrontPagedakaifuwuqiduanduixiangchuangjianchuxianbuwendingxianxiangshierchenggongshierbuchenggongkuozhankaochahoufaxianOfficexiliederuanjianruguozaifuwuqiduanyunxingzeExcelduixiangdechuangjianhennanchenggong

fuwuqiduanhuanbixuyaoshezhideyidianshiCOMzujiandecaozuoquanxianzaiminglingxingjianruDCOMCNFGzejinruCOMzujianpeizhijiemianxuanzeMicrosoft ExcelhoudianjishuxinganniujiangsangedanxuanxiangyilvxuanzezidingyibianjizhongjiangEveryonejiarusuoyouquanxianbaocunwanbihouchongxinqidongfuwuqi

kehuduandehuanjingpeizhimeifaxianshenmetebiejiangjiudedifangzhiyaozhuangyouOfficeheIEjikebanbentongyongdehaoxiangdoukeyi

er ASPduiExceldejibencaozuo

1 jianliExcelduixiang

set objExcelApp = CreateObject("Excel.Application")

objExcelApp.DisplayAlerts = false buxianshijinggao

objExcelApp.Application.Visible = false buxianshijiemian

2 xinjianExcelwenjian

objExcelApp.WorkBooks.add

set objExcelBook = objExcelApp.ActiveWorkBook

set objExcelSheets = objExcelBook.Worksheets

set objExcelSheet = objExcelBook.Sheets(1)

3 duquyiyouExcelwenjian

strAddr = Server.MapPath(".")

objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")

set objExcelBook = objExcelApp.ActiveWorkBook

set objExcelSheets = objExcelBook.Worksheets

set objExcelSheet = objExcelBook.Sheets(1)

4 lingcunExcelwenjian

objExcelBook.SaveAs strAddr & "\Temp\Table.xls"

5 baocunExcelwenjian

objExcelBook.Save bizheceshishibaocunchenggongyemianbaocuo

6 退tuichuExcelcaozuo

objExcelApp.Quit yidingyao退tuichu

set objExcelApp = Nothing

san ASPcaozuoExcelshengchengshujubiao

1 zaiyigefanweineicharushuju

objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")

2 zaiyigedanyuangeneicharushuju

objExcelSheet.Cells(3,1).Value="Internet Explorer"

3 xuanzhongyigefanwei

4 danyuangezuobianhuacu线xiantiao

5 danyuangeyoubianhuacu线xiantiao

6 danyuangeshangbianhuacu线xiantiao

7 danyuangexiabianhuacu线xiantiao

8 danyuangeshedingbeijingse

9 hebingdanyuange

10 charuxing

11 charulie

si ASPcaozuoExcelshengchengCharttu

1 chuangjianCharttu

objExcelApp.Charts.Add

2 shedingCharttuzhonglei

objExcelApp.ActiveChart.ChartType = 97

zhuerweizhe线xiantu4erweibingtu5erweizhuxingtu51

3 shedingCharttubiaoti

objExcelApp.ActiveChart.HasTitle = True

objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"

4 tongguobiaogeshujushedingtuxing

objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1

5 zhijieshedingtuxingshujutuijian

objExcelApp.ActiveChart.SeriesCollection.NewSeries

objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""

objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"

6 bangdingCharttu

objExcelApp.ActiveChart.Location 1

7 xianshishujubiao

objExcelApp.ActiveChart.HasDataTable = True

8 xianshituli

objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

wu fuwuqiduanExcelwenjianliulanxiazaishanchufangan

liulandejiejuefangfahenduoLocation.href=NavigateResponse.RedirectdoukeyishixianjianyiyongkehuduandefangfayuanyinshigeifuwuqigengduodeshijianshengchengExcelwenjian

xiazaideshixianyaomafanyixieyongwangshangxianchengdefuwuqiduanxiazaizujianhuozijidingzhikaifayigezujianshibijiaohaodefanganlingwaiyizhongfangfashizaikehuduancaozuoExcelzujianyoukehuduancaozuofuwuqiduanExcelwenjianlingcunzhikehuduanzhezhongfangfayaoqiukehuduankaifangbuanquanActiveXkongjiandecaozuoquanxiankaolvdaotongzhimeigekehujiangfuwuqishezhiweikexinzhandiandemafanchengdujianyihuanshiyongdiyigefangfabijiaoshengshi

shanchufanganyousanbufenzucheng

A tongyiyonghushengchengdeExcelwenjianyongtongyigewenjianmingwenjianmingkeyongyonghuIDhaohuoSessionIDhaodengkequexinbuchongfuzifuchuanzuchengzheyangxinwenjianshengchengshizidongfugaishangyiwenjian

B zaiGlobal.asawenjianzhongshezhiSession_onEndshijianjifashishanchuzhegeyonghudeExcelzancunwenjian

C zaiGlobal.asawenjianzhongshezhiApplication_onStartshijianjifashishanchuzancunmuluxiadesuoyouwenjian

zhujianyimulujiegou \Src daimamulu \Templet mobanmulu \Temp zancunmulu

liu fulu

chucuoshiExcelchuxiandesijinchengchuxianshiyijianhentoutengdeshiqingzaimeigewenjianqianjiashangOn Error Resume NextjiangyouzhuyugaishanzhezhongqingkuangyinweitahuibuguanwenjianshifouchanshengcuowudoujianchizhixingdaoApplication.Quitbaozhengmeicichengxuzhixingwanbuliuxiasijincheng

原文
 
特别声明:以上内容(如有图片或视频亦包括在内)为网络用户发布,本站仅提供信息存储服务。
 
目录 一、 环境配置 二、 ASP对Excel的基本操作 三、 ASP操作Excel生成数据表 四、 ASP操作Excel生成Chart图 五、 服务器端Excel文件浏览、下载、删除方案 六、 附录 正文 一、 环境配置 服务器端的环境配置从参考资料上看,微软系列的配置应该都行,即: 1.Win9x+PWS+Office 2.Win2000 Professional+PWS+Office 3.Win2000 Server+IIS+Office 目前笔者测试成功的环境是后二者。Office的版本没有特殊要求,考虑到客户机配置的不确定性和下兼容特性,建议服务器端Office版本不要太高,以防止客户机下载后无法正确显示。 服务器端环境配置还有两个偶然的发现是: 1. 笔者开发机器上原来装有金山的WPS2002,结果Excel对象创建始终出现问题,卸载WPS2002后,错误消失。 2. 笔者开发ASP代码喜欢用FrontPage,结果发现如果FrontPage打开(服务器端),对象创建出现不稳定现象,时而成功时而不成功。扩展考察后发现,Office系列的软件如果在服务器端运行,则Excel对象的创建很难成功。 服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”,则进入COM组件配置界面,选择Microsoft Excel后点击属性按钮,将三个单选项一律选择自定义,编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。 客户端的环境配置没发现什么特别讲究的地方,只要装有Office和IE即可,版本通用的好象都可以。 二、 ASP对Excel的基本操作 1、 建立Excel对象 set objExcelApp = CreateObject("Excel.Application") objExcelApp.DisplayAlerts = false 不显示警告 objExcelApp.Application.Visible = false 不显示界面 2、 新建Excel文件 objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) 3、 读取已有Excel文件 strAddr = Server.MapPath(".") objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls") set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) 4、 另存Excel文件 objExcelBook.SaveAs strAddr & "\Temp\Table.xls" 5、 保存Excel文件 objExcelBook.Save (笔者测试时保存成功,页面报错。) 6、 退出Excel操作 objExcelApp.Quit 一定要退出 set objExcelApp = Nothing 三、 ASP操作Excel生成数据表 1、 在一个范围内插入数据 objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") 2、 在一个单元格内插入数据 objExcelSheet.Cells(3,1).Value="Internet Explorer" 3、 选中一个范围 4、 单元格左边画粗线条 5、 单元格右边画粗线条 6、 单元格上边画粗线条 7、 单元格下边画粗线条 8、 单元格设定背景色 9、 合并单元格 10、 插入行 11、 插入列 四、 ASP操作Excel生成Chart图 1、 创建Chart图 objExcelApp.Charts.Add 2、 设定Chart图种类 objExcelApp.ActiveChart.ChartType = 97 注:二维折线图,4;二维饼图,5;二维柱形图,51 3、 设定Chart图标题 objExcelApp.ActiveChart.HasTitle = True objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart" 4、 通过表格数据设定图形 objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1 5、 直接设定图形数据(推荐) objExcelApp.ActiveChart.SeriesCollection.NewSeries objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333""" objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}" 6、 绑定Chart图 objExcelApp.ActiveChart.Location 1 7、 显示数据表 objExcelApp.ActiveChart.HasDataTable = True 8、 显示图例 objExcelApp.ActiveChart.DataTable.ShowLegendKey = True 五、 服务器端Excel文件浏览、下载、删除方案 浏览的解决方法很多,“Location.href=”,“Navigate”,“Response.Redirect”都可以实现,建议用客户端的方法,原因是给服务器更多的时间生成Excel文件。 下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件,由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限,考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。 删除方案由三部分组成: A: 同一用户生成的Excel文件用同一个文件名,文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。 B: 在Global.asa文件中设置Session_onEnd事件激发时,删除这个用户的Excel暂存文件。 C: 在Global.asa文件中设置Application_onStart事件激发时,删除暂存目录下的所有文件。 注:建议目录结构 \Src 代码目录 \Templet 模板目录 \Temp 暂存目录 六、 附录 出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况,因为它会不管文件是否产生错误都坚持执行到“Application.Quit”,保证每次程序执行完不留下死进程。
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有