dddggg [原作]

function switchexcelinfo(xlsfilename)

dim xlsstr

dim rs

dim i,j,k

dim excelconn

dim excelfile

dim objexcelapp

dim 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)

for i=1 to objexcelbook.sheets.count

arrsheets(i) = objexcelbook.sheets(i).name

next

objexcelapp.quit

set objexeclapp=nothing

'#################

'power by

'#################

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 &

rs.open sql,excelconn,1,1

k = 1

while not rs.eof

if k mod 2 <> 0 then bgcolor = bgcolor=#e0e0e0 else bgcolor =

xlsstr = xlsstr &

xlsstr = xlsstr &

for j = 0 to rs.fields.count-1

xlsstr = xlsstr &

next

xlsstr = xlsstr &

rs.movenext

k = k + 1

wend

xlsstr = xlsstr &

& rs(0) & & rs(j) &

rs.close

next

excelconn.close

set excelconn = nothing

switchexcelinfo = xlsstr

end function

更多信息请查看IT技术专栏