dddggg [原作]
Функция SwitchExcelInfo(xlsFileName)
Тусклый xlsStr
Дим РС
Дим я, дж, к
Тусклый ExcelConn
Тусклый файл Excel
Тусклый объектExcelApp
Тусклый объектExcelBook
Dim bgColor
xlsStr = ""
ExeclFile = Server.MapPath(xlsFileName)
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
Установите objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
objExcelApp.WorkBooks.Open(ExeclFile)
установите objExcelBook = objExcelApp.ActiveWorkBook
reDim arrSheets(objExcelBook.Sheets.Count)
Для i=1 в objExcelBook.Sheets.Count
arrSheets(i) = objExcelBook.Sheets(i).Name
Следующий
objExcelApp.Quit
Установите objExeclApp=ничего
'#################
«Мощь от www.downcodes.com
'#################
Установите ExcelConn = Server.CreateObject("ADODB.Connection")
ExcelDriver = "Driver={Драйвер Microsoft Excel (*.xls)};DBQ=" & ExeclFile
ExcelConn.Open ExcelDriver
Установите rs = Server.CreateObject("Adodb.RecordSet")
Для i = 1 до UBound(arrSheets)
Sql = "SELECT * FROM ["& arrSheets(i) &"$] "
'' 示 各工作表的名称
''xlsStr = xlsStr & "<br>"& arrSheets(i) &"<br>"
xlsStr = xlsStr & "<table cellpadding=1 width=""100%"" cellpacing=1 border=1 bordercolor='#000000' style='border-collapse:collapse;border:2px Solid #000000'>"
rs.Open Sql, ExcelConn, 1,1
к = 1
Пока не rs.eof
Если k Mod 2 <> 0 Тогда bgColor = "bgColor=#E0E0E0" Else bgColor = ""
xlsStr = xlsStr & "<tr "& bgColor &">"
xlsStr = xlsStr & "<td>"& rs(0) &"</td>"
Для j = 0 до rs.Fields.Count-1
xlsStr = xlsStr & "<td>"& rs(j) &"</td>"
Следующий
xlsStr = xlsStr & "</tr>"
rs.movenext
к = к + 1
Венд
xlsStr = xlsStr & "</table><br>"
rs.Close
Следующий
ExcelConn.Закрыть
Установить ExcelConn = Ничего
SwitchExcelInfo = xlsStr
Конечная функция