asp连接Excel的方法

　　二、asp操作Excel的总结：

　　1、建立Excel对象

　　setobjExcelApp=CreateObject("Excel.Application")

　　objExcelApp.DisplayAlerts=false不显示警告

　　objExcelApp.Application.Visible=false不显示界面

　　2、新建Excel文件

　　objExcelApp.WorkBooks.add

　　setobjExcelBook=objExcelApp.ActiveWorkBook

　　setobjExcelSheets=objExcelBook.Worksheets

　　setobjExcelSheet=objExcelBook.Sheets(1)

　　3、读取已有Excel文件

　　strAddr=Server.MapPath(".")srgec.com
woqiv.com

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

　　Set objExcelBook=objExcelApp.ActiveWorkBook

　　Set objExcelSheets=objExcelBook.Worksheets

　　Set objExcelSheet=objExcelBook.Sheets(1)

　　4、另存Excel文件woqiv.com

　　objExcelBook.SaveAsstrAddr&"\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="InternetExplorer"

　　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="AtestChart"

　　4、通过表格数据设定图形

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

　　5、直接设定图形数据(推荐)

　　objExcelApp.ActiveChart.SeriesCollection.NewSeries

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

　　objExcelApp.ActiveChart.SeriesCollection(1).Values="="

　　6、绑定Chart图

　　objExcelApp.ActiveChart.Location1

　　7、显示数据表

　　objExcelApp.ActiveChart.HasDataTable=True

　　8、显示图例