2022年asp读取excel代码 .pdf

《2022年asp读取excel代码 .pdf》由会员分享，可在线阅读，更多相关《2022年asp读取excel代码 .pdf（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、public property let createtype(byval val) if val 1 and val 2 then createtype_ = 1 else createtype_ = val end if end property public property let data(byval val) if not isarray(val) then inerr( y?Y ?D?) end if exceldata = val end property public property get savepath() savepath = savepath_ end proper

2、ty public property get usedtime() usedtime = usedtime_ end property public property let sheetname(byval val) if not isarray(val) then if val = then inerr( ? ?D?) end if titlefirstline = true else redim titlefirstline(ubound(val) dim ik_ for ik_ = 0 to ubound(val) titlefirstline(ik_) = true next end

3、if sheetname_ = val end property public property let sheettitle(byval val) if not isarray(val) then if val = then inerr( a ?D?) end if end if sheettitle_ = val 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 7 页 - - - - - - - - - end property rem ?2 y?Y private

4、sub checkdata() if savepath_ = then inerr( ?2?a?) if not isarray(sheetname_) then if sheetname_ = then inerr( ?2?a?) end if if createtype_ = 2 then if not isarray(exceldata) then inerr(y?Y? ? ?) end if exit sub end if if isarray(sheetname_) then if not isarray(sheettitle_) then if sheettitle_ then i

5、nerr( a ?D? ? ?2?|) end if end if if not isarray(exceldata) then inerr( y?Y?D?) end if if isarray(sheetname_) then if getarraydim(exceldata) 1 then inerr( y?Y?D? ?y?Y? ? ? |?a ?) else if getarraydim(exceldata) 2 then inerr( y?Y?D? ?y?Y? ? ? |?a?t) end if end sub rem 3excel public function create() c

6、all checkdata() if not isnull(readpath_) then excelapp.workbooks.open(readpath_) else excelapp.workbooks.add end if set excelbook = excelapp.activeworkbook set excelsheets = excelbook.worksheets 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 7 页 - - - - - - - -

7、 - if createtype_ = 2 then dim ih_ for ih_ = 0 to ubound(exceldata) call setsheets(exceldata(ih_), ih_) next excelbook.saveas savepath_ usedtime_ = formatnumber(timer - usedtime_)*1000, 3) exit function end if if isarray(sheetname_) then dim ik_ for ik_ = 0 to ubound(exceldata) call createsheets(exc

8、eldata(ik_), ik_) next else call createsheets(exceldata, -1) end if excelbook.saveas savepath_ usedtime_ = formatnumber(timer - usedtime_)*1000, 3) end function private sub createsheets(byval data_, dataid_) dim spreadsheet dim tempsheettitle dim temptitlefirstline if dataid_-1 then if dataid_ excel

9、sheets.count - 1 then excelsheets.add() set spreadsheet = excelbook.sheets(1) else set spreadsheet = excelbook.sheets(dataid_ + 1) end if if isarray(sheettitle_) then tempsheettitle = sheettitle_(dataid_) else tempsheettitle = end if temptitlefirstline = titlefirstline(dataid_) spreadsheet.name = sh

10、eetname_(dataid_) else set spreadsheet = excelbook.sheets(1) spreadsheet.name = sheetname_ tempsheettitle = sheettitle_ 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 7 页 - - - - - - - - - temptitlefirstline = titlefirstline end if dim line_ : line_ = 1 dim row

