public property let createtype(byval val)
if val <> 1 and val <> 2 then
createtype_ = 1
el
createtype_ = val
end if
end property
public property let data(byval val)
if not isarray(val) then
inerr("±íÊý¾ÝÉèÖÃÓÐÎó")
end if
exceldata = val
end property
public property get savepath()
savepath = savepath_
end property
public property get udtime()
udtime = udtime_
end property
public property let sheetname(byval val)
if not isarray(val) then
if val = "" then
inerr("±íÃûÉèÖÃÓÐÎó")
end if
titlefirstline = true
el
redim titlefirstline(ubound(val))
dim ik_
for ik_ = 0 to ubound(val)
titlefirstline(ik_) = true
next
end if
sheetname_ = val
end property
public property let sheettitle(byval val)
if not isarray(val) then
if val = "" then
mrp游戏 inerr("±í±êÌâÉèÖÃÓÐÎó")
end if
end if
sheettitle_ = val
英语六级试题
相亲攻略 end property
rem ¼ì²éÊý¾Ý
private sub checkdata()
if savepath_ = "" then inerr("±£´æ·¾¶²»ÄÜΪ¿Õ")
if not isarray(sheetname_) then
if sheetname_ = "" then inerr("±íÃû²»ÄÜΪ¿Õ")
end if
if createtype_ = 2 then
if not isarray(exceldata) then
inerr("Êý¾ÝÔØÈë´íÎ󣬻òÕßδÔØÈë")
end if
exit sub
end if
研究生毕业论文 if isarray(sheetname_) then
if not isarray(sheettitle_) then
if sheettitle_ <> "" then inerr("±í±êÌâÉèÖÃÓÐÎó£¬Óë±íÃû²»¶ÔÓ¦")
end if
end if
if not isarray(exceldata) then
inerr("±íÊý¾ÝÔØÈëÓÐÎó")
end if
if isarray(sheetname_) then
if getarraydim(exceldata) <> 1 then inerr("±íÊý¾ÝÔØÈëÓÐÎó£¬Êý¾Ý¸ñʽ´íÎó£¬Î¬¶ÈÓ¦¸ÃΪһ")
el
if getarraydim(exceldata) <> 2 then inerr("±íÊý¾ÝÔØÈëÓÐÎó£¬Êý¾Ý¸ñʽ´íÎó£¬Î¬¶ÈÓ¦¸ÃΪ¶þ")
end if
end sub
rem Éú³Éexcel
public function create()
call checkdata()
if not isnull(readpath_) then
excelapp.workbooks.open(readpath_)
el
excelapp.workbooks.add
end if
t excelbook = excelapp.activeworkbook
t excelsheets = excelbook.worksheets
茼蒿菜的功效
if createtype_ = 2 then
dim ih_
for ih_ = 0 to ubound(exceldata)
call tsheets(exceldata(ih_), ih_)
next
excelbook.saveas savepath_
udtime_ = formatnumber((timer - udtime_)*1000, 3)
exit function
秣马厉兵怎么读 end if
if isarray(sheetname_) then
适合孕妇吃的零食
dim ik_
for ik_ = 0 to ubound(exceldata)
call createsheets(exceldata(ik_), ik_)
next
el
call createsheets(exceldata, -1)
end if
excelbook.saveas savepath_
udtime_ = formatnumber((timer - udtime_)*1000, 3)
end function
private sub createsheets(byval data_, dataid_)
dim spreadsheet
dim tempsheettitle
dim temptitlefirstline
if dataid_<>-1 then
if dataid_ > unt - 1 then
语言发育迟缓怎么做康复训练 excelsheets.add()
t spreadsheet = excelbook.sheets(1)
el
t spreadsheet = excelbook.sheets(dataid_ + 1)
end if
if isarray(sheettitle_) then
tempsheettitle = sheettitle_(dataid_)
el
tempsheettitle = ""
end if
temptitlefirstline = titlefirstline(dataid_)
spreadsheet.name = sheetname_(dataid_)
el
t spreadsheet = excelbook.sheets(1)
spreadsheet.name = sheetname_
tempsheettitle = sheettitle_
temptitlefirstline = titlefirstline
end if
dim line_ : line_ = 1
dim rownum_ : rownum_ = ubound(data_, 1) + 1
dim lastcols_
if tempsheettitle <> "" then
'lumns(1).shrinktofit=true 'É趨ÊÇ·ñ×Ô¶¯ÊÊÓ¦±í¸ñµ¥Ôª´óС(µ¥Ôª¸ñ¿í²»±ä£©
