如何用asp读取Excel文件Word文件下载.docx

1、objExcelApp.Quit一定要退出set objExcelApp = nothing2 读取Excel文件的实例strsource = server.MapPath（xl.xlsset xlbook = xlApp.WorkBooks.Open（strsource）set xlsheet = xlbook.Worksheets（1）i = 1response.write tablewhile xlsheet.cells（i,1） response.write trtd & xlsheet.Cells（i,1） &/td xlsheet.Cells（i,2） & xlsheet.Cell

2、s（i,3） & i = i + 1wend/tableset xlsheet = nothingset xlbook = nothingxlApp.quit千万记住要加这一句，否则每运行一次你的机器里就增加一个Excel进程，而且无法释放set xlApp = nothing 是不行的=3. 怎样将数据从Excel导入到SQL Server中定义 dim myConnection dim strName dim rsXsl,rsSql dim myConn_Xsl dim cmd dim i,j dim maxId strName = strFileName set myConnection

3、 = Server.CreateObject（ADODB.Connection set rsXsl = Server.CreateObject（ADODB.Recordset set rsSql = Server.CreateObject（ set cmd = server.CreateObject（ADODB.Command cmd.ActiveConnection = myConn myConn_Xsl = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= strName & _;Extended Properties=Excel 8.0打开连接

4、myconnection.open myConn_Xsl打开表 str_Xsl = select * from strSheetName &$ rsXsl.open str_Xsl,myconnection,1,1 j = 1 Do while not rsXsl.eof 取出最大值 str_sql = select Max（id） as maxId from exceltosql rsSql.open str_Sql,myConn,1,3 if Not rsSql.eof then if not isNull（rsSql（maxId） then maxId=CLng（rsSql（） + 1

5、else maxId = 1 end if rsSql.close/关闭对象加入数据库 str_Sql = insert into exceltosql values（ maxId&,&rsXsl（1）& rsXsl（2）&） cmd.CommandText = str_Sql cmd.Excute（） j = j + 1 rsXsl.moveNext loop共导入 j_1 & 条记录.a href=# 关闭窗口 set rsXsl = nothing set rsSql = nothing set myconnection = nothing set cmd = nothingend su

6、b（2）调用方法file1 = c:excelexample.xlsmyconn = DRIVER=SQL SERVER;SERVER=（local）;uid=sa;pwd=sa;DATABASE=aspbookdataIntoSqlServer_ceritificate file1,sheet1,myconn=4.ASP操作Excel技术总结目录一、 环境配置二、 ASP对Excel的基本操作三、 ASP操作Excel生成数据表四、 ASP操作Excel生成Chart图五、 服务器端Excel文件浏览、下载、删除方案六、 附录正文服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：

7、1Win9x+PWS+Office2Win2000 Professional+PWS+Office3Win2000 Server+IIS+Office目前笔者测试成功的环境是后二者。点击设计 www.djasp.Net专业的网页编程资讯站点，欢迎访问！此信息随机生成，防止无聊之人盗用点击设计站点上的资源，请关闭该网站然后访问点击设计官方网址：Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。服务器端环境配置还有两个偶然的发现是：1 笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出

8、现问题，卸载WPS2002后，错误消失。2 笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择Microsoft Excel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本

9、通用的好象都可以。1、 建立Excel对象set objExcelApp = CreateObject（）objExcelApp.DisplayAlerts false 不显示警告objExcelApp.Application.Visible 不显示界面2、 新建Excel文件objExcelApp.WorkBooks.add objExcelBook objExcelApp.ActiveWorkBook objExcelSheets objExcelBook.Worksheets objExcelSheet objExcelBook.Sheets（1）3、 读取已有Excel文件strAdd

