Question

VBS批量修改目录下的excel文件指定内容

目录： E:\Desktop\201803
文件数量： 里面有30个excel文件，命名格式 20180101.xlsx 到 20180130.xlsx
单元格： (1,6)
单元格内容(例如)： 检查日期：2018 年 05 月 20 日
实现需求：目录下的所有excel文件的(1,6)单元格内的 2018年5月 变成 2018年3月

'修改单元格代码
osheet.cells (1,6).value = ("检查日期：2018年3月"*)

Answer 1

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

追问

追答

不好意思，vba才有format，vbs没有这个，请用下面的内容代替第4行
set ebook=eapp.open("201901" & (string(2-len(i),"0") & i) & ".xlsx")

Answer 2

a = ofile.path & vbcrlf 这一行的 & vbcrlf 删掉。 变量a等于文件路径,文件路径不加回车换行符。