dddggg [原作]
ฟังก์ชั่น SwitchExcelInfo (xlsFileName)
Dim xlsStr
ติ่มซ
ดิม ไอ,เจ,เค
Dim ExcelConn
Dim ExcelFile
หรี่ objExcelApp
ติ่ม objExcelBook
หรี่ bgColor
xlsStr = ""
ExeclFile = Server.MapPath(xlsFileName)
ตั้ง objExcelApp = CreateObject("Excel.Application")
objExcelApp ออก
ตั้งค่า objExcelApp = CreateObject("Excel.Application")
objExcelApp ออก
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).ชื่อ
ต่อไป
objExcelApp ออก
ตั้งค่า objExeclApp=nothing
-
'ขับเคลื่อนโดย 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 * จาก ["& 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.เปิด 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.ปิด
ต่อไป
ExcelConn ปิด
ตั้งค่า ExcelConn = ไม่มีเลย
SwitchExcelInfo = xlsStr
ฟังก์ชันสิ้นสุด