在asp中利用ado顯示excel文件內(nèi)容的函數(shù)
來源:易賢網(wǎng) 閱讀:826 次 日期:2015-01-12 17:55:40
溫馨提示:易賢網(wǎng)小編為您整理了“在asp中利用ado顯示excel文件內(nèi)容的函數(shù)”,方便廣大網(wǎng)友查閱!

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

更多信息請(qǐng)查看IT技術(shù)專欄

更多信息請(qǐng)查看網(wǎng)絡(luò)編程
易賢網(wǎng)手機(jī)網(wǎng)站地址:在asp中利用ado顯示excel文件內(nèi)容的函數(shù)
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

2025國(guó)考·省考課程試聽報(bào)名

  • 報(bào)班類型
  • 姓名
  • 手機(jī)號(hào)
  • 驗(yàn)證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡(jiǎn)要咨詢 | 簡(jiǎn)要咨詢須知 | 新媒體/短視頻平臺(tái) | 手機(jī)站點(diǎn) | 投訴建議
工業(yè)和信息化部備案號(hào):滇ICP備2023014141號(hào)-1 云南省教育廳備案號(hào):云教ICP備0901021 滇公網(wǎng)安備53010202001879號(hào) 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號(hào)
云南網(wǎng)警備案專用圖標(biāo)
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號(hào):hfpxwx
咨詢QQ:1093837350(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報(bào)警專用圖標(biāo)