11、num_ : rownum_ = ubound(data_, 1) + 1 dim lastcols_ if tempsheettitle then spreadsheet.columns(1).shrinktofit=true ? ? | ?￥ ?a D?(￥ ?a?2? lastcols_ = getcolname(ubound(data_, 2) + 1) with spreadsheet.cells(1, 1) .value = tempsheettitle ?excel ? .font.bold = true ￥ ?a? ? .font.italic = false ￥ ?a?D .

12、font.size = 20 ?￥ ?a?o? .font.name=? ?￥ ?a? .font.colorindex=2 ?￥ ?a? ?2? ?2?a ? end with with spreadsheet.range(a1:& lastcols_ &1) .merge o?2￥ ?a?( ￥ ?a? ) .interior.colorindex = 1 ?￥ ?a?3? ? .horizontalalignment = 3 ?D end with line_ = 2 rownum_ = rownum_ + 1 end if dim irow_, icol_ dim drow_, dco

13、l_ dim templastrange : templastrange = getcolname(ubound(data_, 2)+1) & (rownum_) dim beginrow : beginrow = 1 if tempsheettitle then beginrow = beginrow + 1 if temptitlefirstline = true then beginrow = beginrow + 1 if beginrow=1 then with spreadsheet.range(a1:& templastrange) .borders.linestyle = 1

14、.borderaround -4119, -4138 ?a? .numberformatlocal = ? .font.bold = false .font.italic = false .font.size = 10 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 7 页 - - - - - - - - - .shrinktofit=true end with else with spreadsheet.range(a1:& templastrange) .border

15、s.linestyle = 1 .borderaround -4119, -4138 .shrinktofit=true end with with spreadsheet.range(a& beginrow &:& templastrange) .numberformatlocal = .font.bold = false .font.italic = false .font.size = 10 end with end if if temptitlefirstline = true then beginrow = 1 if tempsheettitle then beginrow = be

16、ginrow + 1 with spreadsheet.range(a& beginrow &:& getcolname(ubound(data_, 2)+1) & (beginrow) .numberformatlocal = .font.bold = true .font.italic = false .font.size = 12 .interior.colorindex = 37 .horizontalalignment = 3 ?D .font.colorindex=2 end with end if for irow_ = line_ to rownum_ for icol_ =

17、1 to (ubound(data_, 2) + 1) dcol_ = icol_ - 1 if tempsheettitle then drow_ = irow_ - 2 else drow_ = irow_ - 1 if not isnull(data_(drow_, dcol_) then with spreadsheet.cells(irow_, icol_) .value = data_(drow_, dcol_) end with end if next 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理

18、- - - - - - - 第 5 页，共 7 页 - - - - - - - - - next set spreadsheet = nothing end sub rem 2a? ?t ?- 2 private function isobjinstalled(strclassstring) on error resume next isobjinstalled = false err = 0 dim xtestobj set xtestobj = server.createobject(strclassstring) if 0 = err then isobjinstalled = true

19、 set xtestobj = nothing err = 0 end function rem ?y ?y private function getarraydim(byval arr) getarraydim = null dim i_, temp if isarray(arr) then for i_ = 1 to 60 on error resume next temp = ubound(arr, i_) if err.number 0 then getarraydim = i_ - 1 err.clear exit function end if next getarraydim =

20、 i_ end if end function class createexcel private createtype_ private savepath_ private readpath_ private authorstr rem ? ? private versionstr rem ? private systemstr rem ? 3?3? private sheetname_ rem ? ? private sheettitle_ rem ? a private exceldata rem ? y?Y private excelapp rem excel.application

21、private excelbook 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 7 页 - - - - - - - - - private excelsheets private usedtime_ rem 1? ? public titlefirstline rem DD ? a private sub class_initialize() server.scripttimeout = 99999 usedtime_ = timer systemstr = lc00

22、_createexcelserver authorstr = surnfu 31333716 versionstr = 1.0 if not isobjinstalled(excel.application) then inerr(t? ? 2 excel.application?t) end if set excelapp = createobject(excel.application) excelapp.displayalerts = false excelapp.application.visible = false createtype_ = 1 readpath_ = null e

23、nd sub private sub class_terminate() excelapp.quit if isobject(excelsheets) then set excelsheets = nothing if isobject(excelbook) then set excelbook = nothing if isobject(excelapp) then set excelapp = nothing end sub public property let readpath(byval val) if instr(val, :)0 then readpath_ = trim(val

24、) else readpath_=server.mappath(trim(val) end if end property public property let savepath(byval val) if instr(val, :)0 then savepath_ = trim(val) else savepath_=server.mappath(trim(val) end if end property 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -