专业虚拟主机提供商! 正规合法诚信公司、拥有ICP/ISP双经营许可证
域名空间实时开通立即使用,几分钟即可完成
安全方便的网上支付,超强的域名空间管理程序
我要购买空间,请点这里
我要注册域名,请点这里
我要建设网站,请点这里
我要续费域名,请点这里
我要续费空间,请点这里
我要在线支付,请点这里
首 页 特惠套餐 域名注册 虚拟主机 托管租用 FTP空间 数据库 企业邮局 网站建设 联系我们 付款方式
 | 网站首页 | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 | 
您现在的位置: IDC资讯网 >> 网络编程 >> ASP编程 >> 正文
ASP对Excel实现添加,修改,删除等操作           ★★★
ASP对Excel实现添加,修改,删除等操作
点击数: 更新时间:2009-8-27 14:02:36

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、  改变单元格文字颜色
objExcelSheet.Cells(
3,1).Font.Color=vbred
4、  单元格四周画线条 
objExcelSheet.Cells(
3.1).Borders(1).LineStyle =1
objExcelSheet.Cells(
3.1).Borders(2).LineStyle =1
objExcelSheet.Cells(
3.1).Borders(3).LineStyle =1
objExcelSheet.Cells(
3.1).Borders(4).LineStyle =1
       区域中间画线条
objExcelSheet.Range(“A1:G7”).Borders(
7).LineStyle =1
objExcelSheet.Range(“A1:G7”).Borders(
8).LineStyle =1

8、  单元格设定背景色 
objExcelSheet.Cells(
3.1).Interior.colorindex=17
9、  合并单元格 
objExcelSheet.Range(“A1:G7”).Merge
10、  设置左右对齐方式
2 left   3 middle   4  right
objExcelSheet.Range(
"A1").HorizontalAlignment = 2
11、  设置上下对齐方式
2 为居中
objExcelSheet.Range(
"A1")..VerticalAlignment = 2
四、  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 

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新推荐  更多内容
    最新热门  更多内容
    资讯中心首页
    | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 |
    关于我们 | 联系我们 | 产品价格 | 代理加盟 | 咨询反馈 | 诚聘英才 | 在线对话系统 | ASP技术网 | 帮助中心 | 网站地图
    ICP/ISP证B2-20050322
    ICP/ISP经营许可证编号:粤ICP证B2-20050322 网站备案号:粤B2-20050322号
    客服热线:0755-26499456 0755-26499435 [共8线] 24小时值班:0755-21852765 [更多]
    客服QQ:
    [ 63103 ]
    [ 959260 ]
    代理咨询:
    [ 519065 ]
    [更多]
    客户服务中心:深圳市南山区桃园路前海金岸金丰阁706  邮编:518052
    本站推广词:动态空间 | 网站空间 | 虚拟主机 | 深圳网站建设 | 空间购买 | 域名空间 | ASP空间申请购买
    服务范围:广州·深圳·东莞·珠海·汕头·惠州·中山·佛山·上海·重庆等全国其它地区
    广东省深圳市稳速网络科技有限公司版权所有 严禁以任何形式进行复制、抄袭