在ASP中利用ADO显示Excel文件内容的函数[原创]

Function SwitchExcelInfo(xlsFileName)
'#################
'Power By Tangn.COM
'#################
Dim xlsStr
Dim rs
Dim i,j,k
Dim ExcelConn
Dim ExcelFile
Dim objExcelApp
Dim objExcelBook
Dim bgColor
Dim Er

Er = False
xlsStr = ""

If xlsFileName = "" Then
    Er = True
End If

If Er = False AND UCase(Mid(file.fileName,InStrRev(file.filename, "."),Len(file.Filename)))<>"xls" Then
    Er = False
End If
If Er = False Then
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)
For i=1 to objExcelBook.Sheets.Count
arrSheets(i) = objExcelBook.Sheets(i).Name
Next
objExcelApp.Quit
Set objExeclApp=nothing

Set ExcelConn = Server.CreateObject("ADODB.Connection")
ExcelDriver = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & ExeclFile
ExcelConn.Open ExcelDriver
Set rs = Server.CreateObject("Adodb.RecordSet")
For i = 1 to UBound(arrSheets)
Sql = "SELECT * FROM ["& arrSheets(i) &"$] "
''显示各工作表的名称
''xlsStr = xlsStr & "
"& arrSheets(i) &"
"
xlsStr = xlsStr & "<?xml:namespace prefix = table?cellpadding=1?width=""100%""?cellspacing=1?border=1?bordercolor='#000000'?style='border-collapse />

"& rs(0) &"

"& rs(j) &"

"
rs.Close
Next
ExcelConn.Close
Set ExcelConn = Nothing
End If?cellpadding=1?width=""100%""?cellspacing=1?border=1?bordercolor='#000000'?style='border-collapse:collapse;border:2px?solid?#000000'>?cellpadding=1?width=""100%""?cellspacing=1?border=1?bordercolor='#000000'?style='border-collapse:collapse;border:2px?solid?#000000'>