10、r Server.MapPath（objExcelApp.WorkBooks.Open（strAddr4、 另存Excel文件objExcelBook.SaveAs strAddrTempTable.xls5、 保存Excel文件objExcelBook.Save （笔者测试时保存成功，页面报错。此内容系随机生成，谢绝站长们转转，您查看的内容来自 点击设计 www.djasp.Net点击设计,专业的网页编程资讯站点，欢迎访问！请记好点击设计的域名：www.djasp.Net 如果您正在浏览此内容，请关闭此网页，然后访问点击设计的官方网址：6、 退出Excel操作 一定要退出 Nothing 在

11、一个范围内插入数据objExcelSheet.Range（B3:k3）.Value Array（67, 87,597455410 在一个单元格内插入数据objExcelSheet.Cells（3,1）.Value=Internet Explorer 选中一个范围 单元格左边画粗线条 单元格右边画粗线条 单元格上边画粗线条7、 单元格下边画粗线条8、 单元格设定背景色9、 合并单元格10、 插入行11、 插入列 创建Chart图objExcelApp.Charts.Add 设定Chart图种类objExcelApp.ActiveChart.ChartType 97注：二维折线图，4；二维饼图，5

12、；二维柱形图，51 设定Chart图标题objExcelApp.ActiveChart.HasTitle TrueobjExcelApp.ActiveChart.ChartTitle.TextA test Chart 通过表格数据设定图形objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range（A1:k5）,1 直接设定图形数据（推荐）objExcelApp.ActiveChart.SeriesCollection.NewSeriesobjExcelApp.ActiveChart.SeriesCollection（1）.Name=333

13、objExcelApp.ActiveChart.SeriesCollection（1）.Values=1,4,5,6,2 绑定Chart图objExcelApp.ActiveChart.Location 1 显示数据表objExcelApp.ActiveChart.HasDataTable 显示图例objExcelApp.ActiveChart.DataTable.ShowLegendKey浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。下载的实现要麻烦

14、一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件，由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限，考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。删除方案由三部分组成：A： 同一用户生成的Excel文件用同一个文件名，文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。B： 在Global.asa文件中设置Session_onEnd事件激发时，删除这个用户的Excel暂存文件。C： 在Glob

15、al.asa文件中设置Application_onStart事件激发时，删除暂存目录下的所有文件。建议目录结构 Src 代码目录 Templet 模板目录 Temp 暂存目录出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况，因为它会不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完不留下死进程。5.ASP读EXCEL2000的文章！i）将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表（sheet）看成数据库表ii）ADO假设

16、Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容iii）Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”iiii）如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致Dim Conn,Driver,DBPath,Rs 建立Connection对象Set Conn = Server.CreateObject（Driver = Driver=Microsoft Excel Driver （*.xls）;

17、DBPath = DBQ= Server.MapPath（ test.xls ）调用Open 方法打开数据库Conn.Open Driver & DBPathDSN连接方式Conn.Open Dsn=test注意 表名一定要以下边这种格试 表名$ 书写Sql=Select * From Sheet1$ where 序号=0Set Rs=Conn.Execute（Sql）IF Rs.Eof And Rs.Bof ThenResponse.write 没有找到您需要的数据!ElseDo While Not Rs.EOFResponse.write Rs（姓名Rs.MoveNextLoopEnd I

18、FRs.CloseSet Rs=nothingConn.CloseSet Conn=NothingResponse.Write 成功！6.ASP与电子表格EXCEL的交互操作Here we go again with another sample for Excel, this time we will be using ASP to create a chart. You all asked me for it, now here is the solution. Thanks again for all your nice comments :First we set the type o

19、f script% LANGUAGE=VBSCRIPT %Make the object, and set the object to an ExcelsheetDim MyExcelChartSet MyExcelChart = CreateObject（Excel.SheetNow lets write the rest of the script, see the comments show or dont show excel to user, TRUE or FALSEMyExcelChart.Application.Visible = True populate the cellsMyExcelChart.ActiveSheet.Range（B2:k2）.Value = Array（Week1Week2Week3Week4Week5Week6Week7Week8Week9Week10B4:k4827333750B5:2338664601813680MyExcelChart.ActiveSheet.Cells（3,1）