dddggg [オリジナル]
Function SwitchExcelInfo(xlsFileName)
ディム xlsStr
ディム rs
薄暗いi、j、k
ディムエクセルコン
薄暗い Excel ファイル
薄暗いobjExcelApp
薄暗い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)
i=1 の場合、objExcelBook.Sheets.Count に
arrSheets(i) = objExcelBook.Sheets(i).Name
次
objExcelApp.Quit
objExeclApp=nothing を設定します
「##############」
「Power By www.downcodes.com 」
「##############」
Set ExcelConn = Server.CreateObject("ADODB.Connection")
ExcelDriver = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & ExeclFile
ExcelConn.Open ExcelDriver
Set 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
k = 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
k = k + 1
ウェン
xlsStr = xlsStr & "</table><br>"
rs.閉じる
次
ExcelConn.Close
ExcelConn = なしを設定します
SwitchExcelInfo = xlsStr
終了機能