dddggg [원작]
함수 SwitchExcelInfo(xlsFileName)
희미한 xlsStr
희미한 RS
어둡게 나,j,k
희미한 ExcelConn
희미한 Excel 파일
희미한 objExcelApp
희미한 객체ExcelBook
희미한 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(Execl파일)
objExcelBook = objExcelApp.ActiveWorkBook 설정
reDim arrSheets(objExcelBook.Sheets.Count)
i=1에서 objExcelBook.Sheets.Count로
arrSheets(i) = objExcelBook.Sheets(i).이름
다음
objExcelApp.Quit
objExeclApp=nothing으로 설정
'#################
'Power By www.downcodes.com '
'#################
ExcelConn = Server.CreateObject("ADODB.Connection") 설정
ExcelDriver = "드라이버={Microsoft Excel 드라이버(*.xls)};DBQ=" & ExeclFile
ExcelConn.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
k = 1
rs.eof가 아닌 동안
k Mod 2 <> 0이면 bgColor = "bgColor=#E0E0E0" 그렇지 않으면 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.닫기
ExcelConn = 없음 설정
SwitchExcelInfo = xlsStr
기능 종료