dddggg [原作]
وظيفة SwitchExcelInfo(xlsFileName)
خافت xlsStr
خافت روبية
خافت ط، ي، ك
خافت ExcelConn
خافت ملف Excel
خافت objExcelApp
خافت objExcelBook
خافت bgColor
xlsStr = ""
ExeclFile = Server.MapPath(xlsFileName)
تعيين objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
تعيين objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
objExcelApp.DisplayAlerts = خطأ
objExcelApp.Application.Visible = خطأ
objExcelApp.WorkBooks.Open(ExeclFile)
تعيين objExcelBook = objExcelApp.ActiveWorkBook
إعادة تعتيم 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 = "برنامج التشغيل={برنامج تشغيل Microsoft Excel (*.xls)};DBQ=" & ExeclFile
ExcelConn.افتح برنامج ExcelDriver
مجموعة rs = Server.CreateObject("Adodb.RecordSet")
لأني = 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" وإلا 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>"
إغلاق
التالي
ExcelConn.Close
تعيين ExcelConn = لا شيء
SwitchExcelInfo = xlsStr
وظيفة النهاية