dim eapp, ebook, esheet,i
set eapp=createobject("excel.application")
for i=1 to 30
set ebook=eapp.open("201901" & format(i,"00") & ".xlsx")
for each esheet in ebook.sheets
esheet.cells(1,6).value = "检查日期：2018年3月"
next
ebook.save
ebook.close
next
eapp.quit
内容全部来源于网络收集，如有侵权，请联系网站删除！