 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Function SwitchExcelInfo(xlsFileName) Dim xlsStr Dim rs Dim i,j,k Dim ExcelConn Dim ExcelFile Dim objExcelApp Dim objExcelBook Dim bgColor xlsStr = "" ExeclFile = Server.MapPath(xlsFileName) Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Quit Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Quit objExcelApp.DisplayAlerts = false \\\'不显示警告 objExcelApp.Application.Visible = false \\\'不显示界面 objExcelApp.WorkBooks.Open(ExeclFile) set objExcelBook = objExcelApp.ActiveWorkBook reDim arrSheets(objExcelBook.Sheets.Count) For i=1 to objExcelBook.Sheets.Count arrSheets(i) = objExcelBook.Sheets(i).Name Next objExcelApp.Quit Set objExeclApp=nothing \\\'################# \\\'Power By www.knowsky.com \\\'################# Set ExcelConn = Server.CreateObject("ADODB.Connection") ExcelDriver = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & ExeclFile ExcelConn.Open ExcelDriver Set rs = Server.CreateObject("Adodb.RecordSet") For i = 1 to UBound(arrSheets) Sql = "SELECT * FROM ["& arrSheets(i) &"$] " \\\'\\\'显示各工作表的名称 \\\'\\\'xlsStr = xlsStr & "<br>"& arrSheets(i) &"<br>" xlsStr = xlsStr & "<table cellpadding=1 width=""100%"" cellspacing=1 border=1 bordercolor=\\\'#000000\\\' style=\\\'border-collapse:collapse;border:2px solid #000000\\\'>" rs.Open Sql,ExcelConn,1,1 k = 1 While Not rs.eof If k Mod 2 <> 0 Then bgColor = "bgColor=#E0E0E0" Else bgColor = "" xlsStr = xlsStr & "<tr "& bgColor &">" xlsStr = xlsStr & "<td>"& rs(0) &"</td>" For j = 0 to rs.Fields.Count-1 xlsStr = xlsStr & "<td>"& rs(j) &"</td>" Next xlsStr = xlsStr & "</tr>" rs.movenext k = k + 1 Wend xlsStr = xlsStr & "</table><br>" rs.Close Next ExcelConn.Close Set ExcelConn = Nothing SwitchExcelInfo = xlsStr End Function 返回类别: 教程 上一教程: ASP中使用SQL语句教程 下一教程: 如何存取三层式结构的数据库的记录 您可以阅读与"在ASP中利用ADO显示EXCEL文件内容的函数"相关的教程: · 在ASP中自动创建多级文件夹的函数(使用FSO) · ASP中利用ADODB.STREAM对象将字节流转变为字符流 · 在ASP中自动创建多级文件夹的函数 · 大灰狼的ASP工具箱??用ASP读INI配置文件的函数 · 用ASP读INI配置文件的函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
